Soru Makro Çalışınca Filtreyi kaldırıyor

[NADİR YILDIZ]

Private Sub CommandButton1_Click()
Columns("k:k").Select
Range("k:k").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("n:n"), Unique:=True
Range("n1").Select
Columns("l:l").Select
Range("l:l").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("q:q"), Unique:=True
Range("q1").Select
End Sub

Bu makro kodunu çalıştırdığımda filtreyi kaldırıyor..burada ne yapmam gerekiyor

 

[Asri]

Filtre kaldırma yada kaldırmayı engelleme değil de.
Sonuç olarak ne yapmak istiyorsunuz?

 

[Asri]

Filtrelenmiş veriyi kopyalamak istiyorsanız. Aşağıdaki şekilde deneyin.

Range("K1:K100").SpecialCells(xlCellTypeVisible).Copy Range("N1")