makronun boş satırı bularak yapıştırması

[bedri41]

Aşağıdaki makro örneğinde kopyalanan bölümü yapıştrdığım (sayfa3) de A4 - A12 değilde boş satırdan başlayarak kopyalamasını nasıl sağlayabilirim

Yardımlarınız için teşekkür ederim

Range("A4:I50").Select
Selection.Copy
Sheets("Sayfa3").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa2").Select
Range("A4:I50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa3").Select
Range("A12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[halit3]

örnek dosya ekleyiniz

 

[Necdet]

Merhaba,

Aşağıdaki kod fikir verebilir. Sayfa1de A1:A12 yi Sayfa2 de A sütununun en son satırına kopyalar.

Sub Sayfa2yeKopyala()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Range("A1:A12").Copy s2.Range("A" & s2.[A65536].End(3).Row + 1)
End Sub

 

[bedri41]

Örnek dosya ekledim ve makro içerisine açıklama yazdım.
İlginize ve yardımlarınıza teşekkür ederim.

 

[Necdet]

Merhaba,

Sub Düğme13_Tıklat()
    Range("A4:K40").Select
    Selection.Copy
    Sheets("NISAN").Select
'Burda A2 yi ben seçiyorum ama makronun boş atırı bulup ondan sonraya yazmasını istiyorum
    Range("A" [COLOR=red][B]& [A65536].End(3).Row + 1[/B][/COLOR]).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("   SİDE   ").Select
    Range("A4:K40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("NISAN").Select
'aynı şekilde burada da bir önceki kopyalama hangi satırda bitmişse ondan sonraki boş satırdan başlayaak kopyalasın
    Range("A" [COLOR=red][B]& [A65536].End(3).Row + 1[/B][/COLOR]).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A24").Select
End Sub