Sheet lerdeki bilgileri sırasıyla<tek bir sayfaya topla

[efeboral]

Ekteki örnekte 4 sheet var.1 i genel diğer 3 shetteki bilgileri genele atmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu GENEL sayfasında oluşturacağınız bir butona ekleyerek deneyin.

[vb:1:0166112f57]Sub aktar()
On Error Resume Next
Application.ScreenUpdating = False
For a = 1 To 4
Set s1 = Sheets("" & a)
say = WorksheetFunction.CountA(s1.[e2:e65536]) + 1
ilk = WorksheetFunction.Match(a, [e1:e65536], 0)
son = WorksheetFunction.CountIf([e4:e65536], a) + ilk
MsgBox son
s1.Select
Range("b2:j" & s1.[b65536].End(3).Row).Copy
Sheets("GENEL").Select
Range("B" & son).Insert Shift:=xlDown
Application.CutCopyMode = False
Next
MsgBox "VERİLER AKTARILDI"
End Sub
[/vb:1:0166112f57]

 

[efeboral]

Butonu oluşturdum ama kopyalandı demesine rağmen hiç birşey yapmıyor.yani çalışmadı veya çalıştıramadım.Ayrıca ben aktarma işlemini genelden değil
genele yapmak istemiştim.Sayın leventm, yardımınız için teşekkür ederim.