Autofilter,copy,paste

[bluefalcon]

Arkadaşlar,

Forumda birkaç tane bu konu ile ilgili kod satırı buldum.Ancak ekteki tabloma uyguladığımda maalesef sonuç vermiyor.Sorunu araştırıyorum ama bulamadım bir türlü lütfen yardımcı olabilir misiniz?

Sorun şu;
Ekteki tabloda yer alan listedeki B sütunundaki kişilerin giriş ve varsa çıkış saatlerini süzecek kopyalayacak daha sonra sayfa 2 ye A1 hücresine yapıştıracak. (Örneğin Esra Cebecinin 12 kaydını süzüp kopyalayacak Sayfa 2'nin A1 hücresine yapıştıracak) Olay sadece süz kopyala yapıştırdan ibaret.

 

[mehmett]

Dosyanız ekte.

Listeden istediğiniz ismi seçin ve düğmeye tıklayın.

 

[Necdet]

Merhaba,

Aşağıdaki kodları Sayfa1 de Süz (Filter) yaptıktan sonra çalıştırınız.

Sub SuzVeKopyala()
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    
    Sheets("Sayfa1").Select
    ActiveSheet.ShowAllData
    [A1].Select
End Sub

 

[bluefalcon]

arkadaşlar teşekkür ederim.