Llenar un textbox dependiendo del ítem del listbox

Quisiera una ayudita con un código ya que no doy con ninguna cosa.

Se puede hacer esto: Si hago una selección de un ListBox que tiene como ítem estos elementos "Día y Noche" quisiera saber que al seleccionar día se puede llenar un textbox automáticamente con un valor relacionado a la selección del ítem de la lista es decir si selecciono Día se llene el textbox con la palabra sol y si selecciono noche se llene el textbox con la palabra luna.

1 Respuesta

Respuesta
2

Te anexo el código

Private Sub ListBox1_Click()
'Por Dante Amor
    dato = ListBox1.List(ListBox1.ListIndex, 0)
    Select Case LCase(dato)
        Case LCase("Día")
            TextBox1.Value = "sol"
        Case LCase("Noche")
            TextBox1.Value = "luna"
        Case Else
            TextBox1.Value = "nublado"
    End Select
End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

'

[

.

Buenas noches Dante, gracias por tu respuesta pero no funciona sale error 381, bueno creo que este también seria el otro caso si puede ser aplicado, que el textbox17 se ponga "Dia"  el textbox18 se llene automáticamente con  la palabra "Sol" 

Y si  se  pone en el mismo  textbox17 la palabra  "Noche"   el textbox18 se llene automáticamente con  la palabra "Luna" y si así sucesivamente.

"Nota el sol y la luna solo lo pongo como ejemplo en el código de abajo son los datos reales."

Adjunto el código que quiero aplicar para que  veas que estoy haciendo mal. Como notaras hay hay un segmento que trata de un listbox que funciona sin problemas.

Private Sub ListBox3_Click()
TextBox17.Text = ListBox3.List(ListBox3.ListIndex)
Me.ListBox3.Visible = False
'Por Dante Amor
    dato = ListBox3.List(ListBox3.ListIndex, 0)
    Select Case LCase(dato)
        Case LCase("CARRIER")
            TextBox18.Value = "R134a"
        Case LCase("THERMOKING")
            TextBox18.Value = "R404a"
            Case LCase("DAIKIN")
                 TextBox18.Value = "R134a"
                  Case LCase("STARCOOL")
                 TextBox18.Value = "R134a"
        'Case Else
         '   TextBox1.Value = "nublado"
    End Select
End Sub

Gracias de antemano 

¿Y qué dice el mensaje de error?

¿Y en cuál línea de la macro se detiene?

Ya probé tu código y sí me funciona.

¿Tienes otros eventos en tu userform?

Private Sub CommandButton1_Click()
'Pasas varios datos a un TextBox3 si es Texto
TextBox6.Text = TextBox1.Text
TextBox7.Text = TextBox2.Text
TextBox8.Text = TextBox3.Text
TextBox9.Text = TextBox4.Text
TextBox10.Text = TextBox17.Value
TextBox11.Text = TextBox19.Text
TextBox12.Text = TextBox20.Text
TextBox13.Text = TextBox16.Value
TextBox15.Text = TextBox14.Text
If TextBox1 = Empty Then
MsgBox ("Debe ingresar el numero")
End If
If TextBox2 = Empty Then
MsgBox ("Debe ingresar el modelo")
End If
If TextBox3 = Empty Then
MsgBox ("Debe ingresar el serial")
End If
If TextBox4 = Empty Then
MsgBox ("Debe ingresar la manufactura")
End If
If TextBox17 = Empty Then
MsgBox ("Debe ingresar la marca")
End If
If Me.TextBox1.Value <> "" Then
        Me.CommandButton1.Enabled = True
    Else
        Me.CommandButton1.Enabled = False
    End If
End Sub
Private Sub Frame2_Click()
End Sub
Private Sub ListBox1_Click()
TextBox14.Text = ListBox1.List(ListBox1.ListIndex)
Me.ListBox1.Visible = False
End Sub
Private Sub ListBox2_Click()
TextBox16.Text = ListBox2.List(ListBox2.ListIndex)
Me.ListBox2.Visible = False
End Sub
Private Sub ListBox3_Click()
TextBox17.Text = ListBox3.List(ListBox3.ListIndex)
Me.ListBox3.Visible = False
End Sub
Private Sub ListBox4_Click()
TextBox20.Text = ListBox4.List(ListBox4.ListIndex)
Me.ListBox4.Visible = False
End Sub
Private Sub TextBox14_Change()
Me.ListBox1.Clear
For i = 2 To 13
    If LCase(Range("A" & i).Value) Like LCase(TextBox14.Text) & "*" Then
    Me.ListBox1.Visible = True
    Me.ListBox1.AddItem Range("A" & i).Value
    End If
    Next
End Sub
Private Sub TextBox16_Change()
Me.ListBox2.Clear
For i = 2 To 16
    If LCase(Range("C" & i).Value) Like LCase(TextBox16.Text) & "*" Then
    Me.ListBox2.Visible = True
    Me.ListBox2.AddItem Range("C" & i).Value
    End If
    Next
End Sub
Private Sub TextBox17_Change()
Me.ListBox3.Clear
For i = 2 To 9
    If LCase(Range("B" & i).Value) Like LCase(TextBox17.Text) & "*" Then
    Me.ListBox3.Visible = True
    Me.ListBox3.AddItem Range("B" & i).Value
    End If
    Next
'Por Dante Amor
    dato = TextBox17.Text(TextBox17.Text, 0)
    Select Case LCase(dato)
        Case LCase("CARRIER")
            TextBox18.Value = "R134a"
        Case LCase("THERMOKING")
           TextBox18.Value = "R404a"
            Case LCase("DAIKIN")
               TextBox18.Value = "R134a"
                  Case LCase("STARCOOL")
                 TextBox18.Value = "R134a"
        'Case Else
         '   TextBox1.Value = "nublado"
    End Select
    If Me.TextBox17.Value <> "" Then
        Me.CommandButton1.Enabled = True
    Else
        Me.CommandButton1.Enabled = False
    End If
End Sub
Private Sub TextBox2_Change()
If Me.TextBox2.Value <> "" Then
        Me.CommandButton1.Enabled = True
    Else
        Me.CommandButton1.Enabled = False
    End If
End Sub
Private Sub TextBox20_Change()
Me.ListBox4.Clear
For i = 2 To 6
If LCase(Range("D" & i).Value) Like LCase(TextBox20.Text) & "*" Then
    Me.ListBox4.Visible = True
    Me.ListBox4.AddItem Range("D" & i).Value
    End If
    Next
End Sub
Private Sub TextBox3_Change()
If Me.TextBox3.Value <> "" Then
        Me.CommandButton1.Enabled = True
    Else
        Me.CommandButton1.Enabled = False
    End If
End Sub
Private Sub TextBox4_Change()
If Me.TextBox4.Value <> "" Then
        Me.CommandButton1.Enabled = True
    Else
        Me.CommandButton1.Enabled = False
    End If
End Sub
Private Sub UserForm_Initialize()
 TextBox19 = Date
End Sub

Hola buen día adjunto código completo de este formulario y una imagen para que veas el error que tengo.

Gracias de antemano.

Pero yo puse esto:

dato = ListBox1. List(ListBox1. ListIndex, 0)

Y tu pones esto:

Dato = textbox17.text(textbox17.text, 0)

Eso no puede ser, porque son controles diferentes. El texbox no tiene esa propiedad, por eso te envía error de argumentos.

Esto es lo que pediste:

Si hago una selección de un ListBox que tiene como ítem estos elementos "Día y Noche" quisiera saber que al seleccionar día se puede llenar un textbox

Ahora ya no sé qué necesitas.

Para ver el funcionamiento del listbox y el textbox, realiza lo siguiente.

Crea un form con un listbox1 y un textbox1

Pones el siguiente código en el userform

Private Sub ListBox1_Click()
'Por Dante Amor
    dato = ListBox1.List(ListBox1.ListIndex, 0)
    Select Case LCase(dato)
        Case LCase("CARRIER")
            TextBox1.Value = "R134a"
        Case LCase("THERMOKING")
            TextBox1.Value = "R404a"
        Case LCase("DAIKIN")
             TextBox1.Value = "R134a"
        Case LCase("STARCOOL")
            TextBox1.Value = "R134a"
    End Select
End Sub
'
Private Sub UserForm_Activate()
    ListBox1. AddItem "CARRIER"
    ListBox1. AddItem "THERMOKING"
    ListBox1. AddItem "DAIKIN"
    ListBox1. AddItem "STARCOOL"
End Sub

Ejecuta el form, selecciona un registro del listbox. Verás como en automático se llena el textbox.

Eso es lo que pediste. Lo demás deberás crear una nueva pregunta y explicar con ejemplos qué necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear base de datos en excel

Como puedo crear una base de datos con Excel, que puedas introducir nombre, teléfono, tinte y registrar, buscar y eliminar
2 respuestas

Ocultar contraseña en macro

Tengo un archivo al cual le inserte una macro de apertura, que al abrir me pide contraseña, pero al digitarla muestra la contraseña, ¿Cómo hago para ocultarla? ¿Cómo hago para que al abrir esta me abra en una hoja especifica?
2 respuestas

Ejecutar macro si en la celda B1 hay datos

Esta es la macro que utilizo siempre, pero tengo la dificultad que a veces me olvido de colocar el numero de curso (Ejp. 1era_1era o 2da_2da ...)en la celda B1, todo este proceso se ejecuta en la hoja Activa "Curso", lo que busco que la macro se...
2 respuestas

¿Qué hay de mal en este macro?

Quiero hacer un macro para hacer un filtro de una base de datos poniendo como condición un periodo de tiempo, teniendo una celda como fecha de inicio y otra celda como fecha de terminación. Te mando imagen de mi libro y código. Muchas gracias Sub...
1 respuesta

Dividir un valor en excel y que el resultado sea igual al de una calculadora manual

Sres. T.E La Consulta es la siguiente: Como dividir 4.888,00 / 30 y que el resultado sea igual tanto en excel como una calculadora manual o la calculado de win xp. Ejemplos: En excel 2003 si divido 4.888,00 / 30 = 162,93 En una Calculadora 4.888,00 /...
2 respuestas

No puedo registrar más de 30k renglones, sale error de desbordamiento (Error 6)

Tengo el siguiente código, que de un formulario pasa los datos a una tabla. El problema es que después de aprox. 35,000 renglones registrados, al querer seguir registrando me aparece el error de desbordamiento (Error 6). Comparto código, si de favor...
3 respuestas

Optimizar macro para combinar filas

Tengo una macro que acumula valores de filas determinados según columnas similares, funciona bien con una tabla de datos intermedia en cuanto a su tiempo de ejecución, lo que quiero es optimizar esta macro o mejorarla ya que tengo tablas de hasta...
3 respuestas

Ordenar listado en excel por numero de tienda

Tengo un listado de productos en excel y en la misma celda viene el numero de la tienda y los totales de cada tienda, pero si tengo más de 100 tiendas quiero agregar una columna donde me diga que tienda es y así poder ordenar mi listado por el número...
1 respuesta

Hacer un nuevo archivo copiando la hoja2 y hoja3 de una lista de nombres que están en la hoja1.

En la hoja1 tengo una lista de nombres y quiero copiar la hoja=evaluación y hoja=metas a un nuevo libro con el nombre de la lista de la hoja1 las dos hojas en el mismo nuevo libro.
1 respuesta

Tengo una macro , que necesita que de una lista de alumnos

Imprime un informe de un alumno en particular, necesito que el usuario digite un numero y luego siga con los pasos siguientes, es decir que imprima el usuario seleccionado . ¿Cómo puedo pausar una macro?
2 respuestas