Nakdi yardım programı-debug hataları

[Ercan_ÇELİKOĞLU]

ekli program sayın fpc tarafından yapılmıştır bir ara sayın hsayar bir ekleme yaptı ancak sanırım bağlantı hatası yaptığı için çalışmadı.

Çocuk girişine basıp örnek cumhur arslan'ın bilgilerini değiştirip tamam dediğimde direkt olarak debug hatası geliyor buna bir çare:
'=========İLAVE HSAYAR
shC.Select: Range("B1:O" & son).Select
satırı debug hatası vermekte!

nakdi yardım bordrosu raporla dediğimde :
arrVeri(y, 18) = Application.WorksheetFunction.VLookup(Application. WorksheetFunction.VLookup(shC.Cells(i, 2), shV.Range("A1:E" & shV.Cells(65536, 1).End(xlUp).Row), 4, False), shS.Range("A2" & shS.Cells(65536, 1).End(xlUp).Row), 3, False)
satırı da debug vermekte
banka listesi raporla dediğimde :
arrVeriAna(i, 6) = Application.WorksheetFunction.VLookup(Application. WorksheetFunction.VLookup(arrVeri(i), shV.Range("A2:E" & shV.Cells(65536, 1).End(xlUp).Row), 4, False), shS.Range("A2" & shS.Cells(65536, 1).End(xlUp).Row), 3, False)
satırı debug vermekte
yani bir çok debug hatası almaktayım bu programı çalışır hale getirebilecek herkese şimdiden teşekkürlerimi bir borç bilirim.
Ekli program bir nakdi yardım programıdır;
bir tek eklenmesi gereken bir şey daha var şimdi yardıma muhtaç kişiye hem aylaık hemde 1 defaya mahsus olmak üzere 3 katı veya 6 katı yardım yapılabilmektedir bu nedenle en önemlisi user forma bu seçenekleri ekleyebilirmiyiz yani ay yerine 3 katı veya 6 katı yazılmasını sağlayabilirmiyiz ama sadece o durumda olanları girmek için yani ay sütünlarında hem ay hemde kat seçenekleri olmalı?
Bazılarınız dosyayı açamayabilir o zaman bilgisayarınızda gerekli ocx dosyaları yüklü değil demektir açamayanların library.files dosyasını yüklememesi gerekmektedir.
http://www.tamindir.com/program/6060/Library_Files.htm Açılan sayfada PROGRAMI YÜKLE SEÇENEĞİNE TIKLAYARAK YÜKLEYEBİLİRSİNİZ.

 

[hsayar]

ekli program sayın fpc tarafından yapılmıştır bir ara sayın hsayar bir ekleme yaptı ancak sanırım bağlantı hatası yaptığı için çalışmadı.

Çocuk girişine basıp örnek cumhur arslan'ın bilgilerini değiştirip tamam dediğimde direkt olarak debug hatası geliyor buna bir çare:
'=========İLAVE HSAYAR
shC.Select: Range("B1:O" & son).Select
satırı debug hatası vermekte!

Private Sub CommandButton1_Click()
Dim son%, satir%, i%
Dim ctrl As Control
For Each ctrl In frm_Cocuk.Controls
    If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
       If ctrl = Empty Then: MsgBox "Alan boş geçilemez", vbCritical, "BOŞ ALAN": Exit Sub
    End If
Next

Set shC = Sheets("Cocuk")
For i = 2 To shC.Cells(65536, 1).End(xlUp).Row
    If YeniCocuk = False And i = CDbl(ListView1.SelectedItem) + 1 Then GoTo f1
       If shC.Cells(i, 3) = TextBox7 And shC.Cells(i, 2) = TextBox8 Then
          MsgBox "Aynı isimli bir çocuk daha var. Kontrol ediniz", vbCritical, "MÜKERRER GİRİŞ"
          Set shC = Nothing
          Exit Sub
    End If
f1:
Next i
Set shV = Sheets("Veli")
If YeniCocuk = True Then
   With shC
        son = .Cells(65536, 1).End(xlUp).Row + 1
        .Cells(son, 1) = Application.WorksheetFunction.Max(.Range("A2:A" & son)) + 1
        For i = 2 To shV.Cells(65536, 1).End(xlUp).Row
            If ComboBox7.List(ComboBox7.ListIndex, 0) = shV.Cells(i, 2) And _
               ComboBox7.List(ComboBox7.ListIndex, 1) = shV.Cells(i, 3) Then
                   .Cells(son, 2) = shV.Cells(i, 1)
            End If
        Next i
        .Cells(son, 3) = TextBox7
        .Cells(son, 4) = TextBox8
        .Cells(son, 5) = ComboBox1
        .Cells(son, 6) = CheckBox1
        .Cells(son, 7) = OptionButton1
        .Cells(son, 8) = OptionButton2
        .Cells(son, 9) = CheckBox2
        .Cells(son, 10) = CheckBox3
        .Cells(son, 11) = CheckBox4
        .Cells(son, 13) = CDate("01." & ComboBox2.ListIndex + 1 & "." & TextBox13)
        .Cells(son, 14) = CDate("01." & ComboBox3.ListIndex + 1 & "." & TextBox14)
        .Cells(son, 15) = CheckBox5
   End With
'=========İLAVE HSAYAR
    shC.Select: Range("B1:O" & son).Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
    Sheets("Anasayfa").Select: Range("A1").Select
'==============İLAVE BİTTİ
Else
   With shC
        satir = CDbl(ListView1.SelectedItem) + 1
        For i = 2 To shV.Cells(65536, 1).End(xlUp).Row
            If ComboBox7.List(ComboBox7.ListIndex, 0) = shV.Cells(i, 2) And _
               ComboBox7.List(ComboBox7.ListIndex, 1) = shV.Cells(i, 3) Then
                   .Cells(satir, 2) = shV.Cells(i, 1)
            End If
        Next i
        .Cells(satir, 3) = TextBox7
        .Cells(satir, 4) = TextBox8
        .Cells(satir, 5) = ComboBox1
        .Cells(satir, 6) = CheckBox1
        .Cells(satir, 7) = OptionButton1
        .Cells(satir, 8) = OptionButton2
        .Cells(satir, 9) = CheckBox2
        .Cells(satir, 10) = CheckBox3
        .Cells(satir, 11) = CheckBox4
        .Cells(satir, 13) = CDate("01." & ComboBox2.ListIndex + 1 & "." & TextBox13)
        .Cells(satir, 14) = CDate("01." & ComboBox3.ListIndex + 1 & "." & TextBox14)
        .Cells(satir, 15) = CheckBox5
   End With
End If

Call Yeni_Cocuk
Call ListeGuncelle_Cocuk
Set shV = Nothing
Set shC = Nothing
End Sub

frm_cocuk userformundaki command buton 1 olayını değiştiriniz

 

[Ercan_ÇELİKOĞLU]

nasıl değişecek?

 

[Ercan_ÇELİKOĞLU]

Tamam değiştirdim

şimdi çocuk girişi hata vermiyor ancak halen banka listesi raporla dediğimde sorun şu :
ve ücret bordrosundada ilk mesajda belirttiğim satırlar debeug vermekte.

arrVeriAna(i, 6) = Application.WorksheetFunction.VLookup(Application.WorksheetFunction.VLookup(arrVeri(i), shV.Range("A2:E" & shV.Cells(65536, 1).End(xlUp).Row), 4, False), shS.Range("A2" & shS.Cells(65536, 1).End(xlUp).Row), 3, False)
satırı debug veriyor.

 

[Ercan_ÇELİKOĞLU]

sayın excel üstadları lütfen yardım

Lütfen yardım programda bir çok yerde debug hatası var

 

[Ercan_ÇELİKOĞLU]

Kimsenin yardıma niyeti yokmu?

 

[Ercan_ÇELİKOĞLU]

sizlere bir öneri daha önce yapılan programı boşverin baştan yeni bir dizayn yolu varmı?