textboxta setfocus

[musculus]

Herkese merhaba benim 1.sorunum girmiş olduğum 4 adet textbox var.Birinci textbox'a tarih girilmez ise uyarı verip tekrar textbox1'e dönmesini sağlayamadım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) Then Exit Sub
MsgBox "lütfen tarih giriniz"
TextBox1.Value = ""
TextBox1.SetFocus

End Sub

2.sorunum ise combox1'e sayfa1 den veri aldırıyorum ama sayfa1'deki veriler dışında veri girilmesini istemiyorum ama başaramadım.

 

[hamitcan]

1.sorunuz

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsDate(TextBox1) Then Exit Sub
    MsgBox "lütfen tarih giriniz"
    TextBox1.Value = ""
    Cancel = True
End Sub

2.sorunuz

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!a1:a5"
End Sub

 

[musculus]

ilginiz ve bilginiz için teşekkür ederim sayın Hamitcan çözüm mükemmel.

2.sorumda yalnız a1:a5 veri aralığı dışında veri girişine izin verilmesin istiyorum ama ben başaramadım.

 

[hamitcan]

Aşağıdaki kodu bir deneyin.

Sub kilitle()
Worksheets(1).ScrollArea = "a1:a5"
End Sub

 

[musculus]

Malesef sorun çözülmedi userformda excelin içindeki gibi veri doğrulama var mı acaba ?

 

[hamitcan]

Önceki kodu silip aşağıdakini ekleyin.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa1!a1:a5"
    ComboBox1.Style = fmStyleDropDownList
End Sub

 

[musculus]

Mükemmel oldu teşekkür ederim.