Birden fazla satırı makro ile koşullu kopyalamak

[karslan18]

Mrb arkadaşlar ben sitede çok araştırdım ama benim ihtiyacım olanı bulamadım.
Sadece tek satırdakı bılgılerı kopyalamak ıle ılgılı bır sürü ornek var ama benım ıstedıgım bırden fazla satırı kopyalarak dıger sayfaya yapıstırmak eklemiş oldugum ornekte acıklama yaptım..
Şimdiden tesekkur ederım yardımlarınızı beklıyorum ....

 

[Necdet]

Merhaba,

Anladığım kadarıyla tek butonla bu iş gerçekleşir.

Private Sub CommandButton1_Click()
 
    Dim i   As Long, _
        j   As Long, _
        ShK As Worksheet
    
    Set ShK = Sheets("KONTROL")
    
    If MsgBox(" Eklediğiniz bilgileri kopyalamak istiyor musunuz ?", vbYesNo, "KARSLAN") = vbNo Then Exit Sub
    
    j = ShK.Cells(Rows.Count, "B").End(3).Row + 1
    
    i = Cells(Rows.Count, "B").End(3).Row
    
    Range("B3:C" & i).Copy ShK.Range("B" & j)
    j = ShK.Cells(Rows.Count, "B").End(3).Row
    ShK.Range("B3:C" & j).Sort Key1:=ShK.Range("B1")
    
    Range("B3:C" & i).ClearContents
    
        
End Sub

 

[karslan18]

Necdet hocam ne diyeyim ellerine sağlık Allah razı olsun çok teşekkür ediyorum.... Yardımlarınız eksik olmasın hayırlı günler..........