Aktif satırları başka bir satıra kopyalama

[mkstyle]

Değerli arkadaşlar
Örnekte süzme sonucu kalan aktif iki satırın aynı sayfada başka satırlara bir buton vasıtası ile kopyalanması gerekiyor. Nasıl yapabilirim.Ilgilenenlere çok teşekkür ederim.

 

[Ömer]

Değerli arkadaşlar
Örnekte süzme sonucu kalan aktif iki satırın aynı sayfada başka satırlara bir buton vasıtası ile kopyalanması gerekiyor. Nasıl yapabilirim.Ilgilenenlere çok teşekkür ederim.

Merhaba,

Bu şekilde deneyin. Aynı mantıkla siz yapıştırma alanını belirleyebilirsiniz.

Sub Kopyala()
 
    Dim son As Long
 
    Sheets("KODLAR").Select
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    With Sheets("Sayfa3")
        .Cells.Clear
        Range("A1:E" & son).SpecialCells(xlCellTypeConstants, 23).Copy .[A1]
    End With
 
End Sub

.