TARİHE GÖRE TOPLAMA

[aydgur]

TARÝHE G�RE TOPLAMA

Dosyamda sayfa adları isimlendirilmiş şekilde.her sayfamın a6:a5000 hücreleri arasında bugünkü(14.11.2005)tarihleri bulduğunda o tarihlerin karşılığı olan e6:e5000 arası hücreleri toplatmak için YARDIM RİCA EDİYORUM..

 

[zafer]

Merhaba

kodları modüle yapıştırınız
Sub topla()


Dim bbb As Date
bbb = Format(Now, "dd/mm/yyyy")

sayac = 0

a = Worksheets.Count
For y = 1 To a
Worksheets.Select
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1) = bbb Then
say = Cells(i, 5)
sayac = sayac + say
End If
Next
Next
MsgBox (sayac)
End Sub

Saygılarımla

 

[aydgur]

Teşekkürler ; ben bu toplamı Sayfa 3 te yapmak istiyorum,nasıl bir değişiklik gerekir

 

[zafer]

Merhaba


MsgBox (sayac) Satırını siliniz.
Yerine

Sheets("sayfa3").Range("g1") = SAYAC

Kopyalayınız.

 

[aydgur]

Muhteşem teşekkür ederim.