Tıklama ile filtreleme yapma

[nikefootball]

Merhaba arkadaşlar

Elimde 220 bin satırlık bir data var. Örnek olarak ekte bir belge hazırladım basitçe.
Yapmak istediğim ;
A sütununda birden fazla benzer kriter var. Örnekten gidersem, 1. Hafta, 2. Hafta, 3. Hafta maçları var her hafta 9'ar maç var, listede bütün maçları listeliyor, ben 1. Haftaya tıkladığımda sadece 9 maçı göstersin istiyorum. Aynı zamanda diğer sütunlardan da takım adını seçtiğimde sadece 1.Haftada o takımın maçı listelensin istiyorum. Bir nevi filtreyi tek tek seçmek yerine tıklayarak yapmak istiyorum. Bunu nasıl yaparım.

ornek.xls dosyasını indir - download

ornek.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[nikefootball]

Sağ tuşla hücre üzerine gelip Seçilen Değerine göre filtre uygula yöntemi işimi gördü.

 

[ykslatmn]

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

haftalar = "*" & TextBox1.Value & "*"
ActiveSheet.Range("$A$1:$Q$25").AutoFilter Field:=1, Criteria1:=haftalar, _
Operator:=xlAnd

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


(1. hafta gibi yazarak istediğin haftayı aratabilirsin.)

1ornek.xlsm dosyasını indir - download

1ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

indir...

 

[izcik]

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

haftalar = "*" & TextBox1.Value & "*"
ActiveSheet.Range("$A$1:$Q$25").AutoFilter Field:=1, Criteria1:=haftalar, _
Operator:=xlAnd

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


(1. hafta gibi yazarak istediğin haftayı aratabilirsin.)

1ornek.xlsm dosyasını indir - download

1ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

indir...

Güzel bir çalışma, teşekkürler