• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorguda Hata!

F

ferhatgurbuz

Katılım
8 Haziran 2007
Mesajlar
761
Excel Vers. ve Dili
excel- 2003 Türkçe
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.
 
Arkadaşlar benden okadar çok mu bıktınız ki yardım etmiyorsunuz
 
TextBox44 değerini hangi sütunda aratmak istiyorsunuz ?
 
Dosya Ekleme

Genelde Personel Noya GÖre Aratiyorum. Onun İÇİn BİrkaÇ DeĞİŞİklİk Ekledİm Dosyaya
 
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
 
Sorun bence burada. Siz personel noya göre arama yapacaksanız, TextBox44 değerini, personel no sütunu içinde aratın.
 
ŞÖyle Yapalim Yukaridakİ Kod Sorunsuz ÇaliŞiyor. Ama Aranan DeĞer Olmayinca Uyari Versİn. Veya Kod Sayfasini AÇmasin
 
İlgili kodu aşağıdaki ile değiştirir misiniz?
Kod: 
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
 
çok teşekkür ederim. şimdi oldu.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst