[EXCEL]Bypassare celle vuote

[nagato]

Di nuovo salve a tutti.
Questa semplice macro:

Codice: Seleziona tutto

Sub CopiaTuttiFilesA10()
Dim eZio As Object
Set eZio = CreateObject("Scripting.FileSystemObject")
eZio.CopyFile Range("A10").Value, "C:\Users\Andrea\Desktop\VERG\TEMPDOC\", True
End Sub

copia il file presente nella cella A10. Se pero' la cella e' vuota mi restituisce l'errore.
Come si puo' modificare per fare in modo che non tenga conto della cella vuota?

Saluti a tutti

[PcBase]

Ciao nagato

Puoi ad esempio utilizzare la gestione errori due esempi tipici

Se trova un errore lo ignora eseguendo la riga successiva

Codice: Seleziona tutto

Sub CopiaTuttiFilesA10()
Dim eZio As Object
Set eZio = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
eZio.CopyFile Range("A10").Value, "C:\Users\Andrea\Desktop\VERG\TEMPDOC\", True
End Sub

Con questo puoi gestire l'errore eseguendo un codice alternativo

Codice: Seleziona tutto

Sub CopiaTuttiFilesA10()
Dim eZio As Object
Set eZio = CreateObject("Scripting.FileSystemObject")
On Error GoTo Errore
eZio.CopyFile Range("A10").Value, "C:\Users\Andrea\Desktop\VERG\TEMPDOC\", True
Exit Sub
Errore:
Msg = MsgBox("Non trovato il File: " & Range("A10").Value, vbCritical + vbOKOnly, "AVVISO")
Resume Next
End Sub

[nagato]

Ottimo! Mille grazie!