Bul, Kopyala, Yapıştır

[Karaelmas]

Çalışma kitabımın P1 VERİ, P2 VERİ, P3 VERİ, P4 VERİ, P5 VERİ, P6 VERİ sayfalarında A4 hücresinden başlayarak dolu olan A, B, C, D sütunlarındaki isim ve tutarları (her hafta değişen bir liste) sayfa1 de alt alta birleştirerek toplu hale getirmek istiyorum. Yapmaya çalıştığım makro, Veri sayfalarındaki dolu satırları bulup, Sayfa1 de alt alta gelecek şekilde kopyalamada bana lazım olan en son dolu hücreyi bulup bir altından yapıştırmasını sağlamak.

İlgi gösterip çözüm üreteceğinizi umar, saygılar sunarım.
Mustafa Avcı

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir Modüle kopyalayınız.

Sub DerleTopla()
Dim i, j As Long
Dim Sayfa As Integer
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
Range("A2:D65536").ClearContents
For Sayfa = 2 To Sheets.Count
    i = [A65536].End(3).Row + 1
    j = Sheets(Sayfa).[A65536].End(3).Row
    Sheets(Sayfa).Range("A4:D" & j).Copy Range("A" & i)
Next Sayfa
Application.ScreenUpdating = True
MsgBox "Birleştirme İşlemi Tamamdır...", vbOKOnly, "Bu bir [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[Karaelmas]

Çok teşekkür ederim Necdet Bey, hemen deneyeceğim.

 

[Karaelmas]

Denedim ve şöyle bir sorunum oldu, bu makronun diğer sayfalarıda etkilememesi için bunu nasıl veri sayfaları ile sınırlayabiliriz. TOPLAM diye bir sayfam var oradaki resimleride taşıyor çünkü.

Yani makronuz, sadece etkileyen ve etkilenen sayfalarla sınırlı olmalı. (sayfa1, P1 VERİ, P2 VERİ, P3 VERİ, P4 VERİ, P5 VERİ, P6 VERİ )

Teşekkür ederim