Kullanıcı
- Katılım
- 11 Mar 2018
- Mesajlar
- 57
İyi Günler;
Ç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.
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ı gelmemektedir
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, tablolarda sayfalar arasında [35 ve 48 satırlarında] ara toplam satırı bulunmakt olup sayfa sonu toplam satırı eklemeden önce yukarıdaki makro ile herhangi bir sorun yaşanmamıştı.
konu hakkında destek ve yardımlarınız beklenmektedir.
Ç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.
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(53 satır)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ı gelmemektedir
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, tablolarda sayfalar arasında [35 ve 48 satırlarında] ara toplam satırı bulunmakt olup sayfa sonu toplam satırı eklemeden önce yukarıdaki makro ile herhangi bir sorun yaşanmamıştı.
konu hakkında destek ve yardımlarınız beklenmektedir.
