Soru Textboxlar boş geçilmesin

[iucfatih]

Merhabalar. Şöyle başlayan bi kodum vardı ama bunu değiştirmek istiyorum ve nasıl yapacağımı bilmiyorum. İstediğim şey textbox6 ve 26 dolu ise devam etsin, değilse uyarı versin.
Şimdiden teşekkür ederim hayırlı geceler..


If TextBox5 <> "" Then

Sonsatır = WorksheetFunction.CountA(Sayfa2.Range("A:A")) + 1
Sayfa2.Cells(Sonsatır, 1) = TextBox6.Text + TextBox26.Text
Sayfa2.Cells(Sonsatır, 2) = TextBox5.Text
Else
MsgBox "ESAS NO ALANLARINI DOLDURUN !!!"
End If

 

[iucfatih]

araya bi "And" koydum çalıştı
If TextBox6 <> "" And TextBox26 <> "" Then
sıkıntı yaratmaz dimi kod

 

[turist]

Çözümü bulmuşsunuz.Sorunsuz çalışır.
Eğer Textbox5 için de kontrol koymak isterseniz;
If TextBox5 <> "" And TextBox6 <> "" And TextBox26 <> "" Then
şeklinde de kullanabilirsiniz.