Veri Aktarımı

[mandrake2006]

Data adlı sayfadaki verileri filtrelediğimde sadece filtreleme sonucu çıkan tüm satırdaki veriyi, işlem sayfasındaki 2 nolu satıra aktarması konusunda bana yardımcı olabilirmisiniz.

 

[Orion1]

Dosyanız ektedir.

Sub filter_copy()
Dim sat As Long
Sheets("DATA").Select
sat = Cells(65536, "C").End(xlUp).Row
If sat < 2 Then Exit Sub
Application.ScreenUpdating = False
With Sheets("İŞLEM")
    .Range("A2:Y104000").Clear
    Range("C2:C" & sat).SpecialCells(xlCellTypeVisible).Copy .Range("C2")
End With
Sheets("İŞLEM").Select
Application.ScreenUpdating = False
End Sub

 

[mandrake2006]

Öncelikle Çok teşekkür ederim. Gönderdiğiniz dosyada sadece isim kısmını aktarıyor. diğer sütünlarıda aktarabilirmiyiz. Şimdiden teşekkür ederim

 

[Orion1]

Dosyanız ektedir.

Sub filter_copy()
Dim sat As Long
Sheets("DATA").Select
sat = Cells(65536, "C").End(xlUp).Row
If sat < 2 Then Exit Sub
Application.ScreenUpdating = False
With Sheets("İŞLEM")
    .Range("A2:Y104000").Clear
    Range("A2:Y" & sat).CurrentRegion.Copy
    .Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
End With
Application.CutCopyMode = False
Sheets("İŞLEM").Select
Range("A1").Select
Application.ScreenUpdating = False
End Sub