Sutun gizleme

[nafri37]

arkadaşlar şimdiden teşekkür ederim
benim istediğim
A2 Sutununa "E" Yazınca Yard-2 Sayfasındaki K Ve L Sutunu Gözükecek
A2 Sutununa "H" Yazınca Yard-2 Sayfasındaki K Ve L Sutunu Gizlenecek
not:vb pek fazla bilmiyorum

 

[Ömer]

Merhaba,

Çalışma sayfası kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    
    With Sheets("yard-2")
        If UCase(Target) = "E" Then
            .Columns("K:L").EntireColumn.Hidden = True
        ElseIf UCase(Target) = "H" Then
            .Columns("K:L").EntireColumn.Hidden = False
        End If
    End With
 
End Sub

.

 

[nafri37]

Teşşekür ederim ancak sorumu eksik sormuşum (pardon) sayfa1 deki listede sutunları gösterilecekler ve gizlenecekler seçilecek "yard-2" sayfada ilgili sutun gösterecek veya gizleyecek
a2=h ise yard-2 sayfada K:L sutunları gizlenecek
aynı şekilde
a3=h ise yard-2 sayfada M:L sutunları gizlenecek
aynı şekilde
a4=e ise yard-2 sayfada O sutunları gözükecek
böyle devam edecek
(k:l sutunlarından başlayıp 2 sutun halinde gizlenip, gözükecek)(K:L;M:N;O.. gibi)

 

[Ömer]

Sorularınızı ilk mesajınızda açıklayıcı sormaya özen göstermenizi ve aynı konuyla ilgili birden fazla konu başlığı açmamanızı rica ederim.

Kodları aşağıdakilerle değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim sAt As Long, aLan As Range
 
    If Intersect(Target, Range("A2:A65500")) Is Nothing Then Exit Sub
 
    sAt = Target.Row * 2 + 7
 
    With Sheets("yard-2")
        Set aLan = .Range(.Cells(1, sAt), .Cells(Rows.Count, sAt + 1))
        If UCase(Target) = "E" Then
            aLan.EntireColumn.Hidden = True
        ElseIf UCase(Target) = "H" Then
            aLan.EntireColumn.Hidden = False
        End If
    End With
 
End Sub

.