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

¿Cómo resolver num a letras en excel?

En un libro excel habilitado para macros al convertir números a letras, en lugar de aparecer el resultado esperado aparece el mensaje # ¿NOMBRE?.
1 respuesta

´No sé que fórmulas usar para resolverme el problema

La imagen no me la sube y tampoco veo como se sube un fichero, os intentaré explicar lo mejor que pueda mi problema. En una hoja Excel tengo hallados los pagos por formas de pago: SUMAR.SI(D1:D16;"Efectivo";B1:B16), y...
1 respuesta

¿Cómo usar un excel con macros desde varios ordenadores?

A tod@s! Tengo una aplicación en excel para introducir datos y visualizarlos con diferentes formularios creados. Lo que quiero hacer es: 1 Que ese libro este alojado en un sitio común y que lo puedan abrir desde varios ordenadores. 2º Que se pueda...
3 respuestas

Error en macro al ejecutar el botón aceptar

Necesitaría la colaboración para resolver el error que sucede al ejecutar el botón aceptar Set mifila = Hoja2.ListObjects(1).ListRows.Add Lo que yo agregue solamente a la base fue una columna al inicio ("A") anteriormente se llamaba Tabla6 y yo ahora...
1 respuesta

Detectar cambios en tabla dinámica

Tengo una hoja donde se van actualizando datos mediante una tabla dinámica. ¿Cómo detecto cuando se producen cambios (sólo en la parte de la tabla dinámica) para ejecutar otra macro en la misma hoja?
1 respuesta

Macro con combinación de teclas

Acudo aquí buscando ayuda, ¿Cómo crear una macro que genere una combinación de teclas? NO se trata de asignar una macro a una combinación de teclas, es todo lo contrario. El problema radica en que tengo una macro que rellena ciertas celdas con...
1 respuesta

Pasar datos de listbox a hoja con decimales

Como están estimados maestros y maestras, una vez mas solicitando vuestra experta ayuda. Tengo un formulario que busca datos entre 2 fechas desde 2 textbox, carga en listbox lo filtrado, en la columna 2 del listbox carga valores con formato de 2...
1 respuesta

Una macro que de aviso sobre vencimiento de una cedula de identidad

Tengo una hoja de calculo de 6 columnas en donde la columna A es fecha de vencimiento, las columnas B, C, y D son apellidos paterno, Materno u nombres, la columna E es el numero de cedula de identidad Con Formato ##.###.###-# la columna F es lo...
1 respuesta

Error decimales en hoja de excel

Tengo un albarán de varios productos que no vienen desglosado el iva En una hoja Excel introduzco el precio, con la formula sumar el precio lo desgloso en base imponible y el iva paracque me dé el precio del producto pero cuando sumo el total de...
4 respuestas

Filtrar información y luego pasar a otro libro

Tengo una macro que copia y pega del libro llamado Origen y Hoja1, dónde este está cerrado, al libro Destino y Hoja 2 de la siguiente manera: Sub importar() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...
1 respuesta