Kod da toplama sorunu

[maxinus]

Arkadaşlar benim aşağıdaki gibi bir kod sayfam var.Burda aynı olanları toplama işlemi yapıyor.Ama ben burda toplama işlemini hangi kodların yaptığını bulamıyorum.

Sub LİSTELE()
Application.ScreenUpdating = False
Set ST = Sheets("tablo")
Set SG = Sheets("gösterge")
ST.[A3:B65536].ClearContents
ST.[IV2:IV65536].ClearContents
SG.Select
For X = 5 To 30
SG.Range(Cells(6, X), Cells(25, X)).Copy
ST.Range("IV65536").End(3).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Next
ST.Select
Application.CutCopyMode = False
[IV2:IV65536].Sort Key1:=Range("IV2")
Columns("IV").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[A2], Unique:=True
ST.[IV2:IV65536].ClearContents
[A1].Select

For Y = 3 To [A65536].End(3).Row
Cells(Y, 2) = Evaluate("=SUMPRODUCT((TARİH>=A1)*(TARİH<=B1)*(VERİ=" & Cells(Y, 1).Address & "))")
Next
Application.ScreenUpdating = True
MsgBox "LİSTELEME İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[zafer]

Merhaba

Topla çarpım (sumproduct)fonksiyonu ile istenen verilerinizi topluyor.
Evaluate ile de bulduğu değeri döngüdeki hücreye yazıyor.

For Y = 3 To [A65536].End(3).Row
Cells(Y, 2) = Evaluate("=SUMPRODUCT((TARİH>=A1)*(TARİH<=B1)*(VERİ=" & Cells(Y, 1).Address & "))")
Next

 

[maxinus]

Bu kod ta X ve Y for gibi döngüleri kullanılmış. Onlar ne için kullanıldığını da öğrenebilirmiyim.Başka sayfalardan geçiş için mi kullanılmış yada başka bir şey için mi?

 

[zafer]

Merhaba

Excel dershanesinde Döngüler ile ilgili başlıkları inceleyiniz.

 

[maxinus]

merhaba zefer bey benim amacım aslında sayfa2.xls de çalışan kodlardaki sorunu çözmek ama bir türlü bulamadım.sorunum şu tablo sayfasında listele dediğim zaman listelem işlemi yapıyor.(Burda gösterge sayfasında aynı olan rakamları adetleri topluyor ve farklı rakamları alt alta yazıyor.)Ama ben 15.03.2007 sayfasındaki verileri değiştir dediğimde göster tablosunda butona bastığımda işlemi yapıyor.Ama tablo sayfasında listeleme butonuna bastığımda rakamları gösteriyor fakat rakamların adetlerini toplayıp göstermiyor.