Hide columns with VBA code

[Aldwin]

Hi all,

I want to have a VBA Code how automaticaly hide columns.
There are two excelsheets: "Inleiding" and "Checklist Toelichting Algemeen".
There are three criteria in c8 of excelsheet "Inleiding": "Groot", "Middelgroot" and "Klein".
The VBA code need to do the following things:
- If cel c8 in excelsheet "Inleiding" give "Groot" then hide column D and E in excelsheet "Checklist Toelichting Algemeen".
- If cel c8 in excelsheet "Inleiding" give "Middelgroot" then hide column C and E in excelsheet "Checklist Toelichting Algemeen".
- If cel c8 in excelsheet "Inleiding" give "Klein" then hide column C and D in excelsheet "Checklist Toelichting Algemeen".
Thanks in advance.

Regards,

Aldwin

 

[MARK858]

Possibly put the code below in the "Inleiding" sheets code module (right click the "Inleiding" sheet tab, click View Code, paste the code below in the window that appears.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$C$8" Then
         
         Sheets("Checklist Toelichting Algemeen").Columns("A:F").EntireColumn.Hidden = False

            Select Case Target.Text

            Case "Groot"
                Sheets("Checklist Toelichting Algemeen").Columns("D:E").EntireColumn.Hidden = True

            Case "Middelgroot"
                Sheets("Checklist Toelichting Algemeen").Columns("C:C").EntireColumn.Hidden = True
                Sheets("Checklist Toelichting Algemeen").Columns("E:E").EntireColumn.Hidden = True

            Case "Klein"
                Sheets("Checklist Toelichting Algemeen").Columns("C:D").EntireColumn.Hidden = True

            End Select
        End If
End Sub

 

[Aldwin]

Thanks it works!!

 

[snb_]

reducable to:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$8" Then
       with Sheets("Checklist Toelichting Algemeen")
         .Columns("A:F").Hidden = False
         .Columns("D:E").Hidden = Target="Groot"
         .Range("C1,E1").EntireColumn.Hidden = Target="Middelgroot"
         .Columns("C:D").Hidden = Target="Klein"
       End With
    End if
End Sub

 

[MARK858]

Interesting, haven't tried just putting the action = target = value before.
Will try it this evening.
Thanks for that snb.