Ho questo semplice codice:
- Codice: Seleziona tutto
Dim ultimariga As Long
ultimariga = 0
endcol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
If Cells(endcol, 1).Value <> "" Then
endcol = endcol + 1
End If
ultimariga = Sheets("Foglio1").Cells(Rows.Count, endcol - 1).End(xlUp).Row
Sheets("Foglio1").Range(Cells(ultimariga, endcol - 1), Cells(1, endcol - 1)).Copy
Sheets("Foglio3").Activate
endcol = Sheets("Foglio3").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
If Sheets("Foglio3").Cells(endcol, 1).Value <> "" Then
endcol = endcol + 1
End If
Sheets("Foglio3").Range(Cells(ultimariga, endcol - 1), Cells(1, endcol - 1)).Paste '<<======== ERRORE 1004
con cui determino l'ultima colonna avvalorata del foglio1, ne copio il contenuto e poi cerco di trascriverne il contenuto sulla prima colonna vuota del foglio3, ma non riesco proprio a capire perchè ottengo l'errore 1004 sulla linea evidenziata.
Potete aiutarmi ?
Grazie