Hücrede yazılı olan verinin bulunduğu sütun görünür,diğerleri gizlenecek

[M.ACAR]

İyi geceler;
Ekteki dosya'da D3 hücresine Veri doğrulama uyguladım,F:Y sütunlarından şantiye isimlerini buluyorum yapmak istediğim D3 Hücresinde hangi sütundaki
Şantiye ismi varsa o sütun görünür olsun,diğer sütunlar gizlensin.
Örneğin a şantiye'si seçilmiş olsun F sütunu görünecek
G:Y Sütunları gizli
c şantiyesi seçili H sütunu görünür,F:G,I:Y sütunları gizli olacak

 

[Ergün Güler]

İyi geceler;
Ekteki dosya'da D3 hücresine Veri doğrulama uyguladım,F:Y sütunlarından şantiye isimlerini buluyorum yapmak istediğim D3 Hücresinde hangi sütundaki
Şantiye ismi varsa o sütun görünür olsun,diğer sütunlar gizlensin.
Örneğin a şantiye'si seçilmiş olsun F sütunu görünecek
G:Y Sütunları gizli
c şantiyesi seçili H sütunu görünür,F:G,I:Y sütunları gizli olacak

Selam,
CARİ TAKİP sayfanızın kod sayfasına aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim bulunan As Range
Dim aranan As String

If Target.Count > 1 Then Exit Sub

Application.ScreenUpdating = False
If Target = Range("D3") Then
    aranan = Range("D3")
    Columns("F:Y").EntireColumn.Hidden = False
    Set bulunan = Range("F3:Y3").Find(aranan, , xlValues, xlWhole)
    
    If Not bulunan Is Nothing Then
        Columns("F:Y").EntireColumn.Hidden = True
        Columns(bulunan.Column).EntireColumn.Hidden = False
    End If
End If
Application.ScreenUpdating = True
End Sub

İyi çalışmalar.

 

[M.ACAR]

Ergün bey çok teşekkür ederim,iyi geceler.

 

[Ergün Güler]

Ergün bey çok teşekkür ederim,iyi geceler.

Selam,
Ben teşekkür ederim. Size de iyi geceler.