VBA Skjul/vis celler

Prøv:

' Hvor mance x'er er der ?
For c = 1 To 10
    If Cells(5, c).Value = "x" Or Cells(5, c).Value = "X" Then i = i + 1
Next

' Hvis flere end 1 så skjul alle med x
If i > 1 Then
    Cells.Select
    Selection.EntireRow.Hidden = False
   
    For c = 1 To 10
        If Cells(5, c).Value = "x" Or Cells(5, c).Value = "X" Then
            Cells(c, c).EntireColumn.Hidden = True
   
        End If
    Next
    Cells(1, 1).Select
' ellers vis hele arket
Else
    Cells.Select
    Selection.EntireRow.Hidden = False
    Cells(1, 1).Select
End If

Tak for svaret, men den holder ikke helt.
Den skal tjekke, hvor mange kolonner der er skjulte, og ikke hvor mange der står med "x".

Forestil dig en "toggle"-makro, som viser hele arket, hvis er nogle skjulte kolonner, og hvis der ikke er nogle skjulte kolonner, så skjuler den alle dem med "x".

Makroen må derfor skulle vendes lidt rundt a'la:
' Hvor mance x'er er der ? <--- HVOR MANGE KOLONNER ER SKJULTE?
For c = 1 To 100
    If Cells(5, c).Value = "x" Or Cells(5, c).Value = "X" Then i = i + 1
Next

' Hvis flere end 0 er skjulte så vis hele arket
If i > 0 Then
   
    For c = 1 To 100
        If Cells(5, c).Value = "x" Or Cells(5, c).Value = "X" Then
            Cells(c, c).EntireColumn.Hidden = False
        End If
    Next

' ellers skjul kolonner med "x"
Else
    For c = 1 To 100
        If Cells(5, c).Value = "x" Or Cells(5, c).Value = "X" Then
            Cells(c, c).EntireColumn.Hidden = True
   
        End If
    Next
End If

Problemet er så bare tælleren, som skal tælle skjulte kolonner frem for "x"er.

Fandt ud af det:

Sub skjul()

' Hvor mance x'er er der ?
For c = 1 To 100
    If Cells(5, c).EntireColumn.Hidden = True Then i = i + 1
Next

' Hvis flere end 0 så vis hele arket
If i > 0 Then
    Cells.EntireColumn.Hidden = False

' ellers skjul kolonner med "x"
Else
    For c = 1 To 100
        If Cells(5, c).Value = "x" Or Cells(5, c).Value = "X" Then
            Cells(5, c).EntireColumn.Hidden = True
   
        End If
    Next
End If

End Sub


Smid et svar ....

Nej tak - du løste jo selv problemet ;)

Jamen jeg fik jo lige den hjælp jeg havde behov for ... men tak anyway :-)

Afsluttet

en kortere udgave

Sub skjul()
For c = 1 To 100
    If Cells(5, c).EntireColumn.Hidden = True Then Cells.EntireColumn.Hidden = False:  Exit Sub
Next
    For c = 1 To 100
        If UCase(Cells(5, c).Value) = "X" Then Cells(5, c).EntireColumn.Hidden = True
    Next
End Sub