Exemplo rápido:
No UserForm1, tenho 3 OptionButtons (em vez do CheckBox), 1 TextBox1 e 1 CommandButton1.
Esteja certo que as 3 OptionButtons tenham a mesma Propriedade GroupName.
Precisa adaptar para seu arquivo.
Private Sub OptionButton1_Click()
TextBox1 = "Opção1"
End Sub
Private Sub OptionButton2_Click()
TextBox1 = "Opção2"
End Sub
Private Sub OptionButton3_Click()
TextBox1 = "Opção3"
End Sub
Private Sub CommandButton1_Click()
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox ("Favor selecionar uma opção!")
Else
Cells(1, 1) = TextBox1.Value
UserForm1.Hide
End If
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/08/2009 10:31 am