Bienvenido a la mayor comunidad de usuarios EXCEL

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

Regístrate gratis

fallo en la carga de datos del listbox

josealberto1020

New member
Registrado
1 Sep 2022
Mensajes
5
buenas noches quiero cargar los datos con mismo codigo, me detecta las columnas pero no se carga( me marca valor vacio)

UserForm2.Label1 = datos.Label1
UserForm2.Label2 = datos.Label2...
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í
 
Solución
Tienes un problema con los nombres de las hojas, no coinciden el nombre del objeto Excel con el codename de VBA.
Si te fijas en la imagen la hoja Hoja5. corresponde a Sheets("Hoja4"). y Hoja7. corresponde a Sheets("Hoja5").
En tu código haces referencia a Sheets("Hoja5"). y a Hoja5. pensando que es la misma hoja cuando no es así.

Sin permisos de acceso

Cambia:
Código:
For i = 2 To Sheets("Hoja5").Range("A" & Rows.Count).End(3).Row
   If Sheets("Hoja5").Cells(i, 5).Value = UserForm2.Label3 Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(ListBox1.ListCount - 1, 0) = Hoja5.Range("A" & i).Value(falla)
      ListBox1.List(ListBox1.ListCount - 1, 1) = Hoja5.Range("B" & i).Value
      ListBox1.List(ListBox1.ListCount - 1, 2) = Hoja5.Range("E" &...
Tienes un problema con los nombres de las hojas, no coinciden el nombre del objeto Excel con el codename de VBA.
Si te fijas en la imagen la hoja Hoja5. corresponde a Sheets("Hoja4"). y...
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

Adjuntos

    Sin permisos de acceso
Volver
Arriba