Condividi:        

utilizzo di On Error GoTo

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

utilizzo di On Error GoTo

Postdi matzap » 11/02/15 16:26

ciao
all'interno di una macro vorrei che se una istruzione precisa genera un errore mi venga visualizzato un messaggio, dopodichè la macro deve continuare.
Ho provato cosi:
On Error GoTo messaggio
'ISTRUZIONE DA CONTROLLARE
Selection.TextToColumns Destination:=Range("G10"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 9)), TrailingMinusNumbers:=True
Resume
continua:
'ISTRUZIONI DA NON CONTROLLARE
Range("O30").Select
Selection.ClearContents
Exit Sub
messaggio:
msgbox "i dati da analizzare non sono completi "
Resume continua
end sub

il problema è che viene controllata anche l'istruzione da non controllare.
Dove sbaglio?

Ciao
excel 2010
matzap
Utente Senior
 
Post: 246
Iscritto il: 16/04/13 08:27

Sponsor
 

Re: utilizzo di On Error GoTo

Postdi ricky53 » 11/02/15 16:55

Ciao,
cosa intendi con
il problema è che viene controllata anche l'istruzione da non controllare.


Cosa fa questa macro?
Il resto del codice sarebbe utile ... se non è tanto e UTILIZZA i TAG per il CODICE !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: utilizzo di On Error GoTo

Postdi Flash30005 » 11/02/15 17:44

Prova così

Codice: Seleziona tutto
On Error GoTo messaggio
'ISTRUZIONE DA CONTROLLARE
 Selection.TextToColumns Destination:=Range("G10"), DataType:=xlFixedWidth, _
 FieldInfo:=Array(Array(0, 1), Array(10, 9)), TrailingMinusNumbers:=True
On error goto 0  '<<<< tolto resume e inserita questa riga
continua:
'ISTRUZIONI DA NON CONTROLLARE
Range("O30").ClearContents  '<<<< eliminata la select
Exit Sub
messaggio:
msgbox "i dati da analizzare non sono completi "
Goto continua  '<<<< tolto resume e inserito Goto
end sub


e fai sapere

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: utilizzo di On Error GoTo

Postdi matzap » 13/02/15 10:55

Grazie Flash, va benissimo.
excel 2010
matzap
Utente Senior
 
Post: 246
Iscritto il: 16/04/13 08:27

Re: utilizzo di On Error GoTo

Postdi Anthony47 » 13/02/15 15:31

Funziona nel codice indicato, ma questa istruzione e' concettualmente errata:
Goto continua '<<<< tolto resume e inserito Goto
Quella giusta e'
Codice: Seleziona tutto
Resume continua

Questo altrimenti la gestione degli errori, se la continuazione della macro lo prevede, non viene ripristinata.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "utilizzo di On Error GoTo":

Utilizzo del CDRom
Autore: biasutti
Forum: Assistenza Hardware
Risposte: 5

Chi c’è in linea

Visitano il forum: Nessuno e 30 ospiti