Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Ayuda error Listbox >10 columnas

Excel - Ayuda error Listbox >10 columnas

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda error Listbox >10 columnas

Publicado por Raul (2 intervenciones) el 21/08/2024 08:37:27
Hola a todos.

A ver si me podeis ayudar con un tema.

El siguiente codigo funciona a la perfeccion con 10 columnas pero si quiero que aparezcan mas de 10 me da error.

Os dejo el resultado con 10 columnas y el error con 11, ademas de la configuracion del Listbox por si pudiera ser eso.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub BotonBuscarTelefono_Click()
 
If Me.Telefono = "" Then
    MsgBox "Dame alguna pista"
    Exit Sub
End If
 
Dim UltimaFila As Long
Dim Y As Long
Dim Descripcion As String
Dim Columna As Long
 
 
UltimaFila = Sheets("Ofertas").Cells(Rows.Count, "A").End(xlUp).row
Y = 0
 
Me.Lista.RowSource = ""
Me.Lista.ColumnCount = 74 ' Configura el número de columnas
 
For Filas = 3 To UltimaFila
    Descripcion = Sheets("Ofertas").Cells(Filas, 10).Value
    If UCase(Descripcion) Like "*" & UCase(Me.Telefono) & "*" Then
        Me.Lista.AddItem
 
 
        ' Llenar las columnas
Me.Lista.List(Y, 0) = Sheets("Ofertas").Cells(Filas, 1).Value
Me.Lista.List(Y, 1) = Sheets("Ofertas").Cells(Filas, 2).Value
Me.Lista.List(Y, 2) = Sheets("Ofertas").Cells(Filas, 3).Value
Me.Lista.List(Y, 3) = Sheets("Ofertas").Cells(Filas, 4).Value
Me.Lista.List(Y, 4) = Sheets("Ofertas").Cells(Filas, 5).Value
Me.Lista.List(Y, 5) = Sheets("Ofertas").Cells(Filas, 6).Value
Me.Lista.List(Y, 6) = Sheets("Ofertas").Cells(Filas, 7).Value
Me.Lista.List(Y, 7) = Sheets("Ofertas").Cells(Filas, 8).Value
Me.Lista.List(Y, 8) = Sheets("Ofertas").Cells(Filas, 9).Value
Me.Lista.List(Y, 9) = Sheets("Ofertas").Cells(Filas, 10).Value
Me.Lista.List(Y, 10) = Sheets("Ofertas").Cells(Filas, 11).Value
 
        Y = Y + 1
    End If
Next Filas
 
 
 
End Sub



Propiedades-ListBox
Form_OK10-columnas
Error
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ayuda error Listbox >10 columnas

Publicado por Antoni Masana (2540 intervenciones) el 25/08/2024 20:58:27
El ListBox de Excel no permite tener más de 10 columnas.
Puedes encadenar con formato varios datos campos en una sola columna.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda error Listbox >10 columnas

Publicado por Raul (2 intervenciones) el 26/08/2024 13:47:58
Muchas gracias.

Eso pensé en un primer momento, incluso esa solución para la definición del ancho de columna estaba genial.

Después lo he solucionado con ListView, que permite todas las columnas que sean necesarias.

A veces no explican bien las limitaciones y te vuelves loco.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda error Listbox >10 columnas

Publicado por Rafael (102 intervenciones) el 11/09/2024 17:21:30
Raúl, en su momento deseché el uso de los ListView porque creo recordar -hace mucho tiempo de esto...- que exigían ciertas configuraciones en el Excel donde haya de correr el xlsm.

Tras mucho penar con el maldito límite de las 10 columnas de los Listbox, di con este código que me permitió visualizar hasta 16 columnas en él:

1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
    ReDim B(1 To 1, 1 To 16)  'número de columnas a agregar
    With ListBox1
        .ColumnCount = 16       'número de columnas a agregar
        .List = B               'se habilitan las columnas en el list
        .Clear                  'se limpia el list
    End With
 End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar