Sorguda Hata!

[ferhatgurbuz]

Arkadaşlar ekteki dosyada kişisel bordro adlı userform üzerinde sorgu çalıştırdığımda kişi bilgileri form üzerine gelmiyor.

Yardımcı olursanız çok sevinirim.

 

[ferhatgurbuz]

Arkadaşlar benden okadar çok mu bıktınız ki yardım etmiyorsunuz

 

[hamitcan]

TextBox44 değerini hangi sütunda aratmak istiyorsunuz ?

 

[ferhatgurbuz]

TÜm Belgede Aratmak İstİyordum.

 

[ferhatgurbuz]

Dosya Ekleme

Genelde Personel Noya GÖre Aratiyorum. Onun İÇİn BİrkaÇ DeĞİŞİklİk Ekledİm Dosyaya

 

[ferhatgurbuz]

Private Sub CommandButton1_Click()
Sheets("Data").Select
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

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


BU KOD VAR İKEN ARADIĞIM ŞEYİ BULUYOR VE FORM ÜZERİNE GETİRİYOR.AMA ARADIĞIM DEĞER YOKSA DİREK OLARAK KOD SAYFASINI AÇIYOR

 

[hamitcan]

Sorun bence burada. Siz personel noya göre arama yapacaksanız, TextBox44 değerini, personel no sütunu içinde aratın.

 

[ferhatgurbuz]

ŞÖyle Yapalim Yukaridakİ Kod Sorunsuz ÇaliŞiyor. Ama Aranan DeĞer Olmayinca Uyari Versİn. Veya Kod Sayfasini AÇmasin

 

[hamitcan]

İlgili kodu aşağıdaki ile değiştirir misiniz?

Private Sub CommandButton1_Click()
Sheets("Data").Select
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
'On Error Resume Next
'Cells.Find(What:=TextBox44.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
':=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
'True, SearchFormat:=False).Activate
Set bul = Columns("B").Find(TextBox44.Value, LOOKAT:=xlWhole)

If bul Is Nothing Then
MsgBox "Aradığınız veri bulunamadı. Lütfen yaptığınız girişi kontrol ediniz."
Exit Sub
End If
Cells(bul.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, 42).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
TextBox42.Value = ActiveCell.Offset(0, 59).Value 'Lojman Kirası
TextBox43.Value = ActiveCell.Offset(0, 70).Value 'Artış Keseneği
TextBox48.Value = ActiveCell.Offset(0, 55).Value 'Lojman Kirası
TextBox49.Value = ActiveCell.Offset(0, 56).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]

çok teşekkür ederim. şimdi oldu.