Ik wil dat automatisch bepaalde kolommen worden geselecteerd wanneer een
optie wordt aangeklikt. Dit tracht ik middels aanmaak van een keuzerondje uit de werkset
besturingselementen voor elkaar te krijgen. De code die ik gebruik ziet er als
volgt uit:
Private Sub OptionButton1_Change()
If OptionButton1.Value = True Then
Sheets("Voorbeeldportefeuille").Select
Columns("H:K").Select
Selection.EntireColumn.Hidden = False
Else
Sheets("Invoer").Select
End If
End Sub
Dit resulteert in een foutmelding in regel 3.
Wanneer ik dezelfde code via formulieren (marco opnemen) aanmaak, werkt de
code wel. De code ziet er dan als volgt uit:
Sub Keuzerondje25_BijKlikken()
Sheets("Voorbeeldportefeuille").Select
Columns("H:K").Select
Selection.EntireColumn.Hidden = False
End Sub
Ik wil echter het keuzerondje uit de WS besturingselementen gebruiken, aangezien ik de functie 'change' nodig heb ipv 'click' Weet iemand wat ik verkeerd doe?
optie wordt aangeklikt. Dit tracht ik middels aanmaak van een keuzerondje uit de werkset
besturingselementen voor elkaar te krijgen. De code die ik gebruik ziet er als
volgt uit:
Private Sub OptionButton1_Change()
If OptionButton1.Value = True Then
Sheets("Voorbeeldportefeuille").Select
Columns("H:K").Select
Selection.EntireColumn.Hidden = False
Else
Sheets("Invoer").Select
End If
End Sub
Dit resulteert in een foutmelding in regel 3.
Wanneer ik dezelfde code via formulieren (marco opnemen) aanmaak, werkt de
code wel. De code ziet er dan als volgt uit:
Sub Keuzerondje25_BijKlikken()
Sheets("Voorbeeldportefeuille").Select
Columns("H:K").Select
Selection.EntireColumn.Hidden = False
End Sub
Ik wil echter het keuzerondje uit de WS besturingselementen gebruiken, aangezien ik de functie 'change' nodig heb ipv 'click' Weet iemand wat ik verkeerd doe?