sono nuovo e desidero avere il vostro aiuto.
Ho un file Excel in un foglio ho delle categorie disposte per riga es: cod, titolo, sigla - cod, titolo, sigla - ecc
con di sotto i vari articoli. Tramite vba desidero copiarle in un altro foglio ma una sotto l'altra.
es:
cod, titolo, sigla
art1
art2
ecc
cod, titolo, sigla
art1
art2
art3
ecc
ecc
- Codice: Seleziona tutto
Sub Aggiorna_Modello()
colonna = 1
j = 1
Application.ScreenUpdating = False
Sheets("ModelloMese").Visible = True
Sheets("ModelloMese").Select
Range("A2").Select
Selection.End(xlDown).Offset(0, 2).Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Sheets("Pubblicazioni").Visible = True
Sheets("Pubblicazioni").Select
Do Until Sheets("Pubblicazioni").Cells(j, colonna) = Empty
Cells(j, colonna).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.Offset(0, 2)).Select
Selection.Copy
Sheets("ModelloMese").Select
Range("A2").Select
If Range("A2").Value = "" Then GoTo 20
Selection.End(xlDown).Offset(1, 0).Select
20 ActiveSheet.Paste
colonna = colonna + 4
Loop
Aggiorna_ws1
End Sub
Questo è il codice che sto usando al momento ma mi da errore alla riga 20
Vi ringrazio per l'aiuto che vorrete darmi.