Kolommen automatisch verbergen

Status
Niet open voor verdere reacties.
M

monty1a

Gebruiker
Lid geworden
29 dec 2006
Berichten
202
Ik heb een vraag over automatisch kolommen verbergen.

In de cellen K54:L500 zitten formules die hun waarde uit andere tabbladen halen.
Mocht er in 1 of meerdere van de cellen een waarde staan (variërend van 1 tot 50) dan moeten deze 2 kolommen zichtbaar zijn.
Wanneer er niets in staat dan mogen deze 2 verborgen zijn.

Ik heb de volgende formule:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    
  If Range("F1").Value < 1 Then Columns("K:L").Hidden = True
    

Application.ScreenUpdating = True

End Sub

Het probleem is dat het alleen werkt als ik een waarde in deze cellen typ.
Ik heb het het liefst dat deze code wordt uitgevoerd als ik de sheet open.

Kan iemand mij hierbij helpen?
 

Bijlagen

  • kolommen verbergen.xlsm
    30,5 KB · Weergaven: 25
Laatst bewerkt:
Sheet openen = bestand openen? In de module van Thisworkbook

Code: 
Private Sub Workbook_Open()
  Sheets("Blad1").Columns("K:L").Hidden = Sheets("Blad1").Range("F1") < 1
End Sub

En anders iets soortgelijks in de module van blad1 met Worksheet_Activate(). Je mag dan de bladverwijzing weglaten.
 
Het werkt idd met Activate.

Dan verbergt hij idd als de cel 0 is, maar hij laat het niet meer zien als het 1 of meer is geworden.
Oftewel hij werkt maar 1 kant op, klopt dit?
Anders zou ik graag willen dat het ook andersom werkt, dus hij ze laat zien als er weer een waarde in staat.

Ik had nu de code:
Code: 
Private Sub Worksheet_Activate()
  Sheets("Blad1").Columns("K:L").Hidden = Sheets("Blad1").Range("F1") = 0
End Sub
 
Sorry, is gelukt, was een probleem met een link. Stond tekst ipv getal
 
Code: 
Private Sub Worksheet_Activate()
  Columns("K:L").Hidden = Range("F1") = 0
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan