on error goto label

Hai un problema con Excel?

Nuova discussione

"on error goto label" ???
di Soncia (utente non iscritto) data: 01/10/2009
Ho un problema (tanto per cambiare). ho scritto un lungo cidice da cui estraggo solo poche righe

sub cmbvendite_click()
private l as double
on error goto copia_riga_nel_foglio_errori
for r = 2 to lastriga
[...]
l = sheets("ordini").cells(r, 7) / 1000
[...] segue parte di codice in cui copio questi valori in un altro foglio
next r
exit sub
[...]
copia_riga_ nel_foglio_errori:
[...]
end sub

capita che arrivando a una certa riga del foglio ordini (ovvero il mo foglio su cui eseguo il ciclo for), in corrispondenza della cella (r, 7) non si trova un valore numerico bensì una stringa (per un errore di inserimento da parte della segretaria). io vorrei che il programma gestisse l'errore come volgio io, ovvero copiando la riga su un altro foglio di lavoro con un codice scritto dopo l'etichetta "copia_riga_ nel_foglio_errori". fatto sta che non so per quale ragione assurda il codice si blocca con un messaggio d'errore che più o meno dice così: "errore di run-time 13 - tipo non corrispondente". se per esempio invece sostituisco "l = sheets("ordini").cells(r, 7) / 1000" con "l = 100 / 0", viceversa viene riconsociuto l'ordine di eseguire quella aprte di codice dopo la la label "copia_riga_ nel_foglio_errori"

spero si capisca più o meno il mio problema e vorrei che qualcuno anche se non sapesse esattamente il motivo dell'errore, mi potesse dare qualceh indicazione a triguardo... perchè io non ne ho la più pallida idea!!!

grazie mille

Vuoi Approfondire?