Hola les deseo un buen día, la cosa es esta...
Actualmente tengo este código para un botón
Private Sub btnfiltrar_Click()
On Error GoTo ErroresIf
Me.txtfiltro.Value = "" Or Me.txtfiltro.Value = " " Then
Me.ltbdatos.Clear
Else
Me.ltbdatos.Clear
j = 1
Set BD = ThisWorkbook.Sheets("APU")
Filas = BD.Range("C2").CurrentRegion.Rows.Count
For i = 2 To Filas
If LCase(BD.Cells(i, j).Offset(0, 2).Value) Like "*" & LCase(Me.txtfiltro.Value) & "*" Then
Me.ltbdatos.AddItem BD.Cells(i, j)
Me.ltbdatos.List(Me.ltbdatos.ListCount - 1, 1) = BD.Cells(i, j).Offset(0, 2)
Me.ltbdatos.List(Me.ltbdatos.ListCount - 1, 2) = BD.Cells(i, j).Offset(0, 15)
Else
End If
Next i
End If
Exit Sub
Errores:
MsgBox "No existe.", vbExclamation
End Sub
Con ese código me traigo los datos de la columna A, C y P hasta un ListBox; Pero yo solo necesito que me traigan los datos de las columnas C y P, como debo modificar ese código para lograr lo que deseo?