excelde ara ve topla

[yvesrocher]

Merhaba arkadaşlar,

ektedi dosyada iki sayfa var sayfa ikiye sayfa birdeki verileri aratıp, bulup ve toplatarak 2. sayfaya atmak istiyorum.

Mesela 1.1.2009 ile 31.1.2009 arasındaki hareketleri tutar kısmından bulup toplayacak. Yardımlarınızı bekliyorum.

 

[leumruk]

Merhaba,

Sub dene()
[Sayfa2!b5:c16].ClearContents
    For x = 5 To 16
        For y = 2 To [a65536].End(3).Row
            Ay = Format(Cells(y, "a"), "mmmm")
                Yıl = Format(Cells(y, "a"), "yyyy")
                    If Yıl = 2008 Then Sut = 2
                    If Yıl = 2009 Then Sut = 3
                    If Sheets("Sayfa2").Cells(x, "a") = Ay Then
                Sheets("Sayfa2").Cells(x, Sut) = Sheets("Sayfa2").Cells(x, Sut) + Cells(y, "b")
            End If
        Next
    Next
End Sub

 

[yvesrocher]

Cevap için teşekkürler, ama istediğim tam o değil. Ben sayfa1'e herhangi bir tarih ve tutar yazdığım zaman, otomatik olarak sayfa2'de ay bazında toplayarak atması lazım.

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar,

ektedi dosyada iki sayfa var sayfa ikiye sayfa birdeki verileri aratıp, bulup ve toplatarak 2. sayfaya atmak istiyorum.

Mesela 1.1.2009 ile 31.1.2009 arasındaki hareketleri tutar kısmından bulup toplayacak. Yardımlarınızı bekliyorum.

Dosyanız ekte.


.

 

[yvesrocher]

Hocam, buda değil tam olarak istediğim. Sayfa1'de yazdığım, sayfa2'ye ay bazında toplanarak atılsın.

 

[Merhum İdris SERDAR]

Hocam, buda değil tam olarak istediğim. Sayfa1'de yazdığım, sayfa2'ye ay bazında toplanarak atılsın.

Eklediğim dosya ne yapıyor?

Eğer bu yapıda istiyorsanız, dinamik hale getirilebilir.

.

 

[leumruk]

Eklediğim dosyayı inceleyiniz. Sayfa1'de her miktar girişinizde hesaplamayı yeniden yapar.

 

[yvesrocher]

Çok teşekkür ederim, ama excelde formülleri göremedim ben. Yani nasıl yaptığınızı anlamadım. Eğer formüller konusundada yardım ederseniz çok memnun olurum.

 

[leumruk]

Formül yok zaten. Makro kodu kullanarak yaptım. Sayfa1 sekmesinin üzerine sağ tıklayarak kod görüntüleden kodlara ulaşabilirsiniz.