Textbox ile ilgili

[Karakus4435]

Textbox Maxiumum uzunluğu 11 hane ben 11 haneden az gidiğimde textboxdan çıkmasın istiyorum. ama bir türlü yapamadım. bu konuda yardımcı olabilirmisiniz.
ben if len(Textbox1)<11 then textbox1.setfocus yaptım olmadı.

aynı kodu textbox2 nin enter yerine yazdım yine olmadı busefer textbox3 atlıyor.

şimdiden teşekkür ederim yardımlarınız için

 

[ÖmerFaruk]

if len(Textbox1)<11 then textbox1.setfocus
Exit olayına mı yazıyorsunuz?

 

[EmrExcel16]

Merhaba, bu şekilde deneyiniz..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1) < 11 Then
        MsgBox "Cikamazsin"
        Cancel = True
    End If
End Sub

 

[Huseyinkis]

Diğer Textboxların Enter kısmına formülü yazarsanız TextBox1 11 Hane yapmadan başka bir yere bilgi giremez.

Private Sub TextBox2_Enter()
If Len(TextBox1.Value) < 11 Then TextBox1.SetFocus
End Sub

 

[Karakus4435]

Merhaba, bu şekilde deneyiniz..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1) < 11 Then
        MsgBox "Cikamazsin"
        Cancel = True
    End If
End Sub

kısmen istediğim gibi yani girmeye devam etmek istiyorum ama mouse tıklamadan devam etmiyor.

 

[EmrExcel16]

MsgBox "Cikamazsin" satırını sildiğinizde de olmuyor mu ?

 

[Karakus4435]

MsgBox "Cikamazsin" satırını sildiğinizde de olmuyor mu ?

oldu teşekkür ederim hakkınızı helal edin.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar..