Jump to content
Sign in to follow this  
edroto12

Cargar textbox al seleccionar un item de combobox

Recommended Posts

HOLA AMIGOS.....

BUENO TENGO UN PROBLEMA QUE QUISIERA ME PUEDAN AYUDAR

TENGO UN USERFORM Y DENTRO UN COMBOBOX Y CUATRO TEXTBOX. EL COMBOBOX TIENE 11 OPCIONES QUE SON ONCE CIUDADES, EL 1ER TEXTBOX ES LATITUD, 2DO LONGITUD, 3RO ZONA HORARIA, 4TO CORRECCION HORARIA

LO QUE NECESITO ES QUE AL SELECCIONAR UNA CIUDAD, AUTOMATICAMENTE ME APAREZCA LOS DATOS DE LATITUD LONGITUD, ZONA H., Y CORRECCION H.

POR FAVOR LOS QUE ME PUEDAD AYUDAR

ASI CARGUE MIS CIUDADES EN EL COMBOBOX:

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Oruro"

ComboBox1.AddItem "La Paz"

ComboBox1.AddItem "Potosí"

ComboBox1.AddItem "Cochabamba"

ComboBox1.AddItem "Sucre"

ComboBox1.AddItem "Tarija"

ComboBox1.AddItem "Cobija"

ComboBox1.AddItem "Trinidad"

ComboBox1.AddItem "Santa Cruz"

ComboBox1.AddItem "El Alto"

ComboBox1.AddItem "Otro"

End Sub

Share this post


Link to post
Share on other sites

BUENO:

LO Q ESTABA INTENTANDO HACER ES:

UTILIZAR UN CONDICIONANTE IF

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Oruro"

ComboBox1.AddItem "La Paz"

ComboBox1.AddItem "Potosí"

ComboBox1.AddItem "Cochabamba"

ComboBox1.AddItem "Sucre"

ComboBox1.AddItem "Tarija"

ComboBox1.AddItem "Cobija"

ComboBox1.AddItem "Trinidad"

ComboBox1.AddItem "Santa Cruz"

ComboBox1.AddItem "El Alto"

ComboBox1.AddItem "Otro"

If ComboBox1.Text = "Oruro" Then

TextBox1.Text = -17

TextBox1.Text = -17

End If

End Sub

- - - - - Mensaje combinado - - - - -

LOS SIENTO SE ENVIO DECIA...

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Oruro"

ComboBox1.AddItem "La Paz"

ComboBox1.AddItem "Potosí"

ComboBox1.AddItem "Cochabamba"

ComboBox1.AddItem "Sucre"

ComboBox1.AddItem "Tarija"

ComboBox1.AddItem "Cobija"

ComboBox1.AddItem "Trinidad"

ComboBox1.AddItem "Santa Cruz"

ComboBox1.AddItem "El Alto"

ComboBox1.AddItem "Otro"

If ComboBox1.Text = "Oruro" Then

TextBox1.Text = -17

TextBox2.Text = 64

TextBox.3Text = -4

TextBox4.Text = 0

End If

End Sub

PERO NO ME RESULTA

UNA SOLUCION PORFA

Share this post


Link to post
Share on other sites

Hola como dice el amigo josemir82 debes ajuntar un archivo como dicen las reglas del foro porque como se yo donde esta la información que quieres colocar en un textbox, después en Internet escribir con mayúsculas es una falta de respeto pues parece como si gritaras y ademas es incomodo para la vista y también esta en las Normas.

Ahora eso lo resuelves fácilmente con un find pero si no adjuntas el archivo y cumples con las Normas nadie te ayudara

Salu2

Share this post


Link to post
Share on other sites

Ok, la solución (como lo intentas hacer y la mas larga) es:

 Private Sub ComboBox1_Change()
If ComboBox1 = "Oruro" Then
textbox1 = "1"
End If
If ComboBox1 = "La Paz" Then
textbox1 = "2"
End If
End Sub
[/CODE]

tienes que ingresar los datos de todos los TextBox que tengas, para cada una de las opciones.

Saludos...

Share this post


Link to post
Share on other sites

Muchisimas gracias josemir82, muchas gracias.

Acabo de probarlo y funciona perfectamente.

Lo ultimo, si se pudiera, cual seria la forma mas corta para realizar lo mismo.

Bueno saludos...

espero me puedas responder...

Share this post


Link to post
Share on other sites

y como podría ser, en el caso de que los valores estén en una celda por ejemplo en la hoja 2 en el rango a1?

ejemplo

seleccionar el dato del combobox1 y que automáticamente el textbox1 tome el dato con buscarv de otra hoja (hoja 2). cuando este form esta en la hoja 1...

espero haya sido claro.. jeje

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy