Loop maken in formule

Status
Niet open voor verdere reacties.
T

Tsw

Gebruiker
Lid geworden
5 dec 2011
Berichten
183
Goedemiddag,

Ik heb de volgende formule:

Code: 
If Range("C3").Value >= 1 Then
Blad10.Columns("C:D").EntireColumn.Hidden = False
Else
Blad10.Columns("C:D").EntireColumn.Hidden = True
End If


If Range("E3").Value >= 1 Then
Blad10.Columns("E:F").EntireColumn.Hidden = False
Else
Blad10.Columns("E:F").EntireColumn.Hidden = True
End If


If Range("G3").Value >= 1 Then
Blad10.Columns("G:H").EntireColumn.Hidden = False
Else
Blad10.Columns("G:H").EntireColumn.Hidden = True
End If

En dit gaat zo tot cel "CC" door.
Is er een loop waardoor geen super lange formule krijg.

Alvast bedankt voor het meedenken!


Tsw
 
Dat kan korter:

Code: 
Blad10.Columns("C:D").Hidden =cells(3,3)<1

NB. Code <> Formule
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan