Vorrei aggiungere ad una macro un comando di controllo di esecuzione. In particolare, nella macro in calce, vorrei far in modo che se non ci sono problemi nel percorso di rete e la cartella viene creata, nella colonna "D" appaia la dicitura "OK"; diversamente appaia "KO" e la macro passi alla creazione della cartella successiva.
- Codice: Seleziona tutto
Sub CREA_CARTELLE_POS()
Dim Indirizzo As String
Dim NomeCartella As String
UE = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
ChDrive "C"
For IE = 2 To UE
Indirizzo = Range("a" & IE).Value
NomeCartella = Range("b" & IE).Value
If Dir(Indirizzo & NomeCartella, vbDirectory) = "" Then
MkDir (Indirizzo & NomeCartella)
End If
Next IE
End Sub
Grazie.