Subtotal

[kadir78]

İ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.

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.

 

[ÖmerFaruk]

103 yerine 102 olarak denediniz mi?

Aşağıdaki tabloda işlev türleri var. Siz numeric değerleri sayıyorsanız 103 olmaz.

 

[GursoyC]

Eğer istediğiniz kodu bulamazsanız, başka bir sütunda şu formülü uygulatın, o sütunu saydırın.

=EĞERHATA(EĞER(BUL("-";F2;1)>1;0;1);1)

veya

=EĞERHATA(EĞER(BUL("-";F2;1)>1;"";1);1)

 

[kadir78]

Formüller için sağolun fakat istedigim sonucu vermedi.

 

[Korhan Ayhan]

Alternatif;

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

 

[kadir78]

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.

 

[yusuf1284]

Günlere göre puan sistemi yapmıştım örnek olsun.

=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Ş")))))))))

 

[kadir78]

103 yerine 102 olarak denediniz mi?

Aşağıdaki tabloda işlev türleri var. Siz numeric değerleri sayıyorsanız 103 olmaz.
Ekli dosyayı görüntüle 227734

ÖmerFaruk bey çok sağolun dediginiz gibi 103 parametresini 102 yaptım istediğim sonucu verdi. Teşekkür ederim.

 

[Korhan Ayhan]

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.

 

[kadir78]

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 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.