farklı sayfalardaki verileri anasayfada toplama ve aylık döküme aktarma

[mehmetb84]

Merhaba arkadaşlar, ekteki dosyamda göreceğiniz üzere; "hambez , boyahane, kredi, çek, aksesuar" adlı sayfalardaki verileri anasayfamda toplamak istiyorum.
1- bu sayfalarda veriye ilişkin "ödendi" hanesinin "hayır" olarak işaretlendiği yani bakiyesi ödenmemiş verilerin anasayfaya aktarılmasını istiyorum.
2- bu verilerin "ödendi" hanesini "hayır"dan "evet" e değiştirildiği anda, anasayfadan kaldırılmasını istiyorum.

İlgileriniz için şimdiden teşekkür ederim.

 

[Murat OSMA]

Tek sayfada toplamak için bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim [COLOR="Red"]Rky [/COLOR]As Byte, a%, b%
    Sayfa1.Select: b = 2
    For [COLOR="red"]Rky[/COLOR] = 2 To Sheets.Count
        With Sheets([COLOR="red"]Rky[/COLOR])
            For a = 2 To .Range("B65536").End(3).Row
                If .Cells(a, "H").Value = "[COLOR="Red"]hayır[/COLOR]" Then
                    Cells(b, 1) = .Cells(a, 2).Value
                    Cells(b, 2) = .Cells(a, 3).Value
                    Cells(b, 3) = .Cells(a, 4).Value
                    Cells(b, 4) = .Cells(a, 5).Value
                    Cells(b, 5) = .Cells(a, 6).Value
                    b = b + 1
                End If
            Next a
        End With
    Next [COLOR="red"]Rky[/COLOR]
    b = Empty: a = Empty: [COLOR="red"]Rky [/COLOR]= Empty
End Sub[/FONT]

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[mehmetb84]

çok teşekkürler tam istediğim gibi olmuş