VBA ile Count İşlemi,

[Utekiner]

Merhaba;

Ekteki, örnekte verileri saydırmak istiyorum. Makro konusunda yardımcı olabilir misiniz.

https://www.dosya.tc/server22/timfjh/Book1.xlsx.html

 

[Haluk]

    Range("K2") = WorksheetFunction.CountA(Range("A2:A" & Rows.Count))

gibi ....

.

 

[Utekiner]

Sn. @Haluk Bey,
Çok teşekkür ederim. Elinize sağlık. İyi çalışmalar.

 

[çıtır]

Başka değerlerde var ve X'leri saydırmak isterseniz.

Sub sayx()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Range("K2") = WorksheetFunction.CountIf(s1.Range("A2:A" & Rows.Count), "X")
s1.Range("L2") = WorksheetFunction.CountIf(s1.Range("D2:D" & Rows.Count), "X")
s1.Range("M2") = WorksheetFunction.CountIf(s1.Range("G2:G" & Rows.Count), "X")
End Sub

 

[Utekiner]

Sn. @çıtır Bey teşekkür ederim. Elinize sağlık alternatif için.

 

[çıtır]

Sn. @çıtır Bey teşekkür ederim. Elinize sağlık alternatif için.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[gicimi]

Başka değerlerde var ve X'leri saydırmak isterseniz.

Sub sayx()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Range("K2") = WorksheetFunction.CountIf(s1.Range("A2:A" & Rows.Count), "X")
s1.Range("L2") = WorksheetFunction.CountIf(s1.Range("D2:D" & Rows.Count), "X")
s1.Range("M2") = WorksheetFunction.CountIf(s1.Range("G2:G" & Rows.Count), "X")
End Sub

Çıtır Bey Selamlar,

Resimdeki şekilde başka değerlerde varsa ve hem X hemde J değerlerini saydırmak istersek eğer nasıl bir güncelleme yapılabilir.

 

[çıtır]

Resimden anladığım kadar aşağıdaki şekilde olabilir.

Sub sayx()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Range("J3") = WorksheetFunction.CountIf(s1.Range("A2:A" & Rows.Count), "X")
s1.Range("K3") = WorksheetFunction.CountIf(s1.Range("A2:A" & Rows.Count), "J")
s1.Range("L3") = WorksheetFunction.CountIf(s1.Range("D2:D" & Rows.Count), "X")
s1.Range("M3") = WorksheetFunction.CountIf(s1.Range("D2:D" & Rows.Count), "J")
s1.Range("N3") = WorksheetFunction.CountIf(s1.Range("G2:G" & Rows.Count), "X")
s1.Range("O3") = WorksheetFunction.CountIf(s1.Range("G2:G" & Rows.Count), "J")
End Sub

 

[gicimi]

@çıtır Bey teşekkürler. İyi Çalışmalar.

 

[Haluk]

Alternatif:

    [J3] = [countif(A:A,"x")]
    [K3] = [countif(A:A,"j")]
    '....
    '...

.

 

[gicimi]

@Haluk Abi teşekkür ederim.