Kolommen automatisch invoegen met macro

[janmulder85]

Hallo,

Graag zou ik een oplossing vinden voor het volgende probleem.

Ik heb in een werkblad de kolommen C t/m Z, waarvan M t/m Z verborgen is.

Nu wil ik graag dat indien er in L133 een waarde ingevuld wordt de eerstvolgende kolom (in dit geval kolom M automatisch zichtbaar wordt. Als er dan vervolgens in M133 weer wat ingevuld wordt dan moet kolom N zichtbaar worden. Dit moet doorgaan tot kolom Z zichtbaar is.

Ik kom er niet uit hoe ik dit in code moet verwerken, kan iemand me hiermee helpen?

Alvast bedankt!

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(0, 1).EntireColumn.Hidden = False
End Sub

Met vriendelijke groet,


Roncancio