Anasayfamı Aylık özet tablo çizelgesine aktarma

[mehmetb84]

Merhaba arkadaşlar, yardımlarınız sayesinde hazirladığım gelir gider çalışmama, izomer (başka bir arkadaştan almak suretiyle incelediğim) dosyasında olduğu gibi aylara bölünmüş yıllık özet tablosu eklemek istiyorum.
Diğer bir deyişle, gelirgider dosyamda bulunan "anayasayfa" mın, izomer dosyasındaki aylık maaşlar sayfası şeklinde bir rapor hazırlamasını istiyorum.
İzomer dosyasında bulunan "aylık maaşlar" sayfasındaki 'tarih' 'açıklama' 'çıkan' başlıkları yerine anasayfamda bulunan'ödeme türü' ''tarih' 'firma' 'tutar' 'pb' başlıklarının aktarılmasını istiyorum.
İki dosya da ektedir.
Yardımlarınız ve ilginiz için şimdiden teşekkürler.

 

[halit3]

kod:

Sub aktarr()
Application.ScreenUpdating = False

Sheets("anasayfa").Range("a2:f65536").ClearContents
sat = 2
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "anasayfa" Then
For j = 2 To Worksheets(Sheets(i).Name).Cells(Rows.Count, "b").End(3).Row

If Worksheets(Sheets(i).Name).Cells(j, "h").Value = "hayır" Then
Worksheets("anasayfa").Cells(sat, "a").Value = Sheets(i).Name
Worksheets("anasayfa").Cells(sat, "b").Value = Worksheets(Sheets(i).Name).Cells(j, "b").Value
Worksheets("anasayfa").Cells(sat, "c").Value = Worksheets(Sheets(i).Name).Cells(j, "c").Value
Worksheets("anasayfa").Cells(sat, "d").Value = Worksheets(Sheets(i).Name).Cells(j, "d").Value
Worksheets("anasayfa").Cells(sat, "e").Value = Worksheets(Sheets(i).Name).Cells(j, "e").Value
Worksheets("anasayfa").Cells(sat, "f").Value = Worksheets(Sheets(i).Name).Cells(j, "f").Value
sat = sat + 1

End If
Next j
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[mehmetb84]

kopyaladım ama hata veriyor, ayrıca bir buton mu oluşturmam lazım?

 

[halit3]

kopyaladım ama hata veriyor, ayrıca bir buton mu oluşturmam lazım?

Yukarıdaki eklediğim kodu bir modul içine koyacaksınız.

Aşağıdaki görsel videoyu izleyin.

görsel video

 

[mehmetb84]

çok teşekkür ederim. emeğinize sağlık,
fakat ben diğer eklediğim dosya "izomer"deki gibi aylık bir döküm olarak aktarmak istiyorum verilerimi.
Yani o formattaki gibi ay ve ay ayırmasını istiyorum. Anlatamadım sanırım kendimi.

 

[halit3]

çok teşekkür ederim. emeğinize sağlık,
fakat ben diğer eklediğim dosya "izomer"deki gibi aylık bir döküm olarak aktarmak istiyorum verilerimi.
Yani o formattaki gibi ay ve ay ayırmasını istiyorum. Anlatamadım sanırım kendimi.

1 nolu mesajdaki dosyaların her ikiside farklı uygulamalar
mehmetb84-gelirgider.xls dosyasındaki açıklama aşağıdaki gibi siz buradan ne anlıyorsunuz.

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.

kod bu sayfalardaki verileri anasayfa da topluyor kod ödendi sutunundaki hayır süzcüğüne göre verileri topluyor.
örnek verilerde anasayfa da göndermişsiniz.