Agregar a macro vba Excel, algunas columnas más en ListBox
Quisiera que una ves más tus dedos hagan el milagro de agregar a esta macro, en ves de 3 columnas, que sean 5 al ListBox (Lista2).
El ListBox está con 5 columnas, la página tiene 5 columnas, el ListBox solo recibe datos de 3 columnas 2 me quedan vacías en el listbox
La macro esta en el libro Lista Repuestos por si aun lo tienes "Lista Repuestos v2 dam.xlsm"
Puedes ver que traté pero no llegué
Sub FiltrarLista2(col1, col2, col3)
'Por.Dante Amor
Set h1 = Sheets("Lista Repuestos")
Set h2 = Sheets("filtro")
h2.Cells.ClearContents
Lista2.RowSource = ""
fila = 46
h1.Range("B10:K10").Copy h2.Range("A1")
j = 2
For i = 11 To 46
If Cells(i, col1) <> "" And _
UCase(h1.Cells(i, col5)) Like "*" & UCase(txtFiltro) & "*" Then
'h1.Range(col1 & i & ":" & col2 & i).Copy h2.Cells(j, "A")
h1.Range(col1 & i & ":" & col2 & i & ":" & col3 & i & ":" & col4 & i).Copy h2.Cells(j, "A")
h2.Cells(j, "K") = i
j = j + 1
End If
Next
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
If u2 > 1 Then
Lista2.RowSource = h2.Name & "!A2:K" & u2
Else
MsgBox "No se encuentra.", vbExclamation, "Inexistente"
End If
End Sub
1 Respuesta
Revisa los siguientes cambios en el evento initialize:
'Dar formato al ListBox y traer datos de la tabla Private Sub UserForm_Initialize() 'Ocutar barra de titulo Dim lngWindow As Long, lFrmHdl As Long frmLista.Height = 116 frmLista.Width = 579.75 lFrmHdl = FindWindowA(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) With Lista2 .ColumnHeads = True .ColumnCount = 10 .ColumnWidths = "40 pt;60 pt;160 pt;0 pt;0 pt;0 pt;0 pt;0 pt;30 pt;40 pt" End With End Sub
El listbox es de 10 columnas, solamente que 5 las tienes combinadas, entonces en el ancho de la columna del list se le ponen ceros.
Sal u dos
Hola Dante. Ahora veo la cosa
No estoy en mi maquina, estoy en otra zona (casa de mi hijo) donde hay energía eléctrica en la zona donde vivo no hay.
Al ver esto:
.ColumnWidths = "40 pt;60 pt;160 pt;0 pt;0 pt;0 pt;0 pt;0 pt;30 pt;40 pt"
me vino a la mente la celdas combinadas (D) debe ser eso. "Es que la edad me tiene la mente atrofiada jejejejej, el almanaque me pesa jajajajaj
Al tener energía allá, me pongo a agregar eso a la línea.
Gracias amigo, siempre pendiente
También tienes que aumentar el número de columnas a 10
