Çokeğersay Makrosu

[seddur]

Arkadaşlar "G" sütununda ödeme tiplerinin bulunduğu ifadeler var.Bazı satırlarda "NAKİT",bazı satırlarda ise "VİSA" diye yazıyor.Benim yapmak istediğim seçili tarihe göre ("D" sütunu) Nakit ve visa yazan satırların toplam kaç adet olduğunu hesaplamaya çalışmaktır.Aşağıya yapmaya çalıştığım ama çalışmayan kodu yazıyorum.Bir kaç değişiklik ile yapabilecek arkadaşa şimdiden Teşekkür ederim.
TextBox9.Value = Application.WorksheetFunction.CountIfs(Sheets("Liste").Range("D250000"), "=" & CDbl(CDate(TextBox1.Value)), Sheets("Liste").Range("g2:g50000" & ("NAKİT") & Sheets("Liste").Range("g2:g50000","VİSA"))

 

[ÖmerFaruk]

Örnek bir kullanım . Kendinize uyarlayınız lütfen.

Sub Excel_COUNTIFS_Function()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("COUNTIFS")
'apply the Excel COUNTIFS function
ws.Range("E10") = Application.WorksheetFunction.CountIfs(ws.Range("C10:C16"), ">" & ws.Range("C5"), ws.Range("C10:C16"), "<" & ws.Range("C6"))
ws.Range("E11") = Application.WorksheetFunction.CountIfs(ws.Range("C10:C16"), ">" & ws.Range("C5"), ws.Range("B10:B16"), ws.Range("C7"))
End Sub

DESCRIPTION
The Excel COUNTIFS function returns the number of cells in a range that meet one or more specified criteria.
SYNTAX
=COUNTIFS(criteria_range1, criteria1, [criteria_rangle2], [criteria2], ...)
ARGUMENTS
criteria_range1: (Required) The range of cells that you want to apply the criteria1 against.
criteria1: (Required) The criteria to be tested against criteria_range1.
criteria_range2: (Optional) The range of cells that you want to apply the criteria2 against.
criteria2: (Optional) The criteria to be tested against criteria_range2.
ADDITIONAL NOTES
Note 1: Excel allows up to 127 criteria_range and criteria arguments.

 

[seddur]

Anladğım kadarıyla iki tarih arası için yazılmış.Mümkünse "C10:C16" ve C5,C6;C7'de bulunan ifadelerin ne olduğunu yazarsanız kendime uyarlayabilirmiyim bakacağım.Aynı sütunda iki değişik metin toplamları alınacak.NAKİT+VİSA yazan satırların toplam adeti bulunacak.