Aktar Makrosu DÜzenleme

[kombo]

Aşağıdaki kodlarla iki ayrı sayfadaki verileri ANA sayfasına aktarmaya çalışıyorum. Fakat ANA sayfasında dolu olan son satırı seçip kopyalamayı o satırdan başlatamadım. Forum içinde epey bir örnek var hepsini denemeye çalıştım ama bir türlü yapamadım. Nerede hata yapıyorum? Seçilen alanda ("a5:h23") formül sonucu boş kalan hücreler var acaba ondan mı kaynaklanıyor.

Sheets("VERİ").Select
Range("a5:h23").Select
Selection.Copy
Sheets("ANA").Select
Range("A65536").End(3).Select
[COLOR=green]'Range("A65536").End(xlUp).Select[/COLOR]
[COLOR=green]'Range("A4").Select[/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("VERİ").Select
Application.CutCopyMode = False
Range("A1").Select
 
Sheets("VERİ2").Select
Range("a5:h23").Select
Selection.Copy
Sheets("ANA").Select
Range("A65536").End(3).Select
[COLOR=#008000]'Range("A65536").End(xlUp).Select[/COLOR]
[COLOR=green]'Range("A25").Select[/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("VERİ2").Select
Application.CutCopyMode = False
Range("A1").Select

 

[emrexcel123]

sayın kombo arkadaşım sen verileri kopyalama yerine aktarmayı seçersen şu yolu kullan
d = [a65536].end(3).row +1
cells(d,1) = range(a5)
gibi....

 

[Zeki Gürsoy]

Eğer sayfalarınız dizi halinde gidiyorsa şu şekilde de kullanabiliriz. Önce "ANA" isimli sayfayı en sola taşıyın. Ardından aşağıdaki kodu uygulayın.

Sub Aktar__()
    With Sheets("ANA")
        For i = 2 To Sheets.Count
            sonsatir = .[A65536].End(3).Row + 1
            Sheets(i).[A5:H23].Copy
            .Range("A" & sonsatir).PasteSpecial Paste:=xlPasteValues
        Next
    End With
    Application.CutCopyMode = False
End Sub

 

[kombo]

Sn emrexcel123 Sn anemos

İlginiz için teşekkür ederim. Sorunumu sitede bulduğum bir makro ile çözdüm. Tekrar teşekkür ederim.