Gent.mo PC facile.
Mi piacerebbe che ogni volta che cambio manualmente il dato nella cella $A$1 ed eseguo la macro il pc l'ho confronti con l'ultimo dato nella colonna c e in caso di diversità proceda alla copia della cella $A$1 nella colonna c.
il problema sta nel fatto che a mio avviso il pc non esegue queste istruzioni ( come vorrei...):non riesco a fargli capire che se $a$1 è ugale all' ultimo dato della colonna C deve uscire dalla sub.
Per favore mi potete dare una mano?
Cordiali saluti.
Gollum999.
P.S. Siete grandi!
Sub Macro1()
'
' Macro1 Macro
'
Dim LastHist, Origine
LastHist = Sheets("Storico").Cells(Rows.Count, 3).End(xlUp).Value
Origine = "$A$1"
If LastHist = Origine Then Exit Sub
Source = "$A$1"
Range(Source).Copy
Range("C1048500").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Registrazione
