Como trabajar dos o más hojas con 1 formulario utilizando optionbutton
La molesto nuevamente
Como puedo utilizar el mismo formulario para dos hojas. Los registros que utilizo son los mismos pero debo mantenerlos separados. Entonces al userform le he colocado dos optionbutton para seleccionar las hojas a trabajar (aunque luego debo extenderlo a varias hojas más) pero lo haré yo sino no aprenderé nada.
Le envíen el archivo
1 respuesta
Son muchas las subrutinas donde debes hacer la evaluación de la hoja, entonces la hoja se activará al momento de hacer clic en algún OptionButton, y luego en todas tus macros debes quitar la línea que diga: Sheets("Clientes").Select o Activate.
Para el OptionButton1:
Private Sub OptionButton1_Click() 'repetir para cada OB
If OptionButton1.Value = True Then
Sheets("Clientes1").Select
Call CargarLista
End If
End SubAhora, si no marcas ningún OB el desplegable de Nombres estará vacío pero te permite ingresar un nuevo cliente. Entonces el control se hará al momento de Aceptar. Dentro de la subrutina del botón 'cmd_Agregar' busca esta sección de código y coloca las líneas que dejo en negrita:
fCliente = nCliente(cbo_Nombre.Text)
'controlar que haya algún OB seleccionado
If OptionButton1.Value = False And OptionButton2.Value = False Then
MsgBox "Debes seleccionar algún botón de Cliente. Luego ejecuta nuevamente el botón de guardado.", , "ERROR"
Exit Sub
End If
If fCliente = 0 Then
Completar con 'And' y el resto de botones que tengas.
PD) Te estoy devolviendo el libro con los comentarios.
