Macro kolommen zichtbaar maken

[FBV]

Goededag

Ik zoek hulp bij het maken van een macro:
Indien in kolom T een getal wordt ingevuld, dienen kolom U tot en met AE zichtbaar te worden
Hierbij dient het niet uit te maken welke cel van kolom T wordt ingevuld

Indien kolom T leeg blijft dienen de andere kolommen dus verborgen te blijven.

Alvast bedankt voor de hulp

 

[cow18]

in de bladmodule een change-event

 

[HSV]

Eenvoud siert.

Private Sub Worksheet_Change(ByVal Target As Range)
  Columns("u:ae").Hidden = Application.Count(Columns(20)) = 0
End Sub

 

[cow18]

Iets in die zin had ik ook eerst gedacht, maar ik denk dat zo'n macro nogal snel vervelend werkt op termijn in een werkblad waar er veel gewijzigd wordt.
Misschien is de gewenste functionaliteit hier het open en dichtklappen van bepaalde kolommen via "kolommen groeperen" om zo meer of min details te tonen.
Dan kan je dat zelf handmatig doen.

 

[HSV]

Klopt, dat is met elke change-event.
Of je nu intersect in de code gebruikt of niet.

 

[snb]

Ook bij:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  y = Columns(20).SpecialCells(2, 1)
  Columns("U:AE").Hidden = Err.Number = 0
End Sub

 

[FBV]

Tot nu toe kan ik de kolommen idd tevoorschijn toveren met de macro. Echter nu dien ik bij het invoeren van een getal in kolom T deze macro te activeren. Opties?

 

[cow18]

met Worksheet_Change misschien ?

 

[HSV]

:d:d:d

 

[FBV]

bedankt voor de reacties
ik heb enkele excelsheets gemaakt met jullie voorbeelden, echter ben ik er nog niet.
Er zijn meer kolommen verborgen, waarbij de kolommen die er direkt achter staan tevoorschijn dienen te komen.
dus niet verbergen (wat dat zijn ze al)

nu dien ik ze nog toe te voegen aan dit bericht, echter zou ik niet weten hoe

 

[FBV]

in de bladmodule een change-event

Onderstaand de code die nu werkt:

Private Sub Worksheet_Change(ByVal Target As Range)
Set c = Intersect(Target, Columns("T")) 'welke T-cellen zijn er gewijzigd ?
If c Is Nothing Then Exit Sub 'geen=einde verhaal
For Each cel In c.Cells 'alle gewijzigde T-cellen aflopen
If IsNumeric(cel) Then Columns("U:AE").Hidden = False: Exit Sub
Next
End Sub

echter, nu dien ik naast deze kolommen nog een reeks meer te laten verschijnen:
bij getal in kolom AF dienen de kolommen AG tm AL tevoorschijn te komen.

Hoe kan ik dit toevoegen aan bovenstaand?
bij