Hesap koduna göre aktarma

[bravo64]

Merhaba arkadaşlar,
Ekte gönderdiğim dosyada,mahsup giriş sayfasında hesapların kodlarına göre ilgili hesap sayfasının borç hücresine işletmeye çalıştım..Kendi bilgilerim ölçüsünde birşeyler yapmaya çalışıyorum ama kodu çalıştırdığımda subcript out of range veriyor.
Daha sonra aynı işlemi alacaklı hesaplar için yapacağım..bakıp inceleyebilecek arkadaşlara teşekkür ederim..
iyilikler

 

[bravo64]

Açıklama;
mahsup giriş formunda yazan her hesap adına göre kayıt yapılacak.Yani 1.satırda diyelim 102 bankalar hesabı 1000 ise ,1000 102 nolu sayfaya yazılacak..Diğer satırlardaki hesaplar da sırayla aynı işlem yapılacak..
Belki yardımcı olur diye ilave etmek istedim..

 

[bravo64]

Arkadaşlar ekte son hali var,uğraştım ama olmadı yine..
İlginize teşekkürler..

 

[bravo64]

Bugün kimse yok galiba?

 

[bravo64]

Günaydın arkadaşlar,
yazdığım kodda sanırım 'sheets(kod1)' şeklindeki ifadeyi subscript out of rangeliyor..Çünkü sayfa ismini direkt girdiğimde sorun yok..yani kod1,kod2 vs. değişgenleri kabul etmiyor..
yardımlarınız için şimdiden teşekkürler..