VBA ile Count İşlemi,

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
    Range("K2") = WorksheetFunction.CountA(Range("A2:A" & Rows.Count))
gibi ....

.
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Başka değerlerde var ve X'leri saydırmak isterseniz.
Kod:
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
 

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Başka değerlerde var ve X'leri saydırmak isterseniz.
Kod:
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.
Ekran Alıntısı3.JPG
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Resimden anladığım kadar aşağıdaki şekilde olabilir.
Kod:
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
 
Son düzenleme:

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Alternatif:

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

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
@Haluk Abi teşekkür ederim.
 
Üst