problema con collegamento DDE

Question

Ho impostato un collegamento DDE per accedere a dati esterni e li confronto con dei dati fissi da me inseriti. Vorrei che quando c’è la coincidenza di due dati mi venisse rappresentato in una terza cella un valore e però (e qui c’è il problema) mi rimanesse anche quando il valore ricavato da DDE cambia.

Grazie per le eventuali risposte

Answer 1

Ciao Leonardo,

Ho impostato un collegamento DDE per accedere a dati esterni e li confronto con dei dati fissi da me inseriti. Vorrei che quando c’è la coincidenza di due dati mi venisse rappresentato in una terza cella un valore e però (e qui c’è il problema) mi rimanesse anche quando il valore ricavato da DDE cambia.

Grazie per le eventuali risposte

I risultati desiderati richiedono lo sfruttamento di VBA

Quindi, prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '=========>>

Option Explicit

'--------->>

Private Sub Worksheet_Calculate()

    Dim Rng As Range, rCell As Range

    Const sIntervallo_formule As String = "A1:A10"  '<<=== Modifica

    Const sColonna_Confronto As String = "B:B"      '<<=== Modifica

    Const sColonna_Bloccata As String = "C:C"          '<<=== Modifica

    Set Rng = Me.Range(sIntervallo_formule)

    Application.ScreenUpdating = False

    For Each rCell In Rng.Cells

        With rCell

            If .Value = .Intersect(Columns(sColonna_Confronto), .EntireRow).Value Then

                .Intersect(Columns(sColonna_Bloccata), .EntireRow).Value = .Value

            End If

        End With

    Next rCell

    Application.ScreenUpdating = True

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm

===

Regards,

Norman