Dar formato condicional a un textbox

Entonces te pido disculpa creo que se lo envíe a tro experto, pero aquí te envío mi expicacion, espero que me puedas ayudar por que esta es la tercer vez que envío esto y no rescibo nada ayuda
Te explico cual es mi necesidad:
Estoy trabajando un Formulario en Excel, hasta hora ya le ingrese "Páginas múltiples, Labels, Textbox y ComboBox"
Los códigos que estoy trabajando el ComboBox son estos
Private Sub ComboBox4_Change()
Sheets("Contrato").Range("B28") = ComboBox4
End Sub
Private Sub UserForm_Initialize()
ComboBox4.List = Array("'", "SI", "NO")
ComboBox4.Value = "'"
End Sub
Ahora lo que necesito es que cuando seleccione la opción "SI" del ComboBox, este me tire el puntero de inserción al textBox28 que se encuentra en la Página No.3 de la Página Múltiple que inserte en el USerForm, y que cuando seleccione la opción "NO", este me tire el punto de inserción en el textbox21 que se encuentra en la página No.2.
Hasta he intentado muchos códigos y no me funcionan, te agradecería mucho tu ayuda y de antemano muchas gracias que tengas buen tarde.

1 Respuesta

Respuesta
1
Aquí esta un ejemplo
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 1 Then
MultiPage1.Value = 1
TextBox2.SetFocus
Else
MultiPage1.Value = 0
TextBox3.SetFocus
End If
End Sub
Recuerda finalizar las respuestas
Gracias por tu ejemplo estoy intentando con estos códigos que me proporcionaste de la siguiente manera, y también te muestro los códigos que estoy utilizando para las opciones del ComboBox.
Private Sub ComboBox4_Change()
Sheets("Contrato").Range("B28") = ComboBox4
If ComboBox4.ListIndex = 1 Then
MultiPage1.Value = 1
TextBox28.SetFocus
Else
MultiPage1.Value = 1
TextBox21.SetFocus
End If
End Sub
Private Sub UserForm_Initialize() ComboBox4.List = Array("SI", "NO")
ComboBox4.Value ="" End Sub
Lo que sucede es que cuando ejecuto el UserForm y quiero seleccionar una de las opciones del ComboBox me aparece este mensaje:
Se ha producido el error "2110" en tiempo de ejecución:
No se puede mover el enfoque al control porque no es visible, no esta activo o es de un tipo que no acepta el enfoque
No se que puedo hacer ahora, esperaría que me pudieras ayudar
Private Sub ComboBox4_Change()
Sheets("Contrato").Range("B28") = ComboBox4
If ComboBox4.ListIndex = 1 Then
MultiPage1.Value = 1
TextBox28.SetFocus
Else
MultiPage1.Value = 1
TextBox21.SetFocus
End If
End Sub
La linea en negrita no debería estar allí, otra cosa..
¿El combobox y los textbox están visibles? Porque ese es el mensaje que esta mostrando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formato de fecha a un textbox

Solo quería preguntarte sobre aquellas consultas que te hice acerca de los ComBox. También quisiera hacerte otra consulta, como puedo hacer que un textbox me tire este tipo de formato de fecha "dd-mmm-yy" estos intentando estos códigos: Private Sub...
1 respuesta

Completar textbox según valor de combobox

Estoy trabajando con un formulario con textbox y combobox, el combobox lo cargo con el código Private Sub UserForm_Activate() ComboBox1.RowSource = "FP" ComboBox4.RowSource = "LA" ComboBox5.RowSource = "EP" End Sub El textbox2 quisiera que se cargue...
1 respuesta

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Unir Userform

Me presento soy Israel, si me puedes ayudar (formulario para cargar una base de datos) estoy modificando una guía de despacho que tengo me me ha servido muchísimo, esta se divide en dos Userform, la primera parte consta de 22 (entre combobox y...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

¿Cómo puedo eficientar filtro en un combobox?

Expertos en excel, quisiera pedir un poco de su ayuda para la solución de un tema un poco complicado para mi. En un libro de excel tengo 3 hojas (entradas, salidas y devoluciones), el form se llena con datos de la hoja entradas y debe descargar su...
1 respuesta

Buscar hoja señalada en CmBx1 y atraer en los TxBx contenidos de las celdas especificas

Tengo esta macro que anexo y su función es: al seleccionar la obra en el cmbx1 y clickear “buscar”, debe buscar la hoja respectiva en el libro y visualizar en los textbox el contenido que encuentre en las celdas específicas. Si se desea modificar un...
1 respuesta

Error en la Clase WorkSheet

Un gusto consultarte Siguiendo con mi trabajo y me refiero al que te consulte al principio, encuentro un error en el código y apelo a tu experiencia Cuando introduzco un cambio en el ComboBox4 del Form, me salta el error que adjunto. Private Sub...
1 respuesta

Como mantener el focus fijo sin que se pierda en un textbox

Al iniciar userform inicia el setfocus en el textbox que quiero pero al trabajar se pierde yo siempre quiero que permanezca el setfocus en un textbox determinado
1 respuesta