Buongiorno,
Ho creato questa macro, ma non funziona.
Errore 400
Sono sicura che l'errore sta quando indico di prendere i dati da un foglio di lavoro diverso (EST.20 SINT!O)
come posso fare?
Grazie
Anna
Sub Copia_Template()
Dim x As Long
Dim y As Long
x = 2
y = 3
Range("A4:N" & Rows.Count).Clear 'cancella da A4 fino all'ultima riga di N
Range("A2:N3").Copy 'copia la tabella template
Application.ScreenUpdating = False
Do While Range("EST.20 SINT!O" & y) <> "" 'cicla fino alla fine dei nomi
x = x + 2 'salta di 2 righe
Range("A" & x).Select 'posizionati nella nuova cella in A
ActiveSheet.Paste 'incolla la tabella
Range("A" & x) = Range("EST.20 SINT!O" & y) 'incolla il nuovo nome in A
y = y + 1 'incrementa il contatore dei nomi
Loop 'ripeti il ciclo
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub