Ciclo For Each

Storico discussioni

Ciclo For Each di Roccia
Salve ragazzi, ho bisogno di una aggiustatina a un codice.
vorrei rendere variabile il numero delle righe del codice, ma non s'o come fare.
ringrazio x un eventuale risposta e vi saluto.
 
 For Each Cell In Range("A1:A10000")
 
   lung = Len(Cell.Value)
    Ean = 13 - lung
    If Ean > 0 Then
    For n = 1 To Ean
    Cell.Value = "'" & 0 & Cell.Value 
    Next
    End If
    Next

di Apoben64
La variabile "x " imposta l'area di ricerca dei valori partendo dalla prima riga della prima colonna del foglio .

 
Set x = Range(Cells(1,1), Cells(1,1).End(Xldown))
For each  Cell   in  x

di Roccia
Grazie apoben64, il codice che mi ha dato funziona benissimo, alla prossima
ciao

Cognolato Studio © 2005