Ciao
Ho una piccola macro per il mio TS sviluppato con Excel ma non mi funziona con i dati DDE, funziona solo se inserisco i dati manualmente, oppure se una volta evidenziata la cella che ha verificato la condizione impostata clicco nella barra della formula e do l'invio.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A2:A41")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If UCase(Target) = "COMPRA" Or UCase(Target) = "VENDI" Then
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = Cells(Target.Row, "A")
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row, "C") = Cells(Target.Row, "C")
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row, "E") = Cells(Target.Row, "E")
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row, "G") = Cells(Target.Row, "AL")
If UCase(Target) = "COMPRA" Or UCase(Target) = "VENDI" Then
MsgBox Cells(Target.Row, "A") & " " & Cells(Target.Row, "C") & " " & Cells(Target.Row, "E")
End If
End If
Application.EnableEvents = True
End Sub
Ringrazio fin da ora chi vorrà darmi una mano a risolvere questo problema.
Ho una piccola macro per il mio TS sviluppato con Excel ma non mi funziona con i dati DDE, funziona solo se inserisco i dati manualmente, oppure se una volta evidenziata la cella che ha verificato la condizione impostata clicco nella barra della formula e do l'invio.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A2:A41")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If UCase(Target) = "COMPRA" Or UCase(Target) = "VENDI" Then
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = Cells(Target.Row, "A")
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row, "C") = Cells(Target.Row, "C")
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row, "E") = Cells(Target.Row, "E")
Worksheets(2).Cells(Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row, "G") = Cells(Target.Row, "AL")
If UCase(Target) = "COMPRA" Or UCase(Target) = "VENDI" Then
MsgBox Cells(Target.Row, "A") & " " & Cells(Target.Row, "C") & " " & Cells(Target.Row, "E")
End If
End If
Application.EnableEvents = True
End Sub
Ringrazio fin da ora chi vorrà darmi una mano a risolvere questo problema.