Voor een rapport ben ik bezig een macro te verwerken die een kolommen verbergt indien een bepaalde cel een bepaalde waarde krijgt.
Bijvoorbeeld, als cel A1 een waarde heeft van 1 dan kolom B en kolom D verbergen. Maar heeft cel A1 een waarde van 2 dan alleen kolom D verbergen. Bij een waarde van 3 dan kolom B t/m D verbergen.
Ik heb heb de volgende macro van internet kunnen halen en zelf wat geknutseld, maar helaas krijg ik het niet goed werkend. Kan iemand mij helpen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = 1 Then
Columns("B").Hidden = True
Columns("D").Hidden = True
Else
Columns("B").Hidden = False
Columns("D").Hidden = False
End If
If Range("A1").Value = 2 Then
Columns("D").Hidden = True
Else
Columns("D").Hidden = False
End If
If Range("A1").Value = 1 Then
Columns("B:D").Hidden = True
Else
Columns("B:D").Hidden = False
End If
End Sub
ps Uiteindelijk zal cel A1 gevuld zijn met een formule die de waarde van de cel bepaald.