Kopyala-Yapıştır

[Hakngnc]

Merhaba Arkadaşlar,

Filtrelenmiş bir datanın ilk satırı hariç diğer dolu satırlarını seçip yeni bir sayfaya nasıl yapıştırırım?

Aşağıda örnek veriyorum kırmızı kısmı düzenlemek istiyorum a1 yerine a2 yazamıyorum çünkü filtrelediğim data her zaman 2. satırda başlamıyor.

Umarım anlatabilmişimdir.
İyi günler herkese

s3.Select
    Range("G1").Select
    ActiveSheet.Range("$A$1:$AO$" & sonsatir).AutoFilter Field:=10, Criteria1:= _
        "örnek"
    ActiveSheet.Range("$A$1:$AO$" & sonsatir).AutoFilter Field:=9, Criteria1:= _
        "data"
    [COLOR="Red"]Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy[/COLOR]

    Set s6 = ThisWorkbook.Worksheets("Örnek Data")
    satir = s6.Range("A65536").End(xlUp).Row + 1
    s6.Range("A" & satir).PasteSpecial

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

    sonsatir = Cells(Rows.Count, 1).End(3).Row
    Range("A2:AO" & sonsatir).SpecialCells(xlCellTypeVisible).Copy

 

[Hakngnc]

Teşekkür ederim. Tam istediğim gibi olmuş. İyi günler