Modificar Programa de V.Basic (creado gentilmente por Dante Amor), para buscar datos
Necesito modificar este programa para que busque (contener) varios datos en una fila
Sub formulas()
'Por.Dante Amor
Application.ScreenUpdating = False
u = Range("C" & Rows.Count).End(xlUp).Row
u1 = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To u1
Application.StatusBar = "Registro procesado: " & i & " de: " & u1
Cells(i, "B") = Application.CountIf(Range("C1:C" & u), "*" & Cells(i, "A") & "*")
Next
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Cálculo de las fórmulas terminado", vbInformation, "Fecha: " & Date
End Sub
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro para filtrar por varios criterios
Sub filtro()
'Por.Dante Amor
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Columns("W").Clear
[W1] = [P1]
u = Range("P" & Rows.Count).End(xlUp).Row
u2 = Range("V" & Rows.Count).End(xlUp).Row
For i = 2 To u2
Cells(i, "W") = "*" & Cells(i, "V") & "*"
Next
Range("P1:P" & u).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("W1:W" & u2), Unique:=False
End Sub
