Makro hatası nerede

[fehdur]

Aşağıdaki makro 0 (sıfır) değeri veriyor.Acaba hata nerede.Yardımcı olursanız sevinirm. G sütununda tutarlar, C sütununda tarihler yazıyor.Textbox 1 ve 2 ye başlangıç ve bitiş tarihleri girildiği zaman Label1 de sonuç değerini veriyor.

For X = 1 To 1000
a = Application.WorksheetFunction.SumIfs(Sheets("Sayfa5").Range("G:G"), Sheets("Sayfa5").Range("C:C"), ">=" & TextBox1.Value, Sheets("Sayfa5").Range("C:C"), "<=" & TextBox2.Value)

Label1.Caption = a
Next X

 

[Korhan Ayhan]

Burada X döngüsünü kullanmanızda ki amaç nedir?

Döngüye gerek yok gibi görünüyor.

 

[fehdur]

Döngüyü kaldırdım ama yine sıfır değeri veriyor.Daha iyi bakmanız için örnek dosya ekledim.

 

[fehdur]

Yeni dosya ekledim.ilkinde sorun vardı

 

[Trilenium]

Bu dosya da hatalı sanırım?

 

[Trilenium]

Bir kaç parametre ekledim. Hangisini arzu ederseniz onu topluyor. Makroya ihtiyaç bu konuda

 

[fehdur]

Dosyayı yeniden ekleyebilirmisin. bir fark göremedim.

 

[Trilenium]

Dosyayı güncelledim tekrar indirebilrisiniz.

 

[Orion1]

Deneyiniz.

a = Application.WorksheetFunction.SumIfs(Sheets("Sayfa5").Range("G:G"), Sheets("Sayfa5").Range("C:C"), ">=" & CDbl(CDate(TextBox1.Value)), Sheets("Sayfa5").Range("C:C"), "<=" & CDbl(CDate(TextBox2.Value)))

 

[Orion1]

Yazılan bu kod işinize yaramaz.
Filtre yapın ve tarih süzmesiniz yazınız.
Sonra makro kodunun yeniden oluşturulmuş kodunu kullanınız.

 

[Orion1]

Buyurun.

Private Sub CommandButton98_Click()
Dim sh As Worksheet
Set sh = Sheets("Sayfa5")
sh.Range("A1:L" & Rows.Count).AutoFilter Field:=3, Criteria1:=">=" & CDbl(CDate(TextBox1.Value)), _
    Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(TextBox2.Value))
a = Application.WorksheetFunction.Subtotal(9, Range("G2:G" & Rows.Count))
Label1.Caption = a
sh.Range("A1").AutoFilter
End Sub

 

[fehdur]

Dediğinizi yaptım oldu.Makro çalıştı.Çok teşekkür ederim.

 

[fehdur]

Hocam bu çalışan makroya bir de ilave yapılacak.o da şu;Makro aynı zamanda F sütunundaki değerlere bakarak Combobox1 deki değeri arayacak.Yapabilirseniz sevinirim.

 

[Orion1]

Hem tarihi ve hemde comboboxtaki değerlerimi arayacak.
Öyleyse combobox ile aranacak sütun hangisidir.

 

[fehdur]

Sayfa 5 "L" sütunu

 

[Orion1]

Dosyanız ektedir.

 

[fehdur]

Yardım için bir kez daha teşekkür ederim.Çalışıyor

 

[Orion1]

Kolay gelsin.