Sumifs'e kodu 2 tarih arasındaki veriyi toplama ÇÖZÜLDÜ

[mehmet-kanat]

Mrb arkadaşlar sumifs kodu ile
A sütununda isimler
B sutununda tarih
C sütununda miktar
Olarak belirtilen tablo mevcut
Sumifs kullanarak D1 toplanacak olan miktarın ismi olacak
E1 ilk tarih F1 ikinci tarih girilecek ve
G1 e toplam sonuc istenecek
T1=date
T2= date
T1= range("E1")
T1= range("F1")

Range("G1")=Application.WorksheetFunction.SumIfs(Range("c:c"), Range("A:A"), Range("D1"), Range("B:B"), ">=" & t1, Range("B:B"), "<=" & t2)


Hata alıyorum düzenlemesi nasıl olur

 

[Korhan Ayhan]

Ne hatası alıyorsunuz belirtmemişsiniz.

Sanki tanımlama hatası varmış gibi görünüyor.

T1= range("E1")
T1= range("F1")

 

[mehmet-kanat]

Aslında t2 olacaktı yanlış yazmisim konuya
Hata kısmı; Range("B:B"), ">=" & t1,Range("B:B"), ">=" & t1
Kısmının "<>=" olarak değiştirdiğim zaman sonuc yaziyor
Yada tarih kısmını range olarak tek tarih olarak belirtirsem yaziyor

 

[Korhan Ayhan]

Örnek dosyanızı paylaşabilirmisiniz.

 

[mehmet-kanat]

Sub coketopla()

For i = 1 To 25

Cells(i, 14) = Application.WorksheetFunction.SumIfs(Range("D"), Range("A:A"), Cells(i, 12), Range("b:b"), Cells(i, 13), Range("C:C"), Range("I2"))

Next

'RANGE("C:C"),nin kısıtlayıcıısını range("I2")'den büyük olanlar, ve range("j2")'den küçük olanları kapsayacak sekilde yapmak istiyorum'
'ancak hata veriyor 2 tarih aransındaki veriyi çoke topla yapamıyorum yardımlarınız için teşekkürler'

End Sub

son hali bu şekilde

 

[Korhan Ayhan]

Deneyiniz.

Application.WorksheetFunction.SumIfs(Range("D:D"), Range("A:A"), Cells(i, 12), Range("B:B"), Cells(i, 13), Range("C:C"), ">" & Range("I2"), Range("C:C"), "<" & Range("J2"))

 

[mehmet-kanat]

kodu denedim ancak sonuç kısmı hep sıfır çıkıyor

 

[Korhan Ayhan]

O zaman bir önceki mesajımı tekrarlamak zorundayım.

Örnek dosyanızı paylaşınız.

 

[mehmet-kanat]

dosya yükleyemiyorum yada nasıl yapılacağını bilmiyorum.
fakat hatanın nedenini buldum galiba ' range("ı2") ve range("j2")'de tarih bulunuyor tarihleri sayı yaptığım zaman hesaplama yapıyor Range("C:C") Kısıtlayıcısılarını tarih olarak tanıtmamız gerekir diye düşünüyorum.

 

[Korhan Ayhan]

Bir de aşağıdaki gibi deneyiniz.

Application.WorksheetFunction.SumIfs(Range("D:D"), Range("A:A"), Cells(i, 12), Range("B:B"), Cells(i, 13), Range("C:C"), ">" & CDate(Range("I2")), Range("C:C"), "<" & CDate(Range("J2")))

Eğer yine çözüm olmazsa CDate yazan yerlere CLng yazarak deneyiniz.

Foruma dosya eklemek için Altın Üye olmanız gerekir. Altın Üye olmadan dosya eklemek için harici dosya yükleme sitelerini kullanabilirsiniz.

 

[mehmet-kanat]

Cdate yazan yere CLng yazinca düzeldi emeğiniz için teşekkür ederim.