Spin Button sorunu

[ferhatgurbuz]

kolay gelsin. Sorgu çalıştır ile Bordro ve Personel bilgi sayfalarından veri alıyorum. Aşağıdaki kod ile de veriler arasında gezinirken sadece bordrodan verileri aldığını farkettim. Yani Sipin Button ile bir başka veriyi çağırdığımda bordro sayfasındaki veriler geliyor ama Personel bilgi sayfasındaki verileri almıyor. Bu konuda yardımlarınızı bekliyorum. Hayırlı çalışmalar







Private Sub SpinButton1_SpinUp()
Sheets("Bordro").Select
If TextBox75.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If

sat = ActiveCell.Row
For s = (sat + 1) To Range("A65536").End(3).Row

Set bak = Range("b" & s & ":bw" & s).Find(TextBox75.Value, , xlValues, xlWhole)
If bak Is Nothing Then GoTo 5
Cells(s, "a").Select
GoTo 6
5
Next
6

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
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Kademe 1
TextBox8.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox30.Value = ActiveCell.Offset(0, 12).Value 'Aylık Tutar
TextBox31.Value = ActiveCell.Offset(0, 13).Value 'Taban Aylık Tutarı
TextBox32.Value = ActiveCell.Offset(0, 14).Value 'Ek GÖsterge Tutarı
TextBox33.Value = ActiveCell.Offset(0, 15).Value 'Yan Ödeme Tutarı
TextBox34.Value = ActiveCell.Offset(0, 16).Value 'Kıdem Aylık Tutarı
TextBox35.Value = ActiveCell.Offset(0, 19).Value 'Aile Yardımı
TextBox36.Value = ActiveCell.Offset(0, 20).Value 'Çocuk Yardımı
TextBox37.Value = ActiveCell.Offset(0, 21).Value 'Emekli Sandığı Devlet Artışı % 20
TextBox38.Value = ActiveCell.Offset(0, 23).Value '% 100 Artış Keseneği
TextBox39.Value = ActiveCell.Offset(0, 24).Value 'Özel Hizmet Ve Adalet Tazminatı
TextBox40.Value = ActiveCell.Offset(0, 27).Value 'Fark Tazminatı
TextBox41.Value = ActiveCell.Offset(0, 28).Value '% 20 Emekli keseneği
TextBox42.Value = ActiveCell.Offset(0, 29).Value 'Sendika ödeneği
TextBox43.Value = ActiveCell.Offset(0, 30).Value 'Vergi iade
TextBox44.Value = ActiveCell.Offset(0, 31).Value 'Mesai
TextBox46.Value = ActiveCell.Offset(0, 17).Value 'SGK %7,5
TextBox48.Value = ActiveCell.Offset(0, 22).Value '% 25 giriş
TextBox50.Value = ActiveCell.Offset(0, 32).Value 'Gelir Vergisi
TextBox51.Value = ActiveCell.Offset(0, 33).Value 'Damga Vergisi
TextBox52.Value = ActiveCell.Offset(0, 35).Value 'Artış
TextBox53.Value = ActiveCell.Offset(0, 36).Value '% 16
TextBox54.Value = ActiveCell.Offset(0, 37).Value '% 20
TextBox55.Value = ActiveCell.Offset(0, 38).Value 'Kefalet
TextBox57.Value = ActiveCell.Offset(0, 40).Value 'hizmet
TextBox58.Value = ActiveCell.Offset(0, 41).Value 'nafaka
TextBox59.Value = ActiveCell.Offset(0, 42).Value 'icra
TextBox60.Value = ActiveCell.Offset(0, 43).Value 'sendika
TextBox61.Value = ActiveCell.Offset(0, 44).Value 'ilaç
TextBox64.Value = ActiveCell.Offset(0, 34).Value '%25 Giriş Kişi
TextBox70.Value = ActiveCell.Offset(0, 45).Value 'ilaç
TextBox71.Value = ActiveCell.Offset(0, 46).Value 'ilaç
TextBox66.Value = ActiveCell.Offset(0, 17).Value 'SGK %7,5
TextBox65.Value = ActiveCell.Offset(0, 18).Value 'SGK %5
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.

Set bul = Sheets("Personel_bilgi").Columns("B:Bw").Find(TextBox75.Value, , xlValues, xlWhole)
' BU SATIRI KENDİNİZE GÖRE DÜZENLEYİNİZ. Hangi sütun(lar) da ne aranacaksa ...
If bul Is Nothing Then
MsgBox "Personel bilgi sayfasında istenen bulunamadı"
Else
TextBox9.Value = Sheets("Personel_bilgi").Cells(bul.Row, 15) 'Gösterge
TextBox10.Value = Sheets("Personel_bilgi").Cells(bul.Row, 16) 'Ek Gösterge
TextBox11.Value = Sheets("Personel_bilgi").Cells(bul.Row, 18) 'Kıdem Yılı
TextBox12.Value = Sheets("Personel_bilgi").Cells(bul.Row, 24) 'Kıstas Aylık
TextBox13.Value = Sheets("Personel_bilgi").Cells(bul.Row, 49) 'Emekli Sicil No
TextBox14.Value = Sheets("Personel_bilgi").Cells(bul.Row, 48) 'banka Hesap No
TextBox15.Value = Sheets("Personel_bilgi").Cells(bul.Row, 47) 'T.C. Kimlik No
TextBox45.Value = Sheets("Personel_bilgi").Cells(bul.Row, 39) 'Mesai
TextBox72.Value = Sheets("Personel_bilgi").Cells(bul.Row, 41) 'geçim indirimi
TextBox47.Value = Sheets("Personel_bilgi").Cells(bul.Row, 51) 'Maaş Farkı
TextBox62.Value = Sheets("Personel_bilgi").Cells(bul.Row, 43) 'for
TextBox63.Value = Sheets("Personel_bilgi").Cells(bul.Row, 45) 'Yemek
TextBox56.Value = Sheets("Personel_bilgi").Cells(bul.Row, 57) 'Kira
TextBox73.Value = Sheets("Personel_bilgi").Cells(bul.Row, 26) 'Ek Ödeme
End If

Dim Topla1 As Double, Topla2 As Double

For x = 30 To 48 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & x)) Then
Topla1 = Topla1 + Replace(Controls("TextBox" & x), ".", ",")
End If
Next
TextBox67 = Format(Topla1, "#,##0.00")
topla = 0
For x = 50 To 66 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & x)) Then
Topla2 = Topla2 + Replace(Controls("TextBox" & x), ".", ",")
End If
Next
TextBox68 = Format(Topla2, "#,##0.00")
TextBox69 = Format((CDbl(TextBox67) - CDbl(TextBox68)), "#,##0.00")
End Sub