Complimenti all'autore del tool.
Pero', se permettete, consiglio agli apprendisti di lavorare in modo chiaro fin dall'inizio aiutandosi con la propria indentazione
Esempio:
A) Inizio a scrivere la mia macro; metto il titolo e mi esce Subito End Sub:
- Codice: Seleziona tutto
Sub PippoLo()
End Sub
B) Ci inserisco un ciclo for /next: lo inizio e lo termino
- Codice: Seleziona tutto
Sub PippoLo()
'dichiarazione
'calcoli
For i = 2 To ultimo
Next i
End Sub
C) Scrivo indentato all'interno del For /Next; aggiungo un With /End With (lo inizio e lo termino)
- Codice: Seleziona tutto
For i = 2 To ultimo
'istruzioni
'istruzioni
With Sheets("Foglio1")
End With
Next i
D) Scrivo indentato all'interno del With /End with e aggiungo un If /Then /Else (lo inizio e lo termino)
- Codice: Seleziona tutto
With Sheets("Foglio1")
If .Cells(i, 1) <> "" Then
Else
End If
End With
Insomma imposto la struttura del codice e la rendo chiara a me stesso con le indentazioni; senza bisogno di dover indentare a posteriori.
- Codice: Seleziona tutto
Sub PippoLo()
'dichiarazioni
'
'Istruzioni
'Istruzioni
For i = 2 To ultimo
'istruzioni
'istruzioni
With Sheets("Foglio1")
If .Cells(i, 1) <> "" Then
'istruzioni
'istruzioni
Else
'istruzioni
'istruzioni
End If
End With
'istruzioni
Next i
'Istruzioni
End Sub
RIPETO: serve soprattutto a chi non e' espertissimo di programmazione perche' gli da' gia' visivamente la struttura del codice che si va a scrivere
Ciao!