Errore di runtime '13' tipo non corrispondente

Question

Buongiorno,

avviando una macro che utilizzo ogni mattina per lavoro, ricevo finestra di errore in oggetto da Windows. Cliccando su "Debug" l'errore viene segnalato in corrispondenza della riga evidenziata nello screen che allego qui di seguito; premetto che sino ad oggi non ho mai riscontrato questo errore e nel frattempo mai fatte modifiche al codice. Ho anche disattivato da registro di sistema le impostazioni di protezione firewall, pensando fosse quello, Ma nulla cambia.

Uso Office 365.

Sapreste illuminarmi? Grazie

Answer 1

Buono, nel dubbio quel debug print mettilo così se ricapita sai dov’è il problema.
Alla prossima!

Answer 2

Ciao Simone,

qui Daniele, bentrovato nella community Microsoft,

probabilmente quello che stai tentando di assegnare ad un long non è un numero ma è visto come una stringa.

Prova a farne il cast e vedere se l'errore si risolve:

sostituisci quella riga con

pratica = CLng(.Cells(iRow, 1).Value)

ovviamente assicurati che a quella riga vi sia un numero e non un testo, per sapere di quale riga si tratta puoi fartela stampare

Debug.Print(iRow)

L'ultima stampata nella finestra immediata sarà la riga incriminata (che rima!).

Ciao Daniele,

ti ringrazio per la celere risposta, ho killato qualche processo di Windows perché ipotizzavo c'entrasse qualche protezione di sistema dopo aver aggiornato antivirus ed operativo, e magicamente il codice ha ripreso a funzionare. Ne approfitto comunque per prendere memo della tua tecnica di risoluzione per una carta in più da giocare in futuro.

Grazie!

Answer 3

Ciao Simone,

qui Daniele, bentrovato nella community Microsoft,

probabilmente quello che stai tentando di assegnare ad un long non è un numero ma è visto come una stringa.

Prova a farne il cast e vedere se l'errore si risolve:

sostituisci quella riga con

pratica = CLng(.Cells(iRow, 1).Value)

ovviamente assicurati che a quella riga vi sia un numero e non un testo, per sapere di quale riga si tratta puoi fartela stampare

Debug.Print(iRow)

L'ultima stampata nella finestra immediata sarà la riga incriminata (che rima!).