• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çoketopla makrosu

  • Konbuyu başlatan Konbuyu başlatan fehdur
  • Başlangıç tarihi Başlangıç tarihi
Katılım
26 Eylül 2020
Mesajlar
171
Excel Vers. ve Dili
excel 2019 pro.Türkçe
Aşağıda yazılı olan ÇOKETOPLA fonksiyonunun(formül) makro ile yazılışı gerekiyor.Yardımcı olacak arkadaşa teşekkür ederim.

=ÇOKETOPLA(Sayfa5!G2:G5000;Sayfa5!C2:C5000;">="&Sayfa1!D8;Sayfa5!C2:C5000;"<="&Sayfa1!E8;Sayfa2!F2:F4980;"VİSA")

---D8 ve E8 hücrelerine başlangıç ve bitiş tarihleri giriliyor.F sütununda Nakit mi,visa ile mi satış yapılmış ona bakıyor.C sütununda satış yapılan tarihler yazıyor.G sütununda yapılan satış tutarları yazıyor.Sonuç olarak hangi tarih aralığında ne kadar nakit/visa satışı olmuş onu buluyoruz. D8 ve E8 hücreleri yerine 2 adet textbox kullanılacak.----
 
Son düzenleme:
örnek dosya eklerseniz, çok daha kolay yardım alabilirsiniz.
 
Sayfa 1 de ilk tarih ve son tarih (tarih aralıklarına nokta konacak) girildiğinde Tablodaki hücrelerde gözükecek.Formül çalışmadığından "DEĞER" hatası vermektedir.Nedeni bilinmemektedir.
 

Ekli dosyalar

=ÇOKETOPLA(Sayfa5!$G$2:$G$5000;Sayfa5!$C$2:$C$5000;">="&Sayfa1!E10;Sayfa5!$C$2:$C$5000;"<="&Sayfa1!E11;Sayfa2!$F$2:$F$4980;"NAKİT")

HATA VEREN FORMÜL NEDENİYLE MAKRO YAZILACAK
 
Formülünüzün NAKİT yazan bölümün hemen öncesindeki hücre aralığını düzeltirseniz sorun düzelir.

Yani hücre aralıklarını eşit değil.
 
Hocam formüllerle çalışmak pek sağlıklı değil çalışma esnasında da bozulabiliyorlar.Biraz da o yüzden makro yazmak istedim.
 
Formülleri makroya çevirmek şeklinde bolca konu işlendi. Arama yaparsanız ulaşabilirsiniz.
 
Maalesef bulamıyorum.İnternet sayfalarınıda araştırdım yok.Bir link bulursanız lütfen gönderin.
 
Ulaştığım linkler;

 
[H4] = WorksheetFunction.SumIfs(S5.Range("G2:G1000"), S5.Range("C2:C1000"), ">=" & CDbl(CDate(S1.Range("E10"))), S5.Range("C2:C"), "<=" & CDbl(CDate(S1.Range("E11"))), S2.Range("F2:F1000"), S2.Range("F3"))

Yapmaya çalıştığım ÇOKETOPLA makrosu --obje doesn't support this property or method-- hatası veriyor.Acaba yanlışlık nerede.
 
Şu kısım hatalı olmuş.

S5.Range("C2:C")
 
Geri
Üst