Voorwaardelijk tabbladen verbergen

[Norisk]

Beste,

mijn vraag:

Zou iemand mij kunnen helpen aan een formule/macro waarmee ik voorwaardelijk tabbladen kan verbergen.

bv

Y is zichtbaar
N is verborgen

en dat dan voor een aantal ( +/- 25 ) bladen

ik hoop dat iemand mij verder kan helpen..

Bij voorbaat dank!

Norisk

 

[HSV]

Zoiets?

Sub hsv()
Dim cl As Range
For Each cl In Columns(1).SpecialCells(2)
    On Error Resume Next
  Sheets(cl.Offset(, 1).Value).Visible = IIf(UCase(cl) = "N", False, True)
    On Error GoTo 0
 Next cl
End Sub

 

[Norisk]

Bedankt!

 

[Warme bakkertje]

Of

Sub tst()
    sq = Range("A3:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    For j = 1 To UBound(sq)
        Sheets(sq(j, 2)).Visible = IIf(UCase(sq(j, 1)) = "N", False, True)
    Next
End Sub

 

[Norisk]

Thnx Rudi!

de formule werkt perfect..

echter zit ik nog met een probleem.. de werkmap structuur moet altijd beveiligd..

dit zou er eigenlijk moeten gebeuren:


Unlock werkmap structuur

macro

Lock werkmap structuur.


Ik hoop dat iemand hier een passende oplossing voor heeft!

Bijvoorbaad dank!

Bart

Zie bijgevoegd bestand.. (uiteraard komt de optie berekening in een ander tabblad.)