makro ile iki tarih aralığını çoketopla ile hesaplama

[kadir78]

İyi günler. Makro ile çoketopla işlemini çözemedim, yardımcı olurmusunuz.

Dim s1, s2, s3 As Worksheet
Dim bula, trh, trh1, trh2 As Range

Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Set s3 = Sheets("sayfa3")

Set trh = s3.Range("A:A")
Set bula = s3.Range("H:H")

Set trh1 = s2.Range("AF1")
Set trh2 = s2.Range("AG1")

s2.Range("AA1") = Excel.WorksheetFunction.SumIfs(bula, trh, ">=" & trh1, trh, "<=" & trh2)

 

[Korhan Ayhan]

Tarihleri uzun sayıya çevirmek gerekiyor.

Excel.WorksheetFunction.SumIfs(bula, trh, ">=" & CLng(trh1), trh, "<=" & CLng(trh2))

Ya da;

Excel.WorksheetFunction.SumIfs(bula, trh, ">=" & trh1.Value2, trh, "<=" & trh2.Value2)

 

[kadir78]

Tarihleri uzun sayıya çevirmek gerekiyor.

Excel.WorksheetFunction.SumIfs(bula, trh, ">=" & CLng(trh1), trh, "<=" & CLng(trh2))

Ya da;

Excel.WorksheetFunction.SumIfs(bula, trh, ">=" & trh1.Value2, trh, "<=" & trh2.Value2)

Korhan hocam sağolun teşekkür ederim. Tarihi sayıya çevirmek 40 yıl düşünsem aklıma gelmezdi.