Ampliar un listbox con más de diez columnas
Dante Amor
Como me indicaste en la anterior pregunta "Actualizar dos macros creando un combobox" el código de la macro habría que modificarlo porque additem no admite más de 10 columnas en el listbox. El caso es que habrá más de 10 seguramente.
Si me puedes indicar cómo quedaría el código modificándolo para que admita el listbox más de 10 columnas te lo agradecería.
Las nuevas columnas después de la 9 (Categoría) serían: Genero, subgénero, unidades, ubicación
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada para aceptar más de 10 columnas.
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("TITULOS")
Set h2 = Sheets("FILTRO")
h2.Cells.Clear
titulo = UCase(TextBox1)
If titulo = "" Then
MsgBox "Introduce una palabra para buscar", vbExclamation, "BUSCAR"
TextBox1.SetFocus
Exit Sub
End If
'
If IsNumeric(titulo) Then titulo = Val(titulo)
j = 2
col = ComboBox1.ListIndex + 1
Set r = h1.Columns(col)
Set b = r.Find(titulo, lookat:=xlPart)
If Not b Is Nothing Then
ncell = b.Address
h1.Rows(1).Copy h2.Rows(1)
Do
'detalle
htit = UCase(h1.Cells(b.Row, col))
If htit Like titulo Or _
htit Like "* " & titulo Or _
htit Like titulo & " *" Or _
htit Like "* " & titulo & " *" Then
h1.Rows(b.Row).Copy h2.Rows(j)
j = j + 1
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
u = h2.Range("A" & Rows.Count).End(xlUp).Row
c = h1.Cells(1, Columns.Count).End(xlToLeft).Column
letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
ListBox1.RowSource = h2.Name & "!A2:" & letra & u
End If
End Sub'
