Ciclo For Each

  • 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