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]
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.