leggendo vari topic ho trovato una macro realizzata da flash in un topic di qualche tempo fa, che ho leggermente modificato per adattarla alle mie esigenge:
- Codice: Seleziona tutto
Sub CopiaRiga()
' copia le righe del foglio 1 quando nelle celle della colonna B si trova il valore della cella B3 e le scrive (incolla), una dopo l'altra, nel foglio2
Worksheets("Foglio1").Select
righe = Cells(Rows.Count, 2).End(xlUp).Row
For I = 1 To righe
Cells(I, 2).Select
If Selection.Value = Range("b3").Value Then _
Selection.Range("a1:k1").Copy _
Destination:=Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Next I
Worksheets("Foglio2").Select
End Sub
i miei dati sono disposti nel foglio 1 a partire dalla cella B3 fino alla colonna K.
come devo modificare il codice per incollarli a partire dalla cella B3 del foglio 2?
e come modificare per incollarli a partire dalla prima cella vuota della colonna B del foglio 2?
ho provato a modificare la riga: Destination:=...
ma i risultati sono disastrosi.
ciao grazie