makro filtre yardımı

[cemiltam]

Merhaba
sql veri tabanından çektiğim bi raporda satıra yazdığım isme göre filitre çalışsın istiyorum ama makroda hata veriyor yardım ederseniz sevinirim.
Sub Makro5()
'
' Makro5 Makro
'

'
Range("C2").Select
Selection.Copy
ActiveSheet.ListObjects("CML_001_KAPANMAMIS_BORC__2").Range.AutoFilter Field _
:=2

ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

hata: run time eror '1004'
worksheet sınıfının paste yöntemi başarısız.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanın.

Sub Makro5()
    ActiveSheet.ListObjects("CML_001_KAPANMAMIS_BORC__2").Range.AutoFilter Field:=2, Criteria1:=Range("C2").Value
End Sub

Eğer olmuyorsa dosyanızı paylaşın bakalım.
Dosyanızı dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.

 

[cemiltam]

Muzaffer bey yardımınız için teşekkürler malesef gönderdiğiniz olmadı dosyayı yolladım ekte
https://www.dosya.tc/server39/jp5yr3/BORC.xlsx.html

 

[Muzaffer Ali]

Sayfa2 nin kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C2"), Target) Is Nothing Then
        ActiveSheet.Range("A6:H" & Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=2, Criteria1:="*" & Target.Value & "*"
    End If
End Sub

C2 ye yazıp entere basınca filtre yapar.