Option button code dubbel of niet?

Status
Niet open voor verdere reacties.

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste Helper,

Een klein vraagje ik gebruik bijna nooit option buttons dus mijn vraag is: Heb ik genoeg aan de eerste if statement? De 2de if statement lijkt me overbodig namelijk?
Het gaat maar om twee option buttons op een userform. zie plaatjeSchermafbeelding 2020-11-21 112006.png

Code:
        If Me.Opt_DV225.Value = True 
            Worksheets("AIRFLOW 1 SET").Range("y1") = 1
            Worksheets("AIRFLOW 1 SET").Range("a43") = "DV-225"
            Worksheets("AIRFLOW 1 SET").Range("E42") = "DV-225"
        Else
            Worksheets("AIRFLOW 1 SET").Range("y1") = 2
            Worksheets("AIRFLOW 1 SET").Range("a43") = "DV-325"
            Worksheets("AIRFLOW 1 SET").Range("e42") = "DV-325"
        End If
        
        If Me.Opt_DV325.Value = True Then
            Worksheets("AIRFLOW 1 SET").Range("y1") = 2
            Worksheets("AIRFLOW 1 SET").Range("a43") = "DV-325"
            Worksheets("AIRFLOW 1 SET").Range("e42") = "DV-325"
        Else
            Worksheets("AIRFLOW 1 SET").Range("y1") = 1
            Worksheets("AIRFLOW 1 SET").Range("a43") = "DV-225"
            Worksheets("AIRFLOW 1 SET").Range("E42") = "DV-225"
        End If

Alvast vriendelijk dank
 
Je code mist sowieso een Then

Ik denk dat dit voldoende is, zonder het te hebben getest:
Code:
With Sheets("AIRFLOW 1 SET")
    .Range("Y1") = IIf(Me.Opt_DV225.Value, 1, 2)
    .Range("A43") = IIf(Me.Opt_DV225.Value, "DV-225", "DV-325")
    .Range("E42") = IIf(Me.Opt_DV225.Value, "DV-225", "DV-325")
End With
 
Laatst bewerkt:
Dank edmoor,

De Then is op een of andere manier niet mee gepaste maar in mijn code staat hij wel. Dank voor jouw code deze ga ik dus ook toepassen.
Maar de vraag was of in geval bij #1 de 2de if statement overbodig is. Het is gewoon even een leer momentje.
thx
 
Op die manier inderdaad is die naar mijn mening wel nodig.
 
Laatst bewerkt:
@edmoor je code werkt trouwens waar ik ook geen twijfel over had
 
Code:
With Sheets("AIRFLOW 1 SET")
    .Range("Y1") = 2+ Opt_DV225
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan