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 separo dos números que se encuentran en una sola celda de excel?

En una celda de excel se encuentran dos cantidades separadas por un guion. Quisiera separar el primer número en una segunda celda y el segundo número en una tercer celda. Ejemplo: A 1 48,264 - 65,371 2 55,555 - 66,666 3 . . . Debería quedar así: A B...
2 respuestas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas

Enviar hoja activa al monitor secundario con vba

He creado una segunda ventana de mi hoja excel con NewWindow, y lo que pretendo es mediante código VBA enviarla al monitor secundario, lo he intentado con Application.SendKeys "^({ESC}+{RIGHT})", pero no lo consigo, con "^{ESC}" estoy tratando de...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta