Hücredeki Veriye Göre Sütunda Süzme

[turkanet]

Merhaba,
G1'deki hücreyi içeren hücreleri süzme makrosuna ihtiyacım var. Veriler A2:A100 aralığında, aranan değer G1'de. Form açılmayan makro için şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son As Integer
    son = Cells(65536, "a").End(xlUp).Row
    Range("a1:a" & son).AutoFilter field:=1, Criteria1:=[g1] & "*"
End Sub

 

[turkanet]

sn hocam,

ilgili makro, makro penceresinde görünmüyor. nereye kaydetmem gerekiyor?