İyi Akşamlar;
Çalışma kitabının ayrı ayrı sayfalarında aylara (ocak şubat, mart) ait bodro bulunmaktadır.
Diğer çalılşma kitapta ise EFT listesi bulunmaktadır
Bodrunun "B" sutununda isimler, "K" sutunda ise net ödenecek tutar bulunmaktadır.
EFT listesinin bulunduğu sayfada "B" sutunun isimler, "H" sutunda ise net ödenecek tutarlar bulunmaktadır.
Aşağıdaki kodla, EFT sayfasının "B4" hücresinde yazılı aya (örneğin Mayıs) ait bilgileri Bodro çalışma kitabının ait bulunduğu sayfadan (örneğin Mayıs) isimler ve net ödenecek tuatarları almaktayım.
Ancak kodun bağlı bulunduğu butona bastığımda, "Çalışma Zamanı Hatası '-2147217887 (80040E21)" mesajı gelmekte ve "end" düğmesine bastığımda ise veriler gelmektedir.
Hata Sayfa4.Cells(i + 7, "H") = rs.Fields("f10").Value satırında vermekte olup nereden kaynaklanmakta ve nasıl düzeltebilirim.
HTML:
rs.Open "select f1,f10 from [" & sayfAdi & "$B11:K500]", baglan, 1, 1 satırını
rs.Open "select f1,f10 from [" & sayfAdi & "$B10:K500] where f1 >'' ", baglan, 1, 1 olarak değiştirdiğimde; "Çalışma Zamanı Hatası '-2147217887 (80040E21)" mesajı gelmemekte ancak, Bodradaki ilgili ayın ikinci sayfadaki (26 sıradaki) veriyi EFT sayfasnın birinci sayfasının ara toplamına kısmına [H32 hücresine] atmakta ve sonuçta yanlış olmaktadır.
Ayrıca, her çalışma kitabındaki tablolarda sayfalar arasında [Bodronun ilgili ayın 35 ve 48 satırlarında] ara toplam satırı bulunmatkadır.
Çalışma kitabının ayrı ayrı sayfalarında aylara (ocak şubat, mart) ait bodro bulunmaktadır.
Diğer çalılşma kitapta ise EFT listesi bulunmaktadır
Bodrunun "B" sutununda isimler, "K" sutunda ise net ödenecek tutar bulunmaktadır.
EFT listesinin bulunduğu sayfada "B" sutunun isimler, "H" sutunda ise net ödenecek tutarlar bulunmaktadır.
Aşağıdaki kodla, EFT sayfasının "B4" hücresinde yazılı aya (örneğin Mayıs) ait bilgileri Bodro çalışma kitabının ait bulunduğu sayfadan (örneğin Mayıs) isimler ve net ödenecek tuatarları almaktayım.
Ancak kodun bağlı bulunduğu butona bastığımda, "Çalışma Zamanı Hatası '-2147217887 (80040E21)" mesajı gelmekte ve "end" düğmesine bastığımda ise veriler gelmektedir.
Hata Sayfa4.Cells(i + 7, "H") = rs.Fields("f10").Value satırında vermekte olup nereden kaynaklanmakta ve nasıl düzeltebilirim.
HTML:
rs.Open "select f1,f10 from [" & sayfAdi & "$B11:K500]", baglan, 1, 1 satırını
rs.Open "select f1,f10 from [" & sayfAdi & "$B10:K500] where f1 >'' ", baglan, 1, 1 olarak değiştirdiğimde; "Çalışma Zamanı Hatası '-2147217887 (80040E21)" mesajı gelmemekte ancak, Bodradaki ilgili ayın ikinci sayfadaki (26 sıradaki) veriyi EFT sayfasnın birinci sayfasının ara toplamına kısmına [H32 hücresine] atmakta ve sonuçta yanlış olmaktadır.
Ayrıca, her çalışma kitabındaki tablolarda sayfalar arasında [Bodronun ilgili ayın 35 ve 48 satırlarında] ara toplam satırı bulunmatkadır.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
.Kolay gelsin.