Vraag betreft Macro aanpassing

[koning64]

Goedemorgen,

Ik zit te stoeien met een macro en ik zie duidelijk iets over het hoofd.

Ik heb in een cel C2 een waarde welke kan varieren tussen de 1- > dan 1. Deze geeft aan wat er moet laten zien worden.
Zoals in de afbeelding te zien is worden de rijen verborgen die niet van toepassing zijn op het nummer alleen wil ik dit ook doorvoeren in de kollommen.

Kan iemand mij vertellen wat ik fout doe en hoe ik dit kan oplossen?

 

[Cobbe]

Bedankt voor de foto maar liever toch een Excelbestandje.

 

[gast0660]

Mooi plaatje, maar plaatjes horen thuis in het photoshop forum.
Je kan geen stukjes kolom verbergen.

Columns("D:E").EntireColumn.Hidden = False

 

[koning64]

Bekijk bijlage Vraag excel Macro.xlsm

hierbij mijn excel.

 

[Cobbe]

Test deze eens:

Sub RijenVerbergen()
    Application.ScreenUpdating = False
    For Each C In Range("$A$7:$A$158" & Range("A65500").End(xlUp).Row)
        If C = "x" Then
            Rows(C.Row).Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub
Sub KolommenVerbergen()
    If Range("C2").Value = 1 Then
        Columns("D:E").EntireColumn.Hidden = True
    Else
        Columns("D:ZZ").EntireColumn.Hidden = False
    End If
End Sub
Sub tonen()
    Range("A:A").Rows.Hidden = False
    Columns("D:ZZ").Hidden = Flase
End Sub

 

[koning64]

Bijna! ze verdwijnen nu allemaal incl. de 1. Maar we zijn al een stuk verder!
Idee hoe ik dit nog gemakkelijk in de VBA kan aanpassen zodat wanneer cel C2 gelijk is aan het bereik die ook laat staan? of is het dan handig een voorwaardelijke opmaak te maken net zoals in de rijen?

 

[koning64]

iemand?

 

[Cobbe]

Wanneer en waarom moeten welke kolommen verborgen worden?