Soru Filtreleme sonucuna toplu veri girme

[iavdan06]

Excelde filtreleme sonucu çıkan hücrelerin hepsini seçtip kopyala yapıştır yaptıgımda arada kalan hücrelerde yapıştırma işlemi yapıyor.Ben sadece filtreleme sonucunda çıkan hücrelere kopyala yapıştır işlemi yapmak istiyorum
Yapmak istediğim işemin ekran videosunu burdan izleyebilirsiniz
Bilgisi olan arkadaşlar yardımcı olursa sevinirim

 

[excelokyanus500]

Videoyu izlemedim. Bu belki işinize yarar.

Sub CoypFilteredData()
Dim bir      As Worksheet
Dim iki      As Worksheet
Dim satirsay As Long

Application.ScreenUpdating = False

Set bir = Worksheets("Sayfa1")
Set iki = Worksheets("Sayfa2")

satirsay = bir.Cells(Rows.Count, "A").End(xlUp).Row

If bir.FilterMode Then bir.ShowAllData

With bir.Rows(1)
    .AutoFilter field:=1, Criteria1:="Bulunacak"
    If bir.Range("A1:B" & satirsay).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
        bir.Range("A1:B" & satirsay).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sayfa2").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
  If bir.FilterMode Then bir.ShowAllData
  iki.Select
End With
Application.ScreenUpdating = True
End Sub

 

[iavdan06]

sayfa 2 ne alaka onu çözemedim ama ?

 

[iavdan06]

Videoyu izlemedim. Bu belki işinize yarar.

Sub CoypFilteredData()
Dim bir      As Worksheet
Dim iki      As Worksheet
Dim satirsay As Long

Application.ScreenUpdating = False

Set bir = Worksheets("Sayfa1")
Set iki = Worksheets("Sayfa2")

satirsay = bir.Cells(Rows.Count, "A").End(xlUp).Row

If bir.FilterMode Then bir.ShowAllData

With bir.Rows(1)
    .AutoFilter field:=1, Criteria1:="Bulunacak"
    If bir.Range("A1:B" & satirsay).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
        bir.Range("A1:B" & satirsay).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sayfa2").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
  If bir.FilterMode Then bir.ShowAllData
  iki.Select
End With
Application.ScreenUpdating = True
End Sub

Hocam merahaba ilginiz için teşekkür ederim ama gönderdiğiniz makro işime yaramadı benim tam olarak yapmak istediğim burda videoda mevcut
örnek dosyada burda

 

[iavdan06]

Konuyla ilgili bilgisi olan yok mu?

 

[Korhan Ayhan]

Burada bir eklenti var. İnceleyiniz.

 

[iavdan06]

omu gördüm zaten hocam ama paylaştığı link ölü

 

[Ömer]

Merhaba

#10. mesajda bir örnek hazırlamıştım, örnek dışarıdan değil Excel içinde çalıştığı için dışarıdan kopyaladığınız verileri excelde filtre olmayan bir alana yapıştırdıktan sonra işlemi yapabilirsiniz.

Soru - filtreli satırlara yapıştırma

aşağıdakileri filtreli sarı alana kopyala yapıştırla yapamıyor.bunları buraya nasıl yapıştırabilirim

www.excel.web.tr

.

 

[Korhan Ayhan]

O zaman bu linki inceleyin.