Korumalı Sayfada Option Button İle Filtreleme Yapma Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Ekteki çalışmanın bir çok sayfasında yapmak istediğim, ancak hala başaramadığım bir sorunumun çözümü için çok değerli yardımlarınızı rica ediyorum.
"A9:A1000" sütunundaki ifadelere göre, üç ayrı Option Button ile filtreleme yapıyorum.
Kullanıcıların, formül içeren hücreleri bozmamaları için sayfa koruma şifre (Şifre=123) ile korumaya alıyorum.
Korumalı sayfada filtreleri çalıştırmak istiyorum. Sayfa Koruma Şifresi = 123 şeklindedir.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Örnek Çalışma Link:

Korumali_Sayfada_Filtre.xlsm dosyasını indir - download

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

s2.dosya.tc

Sayfa İsmi.xlsm

drive.google.com

 

[Muzaffer Ali]

Merhaba.
RESTAURANT adlı sayfanın kod kısmındaki kodları silin aşağıdakileri kopyalayın.

Private Sub OptionButton1_Click()
    Filtre "Detay"
End Sub

Private Sub OptionButton2_Click()
    Filtre "Özet"
End Sub

Private Sub OptionButton3_Click()
    Filtre ""
End Sub

Sub Filtre(Kriter As String)
    Unprotect "123"
    If OptionButton2.Value = True Or OptionButton2.Value = True Then
        Selection.AutoFilter Field:=1, Criteria1:=Kriter
    Else
        Selection.AutoFilter Field:=1
    End If
    Protect "123"
End Sub

 

[Believing]

Sayın Dalgalikur,

Öncelikle konuyu gösterdiğiniz ilgi ve yardımınız için size çok teşekkür ederim.
Örnek çalışmada bir detayı unuttuğum için, mevcut kodlar çalışmakta fakat amaç uygun değildir. Unuttuğum detayı için özür dilerim.
"A" sütunundaki Detay ve Özet değişkenleri "B" sütununa göre formül ile oluşmakta ve "A" sütununda boş hücreler de bulunmaktadır.
"Detay" veya "Özet" butonlardan biri seçildiğinde, boş satırları gizleyerek koşula göre göstermelidir. Bu durum sadece Option Button2'de doğru olarak çalışmaktadır. Tümünü Göster seçildiğinde ise Detay ve Özetleri birlikte, boş satırlar olmaksızın göstermelidir.
Yukarıdaki koşulları sağlamanız çok makbule geçecektir.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Believing]

Sayın Dalgalikur,
Yardımınız için size çok teşekkür ederim.
Hakkınızı helal edeniz lütfen.
Kolay gelsin.

Saygılarımla,
Ömer Ali ÜZÜMCÜ