Kolommen verwijderen op basis ingave cel

[kruysklm]

Als ik in cel w15 een 2 plaats wil ik dat de kolommen N tot en met R verborgen worden, hoe doe ik dit in VBA.
Ik heb op het forum niet zoiets kunnen vinden.

Groeten,

Klaas

 

[Jack Nouws]

Als ik in cel w15 een 2 plaats wil ik dat de kolommen N tot en met R verborgen worden, hoe doe ik dit in VBA.
Ik heb op het forum niet zoiets kunnen vinden.

Groeten,

Klaas

Hallo,

Een voorbeeldje

If [W15].Value = 2 Then Columns("N:R").Hidden = True

Met vr gr
Jack

 

[kruysklm]

Jack,

Op [W15] krijg ik compileerfout.

Groeten,

Klaas

 

[HSV]

Probeer deze eens Klaas.

Private Sub Worksheet_Change(ByVal Target As Range)
If [W15].Value = 2 Then
Columns("N:R").Hidden = True
Else: Columns("N:R").Hidden = False
End If
End Sub

 

[trucker10]

Om keuze te hebben , welke je best past

Private Sub Worksheet_Change(ByVal Target As Range)

    If [W15].Value = 2 Then Columns("N:R").Hidden = True Else Columns("N:R").Hidden = False
    
End Sub

 

[kruysklm]

Allen,

Bedankt.
Het werkt nu.

Groeten,

Klaas

 

[HSV]

Om keuze te hebben , welke je best past

Lach je mij nu uit, door met je vinger te wijzen.

 

[trucker10]

@ Harry , pas je scherm resolutie aan zodat ik niet in beeld ben :d , ik wist waar het vogeltje zat
Harry ik zie nu pas in jouw code achter else :

 

[Warme bakkertje]

Nog meer keuze (en iets compacter)

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("N:R").Hidden = IIf([W15].Value = 2, True, False)
End Sub