ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[erseldemirel2]

Arkadaşlar; "İcmal" sekmesinde filtreleme yapmak için "Filtre" sekmesinde kısmındaki İL bilgileri Module1 ile kullanılıyor.
Ancak; çalıştıktan sonra İCMAL de A1C1 arası filtreleme hali ortadan kalkıyor. Yeniden filtreleme yaparsam süzülmüş tüm veriler tekrar geliyor. Kısaca ben module1 filtreme yaptıktan sonrada filtre kısmında başka İl seçebileyim yada kaldırabileyim.
Module1 çalıştıktan sonra A1-C1 filtreleme aktif kalması nasıl sağlanır? Teşekkürler

[Yken]

Kod: Tümünü seç

Sub Filrele()
Dim i As Integer, sonsat1 As Integer
Dim ar() As Variant, sonsat2 As Integer

sonsat1 = Sayfa1.Range("a1").End(xlDown).Row
sonsat2 = Sayfa2.Range("a1").End(xlDown).Row
ReDim ar(1 To sonsat2)
For i = 2 To Sayfa2.Range("a1").End(xlDown).Row
ar(i - 1) = Sayfa2.Range("A" & i)
Next i

Worksheets("İCMAL").[B1].AutoFilter 2, ar, xlFilterValues
End Sub


[erseldemirel2]

Tesekkurler uyarlama yapayım