checkbox en option buttons leeg maken via macro

[davylenders123]

Ik heb een invulblad gemaakt , waar een button aan toegevoegd is die de ingevulde velden terug leeg maakt.
Al de cellen leeg maken is me gelukt , maar ik heb hier ook een checkbox in zitten met 5 keuzen rondjes en 3 option buttons.

De 3 option buttons en de checkbox zouden ook via dezelfde button die de andere cellen leeg maakt ook terug leeggemaakt moeten worden.
Wat moet ik aan code toevoegen om dit klaar te spelen ?

Private Sub CommandButton1_Click()
Sheets("aanvraag").Range("I9:I14").Value = ""
Sheets("aanvraag").Range("AS9:AS14") = ""
Sheets("aanvraag").Range("I17:I18") = ""
Sheets("aanvraag").Range("X17:X18") = ""
Sheets("aanvraag").Range("N21:N22") = ""
Sheets("aanvraag").Range("BA21:BA22") = ""
Sheets("aanvraag").Range("I6") = ""

MsgBox " Het document is leeg gemaakt"


End Sub

 

[TitaTovenaar]

me.keuzerondje.value=false

waarbij keuzerondje natuurlijk de naam van je keuzerondje is

 

[edmoor]

Zoiets:

Sub CommandButton1_Click()
    Dim objX As Object
            
    For Each objX In ActiveSheet.OLEObjects
        If TypeName(objX.Object) = "CheckBox" Or TypeName(objX.Object) = "OptionButton" Then
            objX.Object.Value = False
        End If
    Next
End Sub

 

[davylenders123]

Beide

Bedankt voor jullie snelle reactie weer.:thumb:

Ik heb beide opties geprobeerd en werken alle 2.

Enkel heb ik er ook een text box bij zitten , heb jullie code wel kunnen wijzigen dat hij de tekstbox ook leeg maakt , maar dan komt er bij bij opties FALSE te staan in de text box.
Hoe kan dit opgelost worden dat de text box gewoon leeg is na de run van de macro ?

Optie 1

Private Sub CommandButton1_Click()
Sheets("aanvraag").Range("I9:I14").Value = ""
Sheets("aanvraag").Range("AS9:AS14") = ""
Sheets("aanvraag").Range("I17:I18") = ""
Sheets("aanvraag").Range("X17:X18") = ""
Sheets("aanvraag").Range("N21:N22") = ""
Sheets("aanvraag").Range("BA21:BA22") = ""
Sheets("aanvraag").Range("I6") = ""
Me.CheckBox1.Value = False
Me.CheckBox2.Value = False
Me.CheckBox3.Value = False
Me.OptionButton1.Value = False
Me.OptionButton2.Value = False
Me.OptionButton3.Value = False
Me.OptionButton4.Value = False
Me.OptionButton5.Value = False
Me.TextBox1.Value = False
MsgBox " Het document is leeg gemaakt"


End Sub

Optie 2

Private Sub CommandButton2_Click()
Dim objX As Object
            
    For Each objX In ActiveSheet.OLEObjects
        If TypeName(objX.Object) = "CheckBox" Or TypeName(objX.Object) = "OptionButton" Or TypeName(objX.Object) = "TextBox" Then
            objX.Object.Value = False
        End If
    Next
End Sub

Misschien weten jullie voor het volgende ook wel een oplossing.
Er staan ook 2 afbeeldingen in het bestand.
1ste komt bovenaan te staan in rij 3 en deze zou moeten blijven staan.(Dit is steeds dezelfde foto die er moet blijven staan)
De 2de afbeelding komt in het bereik BK26:BZ40 te staan , en deze zou wel verwijderd moeten worden met dezelfde macro. (Dit is telkens een andere foto , die verwijderd zou moeten worden)

 

[edmoor]

Voor de verschillende objecten:

Private Sub CommandButton2_Click()
    Dim objX As Object
            
    For Each objX In ActiveSheet.OLEObjects
        Select Case TypeName(objX.Object)
            Case "CheckBox", "OptionButton":    objX.Object.Value = False
            Case "TextBox":                     objX.Object.Value = ""
        End Select
    Next
End Sub

Plaats een voorbeeld document met 2 foto's.

 

[davylenders123]

edmoor

De code doet al wat hij moet doen :thumb:

Bij deze het bestand met 2 test foto's in.
(Die in rij 3 staat veranderd nog wel 1 keer door originele logo) .

 

[edmoor]

Geef het logo plaatje de naam Logo, dan kan je met dit de andere verwijderen:

    Dim shp As Object
    For Each shp In ActiveSheet.Shapes
        If Left(shp.Name, 7) = "Picture" Then shp.Delete
    Next shp

 

[snb]

@Davy

Kijk svp even bij je persoonlijke berichten.

 

[davylenders123]

edmoor

Hartelijk dank voor je snel hulp en oplossingen :thumb::thumb:
Alles werkt :thumb:



snb normaal heb ik gereageerd op je prive bericht , maar weet niet of het gelukt is want vind mijn verstuurd bericht niet terug.

 

[snb]

@davy

Is gelukt; bedankt !