Filitre yapabilmek için makro

[search77]

Filitre kullanmadan macro yaparak değeri girdiğinde bir tabloyu nasıl filitreyebilirim, örnek dosyada detaylı anlatımım mevcut, yardımlarınız için şimdiden teşekkürler,

 

[Recep İpek]

Sanırım bunun gibi birşey istiyorsunuz.

G9 hücresine Şube Kodunu yazmanız yeterli.

Not: G8'deki başlık ile tablo başlıklarının aynı olması gerekiyor.

 

[zafer]

Merhaba

Dosyayı inceleyiniz






Edit:
Biraz geç kalmışım..............
Sayın Ripek Gelişmiş süzgeç ile çok güzel bir örnek göndermişsiniz..

 

[search77]

arkadaşlar çok teşekkür ederim, fakat istediğim tam olarak alamadım, ekli göndereceğim makro aslında tam olarak işimi görüyor fakat hata veriyor, buna bi bakabilir misiniz? tşk.

 

[zafer]

Merhaba

İlk gönderdiğiniz örnek ile son gönderdiğiniz örnek aynı değil.Çok farklı.

Sayın Yurttaş bey'in süzme ile ilgili örneğini inceleyiniz.

 

[Merhum İdris SERDAR]

Enson dosyanıza göre macronun buna benzer olmalı.

Sub Makro1()
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=[A1]
Range("a2:I13").Select
Selection.Copy
Range("k14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFilter
Range("k14").Select
End Sub

 

[Recep İpek]

Sayın Ripek Gelişmiş süzgeç ile çok güzel bir örnek göndermişsiniz..

Sn.zafer

Sizin bulduğunuz çözümdeki kodlarda çok güzel..

 

[search77]

arkadaşlar elinize sağlık, süper olmuş, çok teşekkürler.