Ciao,

Allega un file di esempio con  i dati di partenza ed il risultato voluto.

Le righe le vuoi contigue? 

Come decidi quale codifica mettere in A1, A2, A3?

Quante sono le codifiche che ti aspetti?

VI ringrazio molto per la disponibilità:

in allegato il file.

l'obiettivo è quello di dedicare ad ogni foglio, FOGLIO1  in poi, una codifica CND (colonna H) di quelle complessivamente riportate nel foglio ORDINI 2020.

In pratica quindi sul "foglio1" tutte le righe del foglio ORDINI 2020 recanti la codifica A02010205, sul "foglio2"  tutte le righe del foglio ORDINI 2020 recanti la codifica  A0399, sul "foglio4" tutte le codifiche recanti T04010202.....

grazie molte     

Ciao 

io avrei pensato qualcosa del genere.

Sub PrepFogli()
Dim MioRange
Dim MioFoglio
Dim CellaW
Dim Vettore()
Dim Indice
Dim Trovato

ReDim Vettore(1 To 2, 0 To 0)
Set MioFoglio = Sheets("ORDINI 2020")
Set MioRange = MioFoglio.Range("A2", MioFoglio.Range("A" & Rows.Count).End(xlUp)).Offset(0, 7)

For Each CellaW In MioRange
    If CellaW <> "" Then
        Trovato = False
        For Indice = 0 To UBound(Vettore, 2)
            If CellaW = Vettore(1, Indice) Then
                CellaW.EntireRow.Copy Sheets(Vettore(2, Indice)).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                Trovato = True
            End If
        Next Indice
        If Not Trovato Then
            ReDim Preserve Vettore(1 To 2, 0 To UBound(Vettore, 2) + 1)
            Vettore(1, UBound(Vettore, 2)) = CellaW
            Vettore(2, UBound(Vettore, 2)) = "A" & UBound(Vettore, 2)
            With Sheets.Add
                .Name = Vettore(2, UBound(Vettore, 2))
            End With
            MioRange.Cells(1, 1).Offset(-1, 0).EntireRow.Copy Sheets(Vettore(2, UBound(Vettore, 2))).Range("A1")
            CellaW.EntireRow.Copy Sheets(Vettore(2, UBound(Vettore, 2))).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    End If
Next CellaW

MsgBox "FATTO"
End Sub

Il problema è che si generano un numero di fogli molto grande in quanto il numero di codici presenti nella colonna H è piuttosto grande.

Ciao

Luca