TextBox1 boş ise uyarı versin

[ferhatgurbuz]

Private Sub Sil_Click()
Sheets("Personel_Bilgi").Select

If MsgBox("Seçmiş olduğunuz kişi personel_Bilgi sayfasından tamamen silinecektir.?", vbQuestion) = vbNo Then
TextBox1.SetFocus
End If
If TextBox1.Value = "" Then Exit Sub
Set k = Range("B11:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Cells(k.Row, "B") = Empty 'PERSONEL NO
Cells(k.Row, "C") = Empty 'ÜNVANI
Cells(k.Row, "D") = Empty 'ADI


Yukarıdaki butona tıklayınca hemen "Seçmiş olduğunuz kişi personel_Bilgi sayfasından tamamen silinecektir" BU UYARIYI VERİYOR.

Textbox1 boş ise " Personel no boş olamaz uyarısı versin
sonra eğer TextBox1 dolu ise yukarıdaki uyarıyı versin

 

[Orion1]

Private Sub Sil_Click()
Sheets("Personel_Bilgi").Select

If MsgBox("Seçmiş olduğunuz kişi personel_Bilgi sayfasından tamamen silinecektir.?", vbQuestion) = vbNo Then
TextBox1.SetFocus
End If
If TextBox1.Value = "" Then Exit Sub
Set k = Range("B11:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Cells(k.Row, "B") = Empty 'PERSONEL NO
Cells(k.Row, "C") = Empty 'ÜNVANI
Cells(k.Row, "D") = Empty 'ADI


Yukarıdaki butona tıklayınca hemen "Seçmiş olduğunuz kişi personel_Bilgi sayfasından tamamen silinecektir" BU UYARIYI VERİYOR.

Textbox1 boş ise " Personel no boş olamaz uyarısı versin
sonra eğer TextBox1 dolu ise yukarıdaki uyarıyı versin

Aşağıdaki kodu deneyiniz.

Private Sub Sil_Click()
Sheets("Personel_Bilgi").Select
[COLOR="Red"][B]if textbox1.value = ""  then 
       msgbox "Personel no boş olamaz..!!"
       textbox1.setfocus
       exit sub
end if[/B][/COLOR]
If MsgBox("Seçmiş olduğunuz kişi personel_Bilgi sayfasından tamamen silinecektir.?", vbQuestion) = vbNo Then
    TextBox1.SetFocus
   End If
If TextBox1.Value = "" Then Exit Sub
Set k = Range("B11:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Cells(k.Row, "B") = Empty 'PERSONEL NO
Cells(k.Row, "C") = Empty 'ÜNVANI
Cells(k.Row, "D") = Empty 'ADI

 

[ferhatgurbuz]

teşekkür ederim. hayırlı akşamlar

 

[Orion1]

teşekkür ederim. hayırlı akşamlar

Rica ederim.
İyi akşamlar.