(Excel) Debug

[paaz]

Ciao a tutti,
qualcuno mi potrebbe aiutare nell'indicarmi un modo per indicare questa espressione arrivati ad un certo punto della macro;
"se c'è un errore dai un messaggio invece di aprire VBA e mostrare il codice

Grazie

[PcBase]

Ciao

Puoi gestire le segnalazioni errori
Devi utilizzare il metodo On Error...
Eventualmente allega il codice che usi

Codice: Seleziona tutto

Sub Prova()
    On Error Resume Next    'Non segnala l'errore
   
    On Error GoTo MioTest   'Salta e puoi mostrare il problema
    'Codice in esecuzione

Exit Sub
MioTest:
    MsgBox "Messaggio Trovato:"
    'Resume    ' Riprende l'esecuzione dalla stessa
                ' riga che ha generato l'errore.
End Sub

[Avatar3]

Ammettendo che tu abbia la macro in questa maniera

Codice: Seleziona tutto

sub macroPaaz()
On Error GoTo saltamacro '<<< aggiungi questa riga
'... righe codice tua macro
'... righe codice tuamacro
'... righe codice tuamacro

exit sub ''<<<< aggiungi questa uscita dalla macro se tutto ok

saltamacro:  '<<<< aggiungi questa etichetta
MsgBox "Errore macro"  '<<<< aggiungi tuo messaggio di errore

end sub  '<<<< fine della macro che hai sempre quando ne crei una


Ops! C'è già qui su la soluzione di PcBase

[paaz]

Grazie a tutti per l'interessamento...faccio qualche prova e vi fazzio sapere

[paaz]

Ciao a tutti,
ho inserito il metodo On Error come mi avete consigliatoma non riesco a renderlo funzionante in quanto l'errore viene generato nelle righe precedenti.

La riga che mi genera errore è
1 Sub File Mesili
....
....
41. ActiveWorkbook.SaveAs Filename:=NewFNameMensile
42. On Error ....
...
60 End Sub


L'errore mi si genera se il file che devo salvare è già aperto. Potete aiutarmi ad evitare che si apra il codice??


Grazie

[Avatar3]

Innanzitutto la macro non piò avere un nome con spazi

Codice: Seleziona tutto

1) Sub FileMensili()
2) inserisci qui on error (On Error GoTo saltamacro '<<< aggiungi questa riga)
....
41. ActiveWorkbook.SaveAs Filename:=NewFNameMensile
...
...
Exit sub
saltamacro:  '<<<< aggiungi questa etichetta
MsgBox "Errore macro"  '<<<< aggiungi tuo messaggio di errore

end sub