- Codice: Seleziona tutto
Dim cl As Object
Dim zona As Range
Set zona = Range("AA2:AA65")
For Each cl In zona
If cl <> "" Then
Range(cl, cl.Offset(0, 0)).Select
Selection.Copy
Sheets("foglio1").Select
Range("CL1").Select
ActiveSheet.Paste
Calculate
prende tutti i valori della singola cella, adesso dovrei prendere due celle vicine cioè AA2:AB2, AA3:AB3 ecc ecc.. fino al range AA65:AB65, come posso fare ?
Grazie a tutti.