Filtre uygulama

[dragon44760]

Korumalı sayfada I1 hücresine veri doğrulama ile aldığım b2:h2 arsındaki tarihi seçince b2:h2 arasında aynı tarihli hücrede filtre uygulayarak 1'e eşit olanları bulmak istiyorum.
Kısmen birşeyler yaptım ama filtreleme işini halledemedim. Sayfa koruması 123'tür.
Yardımcı olan arkadaşlara şimdiden teşekkürler...

 

[Ömer]

Merhaba,

Sub Filtre()
ActiveSheet.Unprotect 123
On Error Resume Next
ActiveSheet.ShowAllData
Dim c As Range
With Range("B2:H2")
Set c = .Find(Range("I1"), LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not c Is Nothing Then
        .AutoFilter field:=c.Column - 1, Criteria1:=1
    End If
End With
ActiveSheet.Protect 123
End Sub

Bu şekilde deneyin.

.

 

[dragon44760]

Hocam sadece B kolonuna göre süzmekte. Örneğin I1=18.02.2009 olduğunda E kolonunda seçim yapması gerekirken yine B kolonunda seçim yapmakta.

 

[Ömer]

Kodu değiştirdim, tekrar denermisiniz.

.

 

[dragon44760]

Teşekkürler hocam. Tam istediğim gibi