¿Cómo cargar botones sin valor, excel vba?

Aiiuuuda, por favor!

Estoy intentando hacer varias opciones a través de optionbutton, sin embargo al darle clic se queda guardado el valor y lo que requiero es que cada vez que abra el excel todos aparezcan sin valor, será que me puedan ayudar para saber cómo lograrlo. Cabe mencionar que soy mega novato en esto, jaja

De antemano muchas gracias!

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then
    Range("p29") = 1
End If

End Sub

Private Sub OptionButton2_Click()
 If OptionButton2.Value = True Then
            Range("p29") = 2
          End If
End Sub

Private Sub OptionButton3_Click()

If OptionButton3.Value = True Then
    Range("p31") = 1
End If
End Sub

Private Sub OptionButton4_Click()
 If OptionButton4.Value = True Then
            Range("p31") = 2
          End If
End Sub

Private Sub OptionButton5_Click()

If OptionButton5.Value = True Then
    Range("p33") = 1
End If
End Sub

Private Sub OptionButton6_Click()
 If OptionButton6.Value = True Then
            Range("p33") = 2
          End If
End Sub

Private Sub OptionButton7_Click()

If OptionButton7.Value = True Then
    Range("p35") = 1
End If
End Sub

Private Sub OptionButton8_Click()
 If OptionButton8.Value = True Then
            Range("p35") = 2
          End If
End Sub
Private Sub OptionButton9_Click()

If OptionButton9.Value = True Then
    Range("p37") = 1
End If
End Sub

Private Sub OptionButton10_Click()
 If OptionButton10.Value = True Then
            Range("p37") = 2
          End If
End Sub

Private Sub OptionButton11_Click()

If OptionButton11.Value = True Then
    Range("p39") = 1
End If
End Sub

Private Sub OptionButton12_Click()
 If OptionButton12.Value = True Then
            Range("p39") = 2
          End If
End Sub

Respuesta
1

En el modulo VBA thisworkbook copia esta macro, así cada que abras el libro te pondrá losa botones de opción en blanco, solo agrega los botones que te falten

Private Sub Workbook_Open()
With Hoja2
    .OptionButton1 = False
    .OptionButton2 = False
End With
End Sub

Hola James!

en efecto ya quedó,

gracias por el apoyo

Entonces solo resta que evalúes mi respuesta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas