Debug hatası geliyor

[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.