• DİKKAT

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

Subtotal

K

kadir78

Altın Üye
Katılım
6 Nisan 2016
Mesajlar
227
Excel Vers. ve Dili
office 2019
İyi günler. Aşağıdaki kodlamada filtre yapılmış sayfadaki F sütununun dolu hücrelerini saydırıyorum. F sütununda standart beş haneli rakam olan ürün numaraları kayıtlı ( 43542, 43546, 43570 vb) bazı kayıt numaralarının arkasında -1 -2 veya -A yazılı durumda (43542-1, 43546-2, 43570-A vb) gibi kayıtlar var. Bana lazım olan ise -1 -2 -A olan satırların sayılmaması, sadece beş haneli kayıtların sayılmasını sağlayacak kod ekleyebilirmisiniz.

Kod: 
s1.range("A2") = WorksheetFunction.Subtotal(103, s2.range("F5:F2500"))


s1 ve s2 set edilen sayfalar.
S1 Rapor sayfası
S2 Veri sayfası

Konu ile ilgili internetten araştırma yaptım fakat istedigim sonucu bulamadım. Teşekkür ederim.
 
103 yerine 102 olarak denediniz mi?

Aşağıdaki tabloda işlev türleri var. Siz numeric değerleri sayıyorsanız 103 olmaz.
227734
 
Eğer istediğiniz kodu bulamazsanız, başka bir sütunda şu formülü uygulatın, o sütunu saydırın.
Kod: 
=EĞERHATA(EĞER(BUL("-";F2;1)>1;0;1);1)
veya
Kod: 
=EĞERHATA(EĞER(BUL("-";F2;1)>1;"";1);1)
 
Son düzenleme:
Formüller için sağolun fakat istedigim sonucu vermedi.
 
Alternatif;

C++: 
Option Explicit

Sub Test()
    Dim S1 As Worksheet
    
    Set S1 = Sheets("Sayfa1")
    
    S1.Range("A2") = Evaluate("=SUMPRODUCT(SUBTOTAL(2,OFFSET(F5:F2500,ROW(F5:F2500)-ROW(F5),,1))*ISNUMBER(F5:F2500)*(LEN(F5:F2500)=5))")
End Sub
 
Korhan hocam sağolun. Kodları denedim fakat sonuç hep 0 çıkıyor. Kodların değişik kombinasyonlarını uyguladım sonuç hep aynı 0 değerini veriyor.
 
Günlere göre puan sistemi yapmıştım örnek olsun.

Kod: 
=TOPLA(EĞER([@1]="";0;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@1])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@2]="";0;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@2])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@3]="";0;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@3])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@4]="";0;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@4])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@5]="";0;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@5])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@6]="";0;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@6])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@7]="";0;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@7])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@8]="";0;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@8])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@9]="";0;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@9])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@10]="";0;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@10])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@11]="";0;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@11])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@12]="";0;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@12])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@13]="";0;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@13])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ"))))))))+EĞER([@14]="";0;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(2);FRML!$K$6;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(3);FRML!$K$7;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(4);FRML!$K$8;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(5);FRML!$K$9;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(6);FRML!$K$10;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(7);FRML!$K$11;EĞER(HAFTANINGÜNÜ([@14])=HAFTANINGÜNÜ(1);FRML!$K$12;"BOŞ")))))))))
 
Ben boş bir dosyada deneyip olumlu sonuç alınca paylaşmıştım. Sizde neden sonuç vermedi anlamadım. Örnek dosya paylaşırsanız inceleyebiliriz.
 
Korhan Ayhan' Alıntı:
Ben boş bir dosyada deneyip olumlu sonuç alınca paylaşmıştım. Sizde neden sonuç vermedi anlamadım. Örnek dosya paylaşırsanız inceleyebiliriz.
Genişletmek için tıkla ...
Korhan hocam siz doğru yazmışsınız ben hata yapmışım yanlış yazmışım özür dilerim kusura bakmayın. Kodları yazarken 1 parantez eksik yazmışım. Tekrar özür dilerim Korhan hocam kusura bakmayın lütfen yanlışlığı ben yapmışım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst