Ciao,
leggi quanto ti ha scritto Anthony.
Strano che la mia macro ti abbia
"risposto che non trova nessuna cella"
perchè il codice che ho scritto non ha messaggi da emettere.
Sicuro di aver cambiato correttamente oppure hai fatto delle aggiunte ...?
Potresti avere dei problemi SOLO se una cella della colonna "T" (Quantità) non contiene un valore o contiene "zero" !!!
Io avevo dato per CERTO che ogni cella della colonna quantità avesse un valore e che fosse maggiore di zero !!!In tal caso ti propongo questa modifica che tiene conto di questo caso:
- Codice: Seleziona tutto
Sub Copia_Dati_su_più_Righe()
Dim WS1 As Worksheet, WS2 As Worksheet, Quantita As Integer, RNG1 As Range, I As Long, UR As Long
Set WS1 = Sheets("FOGLIO1") ' <<===== QUI scrivi il nome del foglio DAL quale copiare i dati
Set WS2 = Sheets("FOGLIO2") ' <<===== QUI scrivi il nome del foglio SUL quale copiare i dati
UR = WS1.Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To UR
Quantita = WS1.Cells(I, "T") ' <<===== Cambia la colonna
If Quantita > 0 Then ' <<===== AGGIUNTA
Set RNG1 = WS1.Range("A" & I & ":AF" & I) ' <<===== Adatta le colonne
RNG1.Copy Destination:=WS2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(Quantita, 1) ' <<===== Cambia la colonna
End If
Next I
End Sub
Per scrupolo invia un file di esempio senza dati riservati e così possiamo provare il codice che ti o proposto.