ComboBox İle Sütun Gizle-Göster Kodu Revize Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

"L3:U3", "AF3:AO3" ve "AZ3:BI3" aralıkları ölçüt olarak belirlenmiştir.
ComboBox1 ile yapılan seçime göre "L3:U3" aralığındaki eşleşen sütunları gösteriyor, seçim ile eşleşmeyen sütunları gizliyorum.
Bu özelliği aynı ComboBox1 ile "AF3:AO3" ve "AZ3:BI3" aralığına da uygulanmasını sağlamak istiyorum.
Buna göre alıntı olan aşağıdaki mevcut kodları nasıl revize etmeliyim?

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

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Columns.Hidden = False
If ComboBox1.Text = Empty Then Exit Sub
For a = 12 To 21
If Cells(3, a) <> ComboBox1.Text Then Columns(a).Hidden = True
Next a
Application.ScreenUpdating = True
End Sub

Örnek Dosya Linki:

Sutun_Gizleme.xlsm dosyasını indir - download

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

www.dosya.tc

İndir Sütun Gizleme

Dosyayı indir Sütun Gizleme

dosya.co