CommandButton1 textbox boşsa çalışmasın

[Mustafa MUTLU]

CommandButton1 e tıkladığımda UserForm2 yi açıyor ancak
texsbox2 boşsa formu açmasın ve MsgBox la TexsBox2 boş diye uyarsın
UserForm2 yi açmasın istiyorum.
Benim yazdığım kodda uyarıyor ancak UserForm2 yi açıyor.

Kod aşağıda nasıl bir değişiklik yapmalıyım ?..

Userform1 de bütününü de kontrol edebiliriz.
Boş texs veya combo varsa userform2 yi çağırmasın.


Private Sub CommandButton1_Click()

'Son Sıra Sayfasını aktif edecek.
Worksheets("Son Sıra").Select

'TextBox2 boşsa uyarı veriyor.
If Len(TextBox2.Text) = Empty Then
MsgBox "TexsBox2 Boş", vbExclamation, "Dikkat"
End If

'TextBox2 deki veriyi Sons Sıra sayfasında A2 ye kaydediyor
[a2] = TextBox38.Value

'UserForm2 açılıyor.
UserForm2.Show

'Userformdaki texs ve combo ları temizliyor
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next
End Sub

 

[hamitcan]

MsgBox "TextBox2 Boş", vbExclamation, "Dikkat":EXIT SUB

satırını değiştirin.

 

[Mustafa MUTLU]

Teşekkür ederim...