Allora la macro "Madre" è questa:
- Codice: Seleziona tutto
Sub Copia()
For NF = 1 To Worksheets.Count
If Worksheets(NF).Name <> "Template" Then
Worksheets(NF).Select
Call Macrocreata
Worksheets("Template").Select
End If
Next NF
End Sub
Aggiungi una macro vuota
così
- Codice: Seleziona tutto
Sub Macrocreata()
End Sub
Qnado registri una macro avrai qualcosa del genere
- Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 30/01/2012 da Flash
'
'
Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("D13").Select
ActiveCell.FormulaR1C1 = "Verificato"
Range("D14").Select
End Sub
Non devi far altro che copiare il codice esclusi i commenti e nome macro
e incollarlo all'interno di Macrocreata
e avrai
- Codice: Seleziona tutto
Sub Macrocreata()
Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("D13").Select
ActiveCell.FormulaR1C1 = "Verificato"
Range("D14").Select
End Sub
Avvii la macro con nome "Copia" e hai finito
C'è della manualità ma insignificante rispetto al lavoro che avresti dovuto fare in assenza
potranno esserci altri consigli migliori quindi in attesa di altre soluzioni puoi cominciare a fare pratica
ciao
P.s. Ho chiamato il foglio, nel quale registri la macro e fai le operazioni da ripetere, "Template" sostituisci secondo le tue esigenze