sorgu çalıştırdığımda hata veriyor

[ferhatgurbuz]

Aşağıdaki dosyada kişisel bordro adlı userform üzerindeki sorgu çalıştır butonunu arama yapılacak hücre boş iken hata veriyor. Hata yerine uyarı vermesini istiyorum. bir değer giriniz falan gibi

 

[kulomer46]

aşağıda gerekli değişiklikler yapılmış kod var. dosya boyutu büyük olduğundan ekleyemedim..
Private Sub CommandButton1_Click()

'.........................eklenen kodlar burada......................
If TextBox44.Value = "" Or TextBox44.Value = 0 Or TextBox44.Value = " " Then
MsgBox "text kutusu boş. Lütfen bir değer giriniz.."
Exit Sub
End If
'...................eklenen kod sonu.. iyi çalışmalar... ................



Cells.Find(What:=TextBox44.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate

Cells(ActiveCell.Row, 1).Select

TextBox1.Value = ActiveCell.Value 'Sıra No
TextBox2.Value = ActiveCell.Offset(0, 1).Value 'Personel No
TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Ünvanı
TextBox4.Value = ActiveCell.Offset(0, 3).Value 'Adı
TextBox5.Value = ActiveCell.Offset(0, 4).Value 'Soyadı
TextBox6.Value = ActiveCell.Offset(0, 5).Value 'Aylık Derece Kademe 1
TextBox45.Value = ActiveCell.Offset(0, 6).Value 'Aylık Derece Kademe 1
TextBox7.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox8.Value = ActiveCell.Offset(0, 13).Value 'Gösterge
TextBox9.Value = ActiveCell.Offset(0, 15).Value 'Ek Gösterge
TextBox10.Value = ActiveCell.Offset(0, 18).Value 'Kıdem Yılı
TextBox14.Value = ActiveCell.Offset(0, 26).Value 'Kıstas Aylık Oranı
TextBox11.Value = ActiveCell.Offset(0, 48).Value 'Emekli Sicil No
TextBox12.Value = ActiveCell.Offset(0, 47).Value 'TC.-Vergi Kimlik No
TextBox13.Value = ActiveCell.Offset(0, 46).Value 'Banka Hesap No
TextBox15.Value = ActiveCell.Offset(0, 14).Value 'Aylık
TextBox16.Value = ActiveCell.Offset(0, 16).Value 'Ek Gösterge
TextBox17.Value = ActiveCell.Offset(0, 17).Value 'Taban Aylık
TextBox18.Value = ActiveCell.Offset(0, 19).Value 'Kıdem Aylığı
TextBox19.Value = ActiveCell.Offset(0, 21).Value 'Çocuk Yardımı
TextBox20.Value = ActiveCell.Offset(0, 23).Value 'Aile Yardımı
TextBox21.Value = ActiveCell.Offset(0, 36).Value 'Yan Ödeme
TextBox22.Value = ActiveCell.Offset(0, 25).Value 'Özel Hizmet Tazminatı
TextBox23.Value = ActiveCell.Offset(0, 29).Value 'Yargı Ödeneği
TextBox24.Value = ActiveCell.Offset(0, 27).Value 'Kıstas Aylık
TextBox25.Value = ActiveCell.Offset(0, 31).Value 'Denge Tazminatı
TextBox26.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox27.Value = ActiveCell.Offset(0, 32).Value 'Sendika ödeneği
TextBox28.Value = ActiveCell.Offset(0, 68).Value 'Denge Tazminatı
TextBox29.Value = ActiveCell.Offset(0, 69).Value '% 20 Emekli keseneği
TextBox30.Value = ActiveCell.Offset(0, 72).Value 'Sendika ödeneği
TextBox47.Value = ActiveCell.Offset(0, 67).Value 'kesif Ücreti
TextBox31.Value = ActiveCell.Offset(0, 40).Value 'Gelir Vergisi
TextBox32.Value = ActiveCell.Offset(0, 41).Value 'Damga Vergisi
TextBox33.Value = ActiveCell.Offset(0, 38).Value '% 16 Emekli keseneği
TextBox34.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox35.Value = ActiveCell.Offset(0, 51).Value '% 16 Emekli keseneği
TextBox36.Value = ActiveCell.Offset(0, 52).Value '% 20 Emekli keseneği
TextBox37.Value = ActiveCell.Offset(0, 71).Value '% 20 Emekli keseneği
TextBox38.Value = ActiveCell.Offset(0, 43).Value '% 16 Emekli keseneği
TextBox39.Value = ActiveCell.Offset(0, 63).Value '% 20 Emekli keseneği
TextBox40.Value = ActiveCell.Offset(0, 50).Value 'Lojman Kirası
TextBox41.Value = ActiveCell.Offset(0, 66).Value 'Artış Keseneği
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.

End Sub

 

[ferhatgurbuz]

teşekkür ederim. Ya bir sıkıntım daha var.Spin Buttonla ileri gittiğimde boş olan hücrelere gelince dursun istiyorum.

 

[ferhatgurbuz]

arkadaşlar hadi bir el atalım şu dosyaya.