textbox.setfocus

[mekuka]

Merhabalar,
yapmaya çalıştığım olay aşağıdaki komuttan sonra textbox85 hücresini silmesi ve textbox85 de kalması. Veriyi siliyor fakat hücrede durmuyor textbox86 ya gidiyor. Bunun nedeni ne olabilir. Dosya boyutu çok yüksek olduğu için ekleyemiyorum. Yardımlarınız bekliyorum.


Private Sub TextBox85_afterupdate()
If Not TextBox85 = IsNumeric(TextBox85) Or Not Len(TextBox85) = 10 Then
MsgBox "Lütfen sadece 10 hane ve yalnızca rakam giriniz." & vbLf & "Örnek : (332) 248 23 81"
TextBox85 = ""
TextBox85.SetFocus
Exit Sub
End If
TextBox85 = Format(TextBox85, "(000) 000 00 00")
End Sub

 

[Ayhan Ercan]

Merhaba
Kodunuzdaki Textbox85.Setfocus satırını silin ve Textbox86 ya aşağıdaki kodu yazarak deneyiniz..

Private Sub TextBox86_Enter()
If TextBox85 = "" Then TextBox85.SetFocus
End Sub

 

[mekuka]

Merhaba
Kodunuzdaki Textbox85.Setfocus satırını silin ve Textbox86 ya aşağıdaki kodu yazarak deneyiniz..

Private Sub TextBox86_Enter()
If TextBox85 = "" Then TextBox85.SetFocus
End Sub

o zamanda textbox87 ye gidiyor.
bu ne iş anlamadım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub TextBox85_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox85) Or Len(TextBox85) <> 10 Then
    MsgBox "Lütfen sadece 10 hane ve yalnızca rakam giriniz." & vbLf & "Örnek : (332) 248 23 81"
    TextBox85 = ""
    Cancel = True
    Exit Sub
    End If
    TextBox85 = Format(TextBox85, "(000) 000 00 00")
End Sub

 

[mekuka]

Sn. Korhan Ayhan

Çok Teşekkür Ederim. Çalıştı.

Elleriniz ve beyniniz dert görmesin.

Ama başka hücrelerde bazen çalışan komutun bu hücrede neden çalışmadığını anlamanın bir yolu yok mu? VBA gelişimim için önemli olduğundan dolayı soruyorum.