Option button
Hola Juan Carlos
Mira. Para armar todo mi trabajo y que espero este año funcione (lo que pasa es que los años anteriores todo llegaba en desorden y al final no se podía establecer nada estadísticamente válido de los resultados) cree unos user form para llenar los camposy así nadie se arranca con inventos nuevos.
Para ingresar un nombre uso
private sub textbox1_change()
range("a2").select
activecell.formular1c1=textbox1
end sub
Y así con los otros datos
Me corre no hay problema pero llegue a sexo (no a tener sexo) y se complicó todo.
¿Quiero poner un frame que contenga sexo option button 1 (masculino) option button n 2 (femenino) pero como hago para que quede en la celda ("a5") M o F según lo selccionado y luego salte a ("a6") por la próxima opción?
Espero puedas ayudarme con el código
Gracias
Oscar
Mira. Para armar todo mi trabajo y que espero este año funcione (lo que pasa es que los años anteriores todo llegaba en desorden y al final no se podía establecer nada estadísticamente válido de los resultados) cree unos user form para llenar los camposy así nadie se arranca con inventos nuevos.
Para ingresar un nombre uso
private sub textbox1_change()
range("a2").select
activecell.formular1c1=textbox1
end sub
Y así con los otros datos
Me corre no hay problema pero llegue a sexo (no a tener sexo) y se complicó todo.
¿Quiero poner un frame que contenga sexo option button 1 (masculino) option button n 2 (femenino) pero como hago para que quede en la celda ("a5") M o F según lo selccionado y luego salte a ("a6") por la próxima opción?
Espero puedas ayudarme con el código
Gracias
Oscar
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Yo en tu lugar no utilizaría los OptionButton para esa escogencia, sería mejor utilizar un ComboBox y podría poner:
Cells(1,3).Value = ComboBox1.Text
De esta manera no me complico tanto con el sexo (a menos que la mujer invente cosas raras).
Si lo hago con OptionButton sería:
If OptionButton1 Then Cells(1,3).Value = OptionButton1.Text
If OptionButton2 Then Cells(1,3).Value = OptionButton2.Text
etc.
[email protected]
Cells(1,3).Value = ComboBox1.Text
De esta manera no me complico tanto con el sexo (a menos que la mujer invente cosas raras).
Si lo hago con OptionButton sería:
If OptionButton1 Then Cells(1,3).Value = OptionButton1.Text
If OptionButton2 Then Cells(1,3).Value = OptionButton2.Text
etc.
[email protected]
