Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL]Bypassare celle vuote

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL]Bypassare celle vuote

Postdi nagato » 02/07/11 09:54

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
nagato
Utente Junior
 
Post: 36
Iscritto il: 22/03/09 11:17

Sponsor
 

Re: [EXCEL]Bypassare celle vuote

Postdi PcBase » 02/07/11 12:16

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
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: [EXCEL]Bypassare celle vuote

Postdi nagato » 02/07/11 14:13

Ottimo! Mille grazie! :)
nagato
Utente Junior
 
Post: 36
Iscritto il: 22/03/09 11:17


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL]Bypassare celle vuote":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti