- Codice: Seleziona tutto
Dim zona As Range
Sheets("foglio1").Select
Set zona = Range("b10:b37")
For Each cl In zona
If cl <> "" Then
Sheets("foglio1").Select
Range(cl, cl.Offset(0, 1)).Select
Selection.Copy
Sheets("foglio2").Select
Range("AR1").Select
ActiveSheet.Paste
Calculate
Range("AT1").Copy
Sheets("foglio1").Select
Columns("D").Select
Colonna = ActiveCell.Column
Cells(65535, Colonna).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
che uso tantissimo per la sua comodità, quando i valori contenuti nel range "b10:b37" sono finiti termina il suo compito. Come faccio a dire a dire alla macro che: dopo aver usato il range "b10:b37" passi al range "S1:S37" e poi al range "AB1:AB37" senza scrivere tante macro quante le colonne ( una cinquantina) del mio file nelle quali devo le operazioni?
Grazie in anticipo.