selam arkadaşlar,
3 saattir uğraşıyorum ama birtürlü beceremedim bu sebepten yardımlarınızı rica ediyorum. Sorunum şu; ekteki dosyada VERİ sayfasında müşterilerin bilgileri mevcut ve BAKİYE alanında ise bu müşterilerin ilgili tarihler arasında döviz cinslerine göre bakiyelerini listemek istiyorum.
Siteden aşağıdaki kodu uyarlamaya çalıştım ama beceremedim hep AD? hatası veriyor. Bir el atabilir misiniz? Teşekkür ederim.
sRangeA = Sheets("VERİ").Range("C3:C5000").Address 'TARİH
sRangeB = Sheets("VERİ").Range("A3:A5000").Address 'CARİ ÜNVAN
sRangeC = Sheets("VERİ").Range("M3:M5000").Address 'TUTAR
sRangeD = Sheets("VERİ").Range("N3:N5000").Address 'DÖVİZ CİNSİ
Sheets("BAKİYE").Select
Criter1 = Format(Range("D1"), "00000")
Criter2 = Format(Range("E1"), "00000")
Firma = Cells(1, 8)
For F = 5 To Firma + 4
Range("F" & F) = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeA & "<=" & Criter2 & ")*(" & sRangeB & "=" & Range("A" & F) & ")*(" & sRangeD & "=" & """EUR""" & ")*(" & sRangeC & "))")
Next F
3 saattir uğraşıyorum ama birtürlü beceremedim bu sebepten yardımlarınızı rica ediyorum. Sorunum şu; ekteki dosyada VERİ sayfasında müşterilerin bilgileri mevcut ve BAKİYE alanında ise bu müşterilerin ilgili tarihler arasında döviz cinslerine göre bakiyelerini listemek istiyorum.
Siteden aşağıdaki kodu uyarlamaya çalıştım ama beceremedim hep AD? hatası veriyor. Bir el atabilir misiniz? Teşekkür ederim.
sRangeA = Sheets("VERİ").Range("C3:C5000").Address 'TARİH
sRangeB = Sheets("VERİ").Range("A3:A5000").Address 'CARİ ÜNVAN
sRangeC = Sheets("VERİ").Range("M3:M5000").Address 'TUTAR
sRangeD = Sheets("VERİ").Range("N3:N5000").Address 'DÖVİZ CİNSİ
Sheets("BAKİYE").Select
Criter1 = Format(Range("D1"), "00000")
Criter2 = Format(Range("E1"), "00000")
Firma = Cells(1, 8)
For F = 5 To Firma + 4
Range("F" & F) = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeA & "<=" & Criter2 & ")*(" & sRangeB & "=" & Range("A" & F) & ")*(" & sRangeD & "=" & """EUR""" & ")*(" & sRangeC & "))")
Next F