Errore di runtime 1004.....ma funziona!!!

[papiriof]

questo il messaggio d'errore .....

Errore di runtime 1004:
Imposibile trovare la proprietà VLookup per la classe Workseet Function
riferito a

Codice: Seleziona tutto

Private Sub TextBox6_Change()
TextBox8.Value = Application.WorksheetFunction.VLookup(TextBox2.Value, Worksheets("t1").Range("Dipe"), 2, False) & TextBox3.Value & TextBox6.Value
End Sub

ma cliccando su " FINE " è tutto a posto nel senso che esegue quello il codice correttamente
Volevo sapere il perchè e come si fa ad eliminare quel messaggio

[Anthony47]

Il vba va in errore quando la voce cercata non esiste in elenco, cioe' quando la stessa vlookup dovrebbe dare #N/D.
In questa situazione, la cosa piu' semplice (e aderente alla logica da realizzare) e' far precedere l' istruzione da

Codice: Seleziona tutto

On Error Resume next


Visto che e' l' ultima prima di End Sub non e' necessario inserire subito dopo On Error Goto 0

Ciao

[papiriof]

Il vba va in errore quando la voce cercata non esiste in elenco, cioe' quando la stessa vlookup dovrebbe dare #N/D.
In questa situazione, la cosa piu' semplice (e aderente alla logica da realizzare) e' far precedere l' istruzione da

Codice: Seleziona tutto

On Error Resume next


Visto che e' l' ultima prima di End Sub non e' necessario inserire subito dopo On Error Goto 0

Ciao

Perdona la mia ignoranza ma all'interno di questo codice

Codice: Seleziona tutto

Private Sub TextBox6_Change()
TextBox8.Value = Application.WorksheetFunction.VLookup(TextBox2.Value, Worksheets("t1").Range("Dipe"), 2, False) & TextBox3.Value & TextBox6.Value
End Sub

questo codice " On Error Resume next" dove lo inserrico???? e " On Error Goto 0" dove??

[papiriof]

SCUSA ANTONY ho risolto !!!! va messo nella riga precedente dove si verifica l'errore in sostanza il comando dice "qualora si verifichi un errore in questa sub vai all' istruzione successiva .
Fatto bene a non rispondere subuto così ci si sforza a capire di più!!!!! GRAZIE