Boş hücreye gelince kod sayfasında hata veriyor.

[ferhatgurbuz]

Userform üzerinde Spin Button ile ileri geri giderken boş hücreye gelince hata veriyor. Bu hatayı nasıl giderebiliriz.

 

[Ferhat Pazarçevirdi]

Userform3'teki Spinbutton1'in SpinDown olay kodunu aşağıdaki ile değiştiriniz. Diğer userformlar'da da aynı hatayı alıyorsanız, spinbutton kodlarını buradaki şekilde revize edin.

Private Sub SpinButton1_SpinDown()
Sheets("Data").Select
If TextBox65.Value = "" Then
MsgBox "Sorgu Çalıştırmak İçin Herhangi Bir Bilgi Giriniz..."
Exit Sub
End If
[COLOR=blue]If ActiveCell.Row < 11 Then Exit Sub[/COLOR]
Cells(ActiveCell.Row - 1, 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
TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Kademe 1
TextBox8.Value = ActiveCell.Offset(0, 9).Value 'Medeni Hali
TextBox9.Value = ActiveCell.Offset(0, 13).Value 'Gösterge
TextBox10.Value = ActiveCell.Offset(0, 15).Value 'Ek Gösterge
TextBox11.Value = ActiveCell.Offset(0, 18).Value 'Kıdem Yılı
TextBox12.Value = ActiveCell.Offset(0, 26).Value 'Kıstas Aylık Oranı
TextBox13.Value = ActiveCell.Offset(0, 48).Value 'Emekli Sicil No
TextBox14.Value = ActiveCell.Offset(0, 47).Value 'TC.-Vergi Kimlik No
TextBox15.Value = ActiveCell.Offset(0, 46).Value 'Banka Hesap No
TextBox30.Value = ActiveCell.Offset(0, 14).Value 'Aylık
TextBox31.Value = ActiveCell.Offset(0, 16).Value 'Ek Gösterge
TextBox32.Value = ActiveCell.Offset(0, 17).Value 'Taban Aylık
TextBox33.Value = ActiveCell.Offset(0, 19).Value 'Kıdem Aylığı
TextBox34.Value = ActiveCell.Offset(0, 21).Value 'Çocuk Yardımı
TextBox35.Value = ActiveCell.Offset(0, 23).Value 'Aile Yardımı
TextBox36.Value = ActiveCell.Offset(0, 36).Value 'Yan Ödeme
TextBox37.Value = ActiveCell.Offset(0, 25).Value 'Özel Hizmet Tazminatı
TextBox38.Value = ActiveCell.Offset(0, 29).Value 'Yargı Ödeneği
TextBox39.Value = ActiveCell.Offset(0, 27).Value 'Kıstas Aylık
TextBox40.Value = ActiveCell.Offset(0, 31).Value 'Denge Tazminatı
TextBox41.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox42.Value = ActiveCell.Offset(0, 32).Value 'Sendika ödeneği
TextBox43.Value = ActiveCell.Offset(0, 68).Value 'Vergi iade
TextBox44.Value = ActiveCell.Offset(0, 69).Value 'Mesai
TextBox45.Value = ActiveCell.Offset(0, 73).Value 'Maaş Farkı
TextBox46.Value = ActiveCell.Offset(0, 67).Value 'kesif Ücreti
TextBox50.Value = ActiveCell.Offset(0, 40).Value 'Gelir Vergisi
TextBox51.Value = ActiveCell.Offset(0, 41).Value 'Damga Vergisi
TextBox52.Value = ActiveCell.Offset(0, 38).Value '% 16 Emekli keseneği
TextBox53.Value = ActiveCell.Offset(0, 37).Value '% 20 Emekli keseneği
TextBox54.Value = ActiveCell.Offset(0, 51).Value 'Büro Emekçileri
TextBox55.Value = ActiveCell.Offset(0, 52).Value 'Bağımsız Büro
TextBox56.Value = ActiveCell.Offset(0, 71).Value 'İcra Kesintisi
TextBox57.Value = ActiveCell.Offset(0, 42).Value 'Kefalet Kesintis
TextBox58.Value = ActiveCell.Offset(0, 63).Value 'İlaç Kesintisi
TextBox59.Value = ActiveCell.Offset(0, 72).Value 'Lojman Kirası
TextBox60.Value = ActiveCell.Offset(0, 53).Value 'Artış Keseneği
TextBox61.Value = ActiveCell.Offset(0, 59).Value 'Yemek Kesintisi
TextBox62.Value = ActiveCell.Offset(0, 70).Value 'Fon kesintisi
TextBox63.Value = ActiveCell.Offset(0, 64).Value 'Askerlik Borçlanması
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.
Dim topla1, topla2 As Single
For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla1 = topla1 + Controls("TextBox" & X) * 1
End If
Next
TextBox67 = topla1
[COLOR=blue]If TextBox67 = "" Then topla1 = 0: Exit Sub[/COLOR]
topla = 0
For X = 50 To 63 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla2 = topla2 + Controls("TextBox" & X) * 1
End If
Next
TextBox68 = Format(topla2, "#,##0.00")
'On Error Resume Next
TextBox69 = Format(TextBox67, "#,##0.00") - Format(TextBox68, "#,##0.00")
End Sub

 

[ferhatgurbuz]

teşekkür ederim sayın fpc. tam istediğim gibi oldu