vba2003: textbox evento afterupdate o exit

[karug64]

Salve a tutti.
Non riesco a capire perche' se nell'evento afterupdate metto questo codice

If MsgBox("Confermi la scelta " & UCase(Principale.f_dip.Text) & "?", vbInformation + vbYesNo, "Dipendenza") = vbYes Then
f_dip.Enabled = False
Sheets("Dati_comuni").Range("H14").Value = "SI"
Sheets("Dati_comuni").Range("I14").Value = CDbl(f_codfil)
Sheets("Dati_comuni").Range("J14").Value = Principale.f_dip.Text
Sheets("Dati_comuni").Range("k14").Value = f_ubicaz
endif

Quando finisco di digitare sul texbox mi compare la domanda (OK), ma se rispondo NO e mi riposizione sul texbox, modificando il campo digitato, la domanda non viene piu' riproposta.

Ho provato a mettere lo stesso codice nell'evento exit, ma questa volta, funziona anche entrando e uscendo piu' volte dal focus, ma mi propone la domanda due volte ?!?!?

Come posso risolvere ?
Grazie

[Flash30005]

Prova ad usare il KeyDown così:

Codice: Seleziona tutto

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
'...
'...
endif

Discussione che trovi qui
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=93952

Ciao

[Anthony47]

A parte il suggerimento di Flash (vedi sopra) quale e' la macro completa di gestione dell' evento f_dip_AfterUpdate? (da Sub a End Sub).
Poi non ho capito se la gestione dell' evento Exit e' regolare o anomala.

Ciao