Selezionare celle consecutive in ciclo for each

[blunotte13]

Ciao a tutti, questo codice ,

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.

[Anthony47]

Ad esempio

Codice: Seleziona tutto

        Range(cl, cl.Offset(0, 1)).Select


Ciao

[blunotte13]

Grazie ho capito, bisogna agire su cl.Offset(0, 1) per le celle da selezionare.