Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Mostrar Nota de Ítem seleccionado en Listbox.

josuam

New member
Registrado
14 Abr 2011
Mensajes
19
Buenas noches!!

De antemano agradeciendo la excelente ayuda que siempre nos dan.

Lo que necesito es que en el cuadro de abajo se muestre la "Nota" de la columna D, de la "Hoja Datos",
pero sólo...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Solución
Sin ver lo de Fernando.
Sustituye tu código por este.

Código:
Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 3)
End Sub
'--
Private Sub UserForm_Initialize()
ufila2 = 0: ufila2 = Hoja2.Cells(Rows.Count, 1).End(xlUp).Row
If ufila2 < 2 Then ufila2 = 2
With ListBox1
    .ColumnCount = 4
    .ColumnWidths = "60;150;60;0"
    .ColumnHeads = True
    .Font.Name = "Calibri"
    .Font.Size = 14
    .TextAlign = fmTextAlignLeft
End With
ListBox1.RowSource = Hoja2.Name & "!A2:D" & ufila2
TextBox1.MultiLine = True
End Sub
'--
Private Sub CommandButton1_Click()
Unload Me
End Sub

Antoni

Moderator
Registrado
22 Dic 2009
Mensajes
8.268
Sin ver lo de Fernando.
Sustituye tu código por este.

Código:
Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 3)
End Sub
'--
Private Sub UserForm_Initialize()
ufila2 =...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
  • Me gusta
Reacciones: FGV

Leopoldo Blancas

Moderator
Registrado
11 Ene 2019
Mensajes
1.897

FGV

Moderator
Registrado
20 Feb 2019
Mensajes
2.182

FGV

Moderator
Registrado
20 Feb 2019
Mensajes
2.182

Adjuntos

    Sin permisos de acceso
Última edición:

josuam

New member
Registrado
14 Abr 2011
Mensajes
19
Correcto, eso es, ya no da error al no encontrar datos, pero ahora no se cargan los datos en el textbox.
Habrá forma de que el Scrollbars del textbox se active automáticamente al seleccionar un...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Arriba