Filtre yeniden uygula sorunu.

[fb_mbk]

Merhabalar,benim sorunum filtreleme yaptığım,sayfaya her seferinde gidip,yeniden uygulaya tıklamazsam,filtrenin yenilenmemesi..

Bunun kısa yolu yok mu acaba;

şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Sanırım filtre uyguladığınız alan verileri formülle başka bir alandan alıyor.

Bundan dolayı alanda değişiklik olunca filtreniz ilk hali ile kalıyor.

Bu işlemin kısayolu;

YENİDEN UYGULA (CTRL+ALT+L)

 

[fb_mbk]

yardımcı olucak sizlere şimdiden teşekkür ederim.

 

[fb_mbk]

Sanırım filtre uyguladığınız alan verileri formülle başka bir alandan alıyor.

Bundan dolayı alanda değişiklik olunca filtreniz ilk hali ile kalıyor.

Bu işlemin kısayolu;

YENİDEN UYGULA (CTRL+ALT+L)

evet dediğiniz doğru,onun için teşekkür ederim fakat,benim istediğim sayfa1deyim mesela,bu filtreleme verisi sayfa 101de ben,sayfa 101 e gitmeden sayfa1den,kısa yoldan filtrelemeyi yenile demek istiyorum, bunu nasıl yapabilirim? ilginiz için tekrardan teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub Filtre_Yenile()
    Sheets("Sayfa1").AutoFilter.ApplyFilter
End Sub

 

[BedriA]

Aşağıdaki kodu kullanabilirsiniz.

Sub Filtre_Yenile()
    Sheets("Sayfa1").AutoFilter.ApplyFilter
End Sub

Korhan Hocam,

Ben de sürekli veri girişi girişi yaptığım "konu" isimli sayfamın A sütununun alfabetik olarak olarak sıralanmasını istiyorum. Nasıl bir kod yazmalıyım?

 

[BedriA]

Korhan Hocam,

Aşağıdaki makro ile hallettim.

Sheets("konu").Select
                         Columns("A:A").Select
    ActiveWorkbook.Worksheets("konu").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("konu").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("konu").Sort
        .SetRange Range("A1:A100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With