Filtreleme

[hbgny]

Merhaba,

Borçlular düğmesine bastığımda A1 hücresinde yazan aya göre, o ayın bakiye kısmını, sıfırdan büyük şeklinde filtrelemek, alacaklılar düğmesine bastığımda ise, A1 hücresinde yazan aya göre, o ayın bakiye kısmını sıfırdan küçük olarak filtrelemek istiyorum. Mesela örnekte A1 hücresinde Mart ayı yazıyor. L kolonunda ki verilere göre filtrelemek istiyorum. Bu konuda bana yardımcı olabilir misiniz?

 

[CanexEgitim]

ALTIN ÜYE OLMADIĞIM İÇİN İNDİREMİYORUM YARDIM İÇİN

 

[CanexEgitim]

ALTIN ÜYE OLMADIĞIM İÇİN İNDİREMİYORUM YARDIM İÇİN

mail adresime atarsanız yardımcı olabilirim.

 

[çıtır]

Kodları İlgili düğmelere atayarak deneyiniz.

Sub filtre1()
Dim s1 As Worksheet
Set s1 = Sheets("Cariler")
s1.Select
If s1.Range("A4") <> "" Then
sut = WorksheetFunction.Match(s1.Range("A4"), s1.Range("D9:AM9"), 0) + 5
s1.Range("A10").Select
s1.Range("A10").AutoFilter Field:=sut, Criteria1:=">0", Operator:=xlAnd
End If
End Sub

Sub filtre2()
Dim s1 As Worksheet
Set s1 = Sheets("Cariler")
s1.Select
If s1.Range("A4") <> "" Then
sut = WorksheetFunction.Match(s1.Range("A4"), s1.Range("D9:AM9"), 0) + 5
s1.Range("A10").Select
s1.Range("A10").AutoFilter Field:=sut, Criteria1:="<0", Operator:=xlAnd
End If
End Sub

Sub filterİptal()
Dim s1 As Worksheet
Set s1 = Sheets("Cariler")
s1.Select
ActiveSheet.AutoFilterMode = False
End Sub

 

[hbgny]

Merhaba,

Komutlar çalıştı çok teşekkür ederim. Yalnız şöyle bir problem var. Ayı değiştirdiğimde bir önceki filtrelemeyi iptal etmediği için hatalı oluyor. Komutu çalıştırmadan önce bir önceki filtrelemeyi nasıl iptal edebilirim?

 

[çıtır]

Merhaba,

Komutlar çalıştı çok teşekkür ederim. Yalnız şöyle bir problem var. Ayı değiştirdiğimde bir önceki filtrelemeyi iptal etmediği için hatalı oluyor. Komutu çalıştırmadan önce bir önceki filtrelemeyi nasıl iptal edebilirim?

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Filtre iptal önceki mesaj düzenlenerek ilave edilmişdir.Kolay gelsin.

 

[hbgny]

Tam istediğim gibi oldu. Çok teşekkür ederim. Elinize, emeğinize sağlık.

 

[çıtır]

Tam istediğim gibi oldu. Çok teşekkür ederim. Elinize, emeğinize sağlık.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.
Filitreleme makrolarında ,Filiteleme yapmadan önceki satıra aşağıdaki kodu yazarak da önceki filitrelemeleri kaldırabilirsiniz.

ActiveSheet.AutoFilterMode = False