buscar cadena en celdas

[davidtorrejon]

Q tal Potypoty, gracias por tu interes. Estas en lo cierto, debo seleccionar celdas q contengan la palabra sólido, líquido..... Dado q el tiempo me apremia he ideado una forma de hacerlo (poco elegante, pero bueno).
He hecho una funcion q busca en cada celda la palabra a buscar y en una celda contigua escribe sd si es una materia solida o lq si es liquida. El bucle q ejecuta es muy rápido no como el otro q hice q ocultaba celdas. Ahora con estas nuevas celdas, solo tengo q programar el autofiltro para q elija sd o lq.
Este es el codigo:
Public Sub solidos2()
'Call todas
Dim cad As String
cad = "ÁCIDO"
'cad2 = "polvo"
Dim fila As Long
fila = 1
Dim i, j, x As Integer
j = 0
For x = 1 To Range("c2").End(xlDown).Row
i = InStr(Cells(fila, 3).Value, cad) ' Devuelve el numero de caracteres hasta q aparece cad, si no la encuentra devuelve cero
'j = InStr(Cells(fila, 3).Value, cad2)
If i <> 0 Then
Cells(fila, 7).Value = "lq"
j = j + 1
'Cells(fila, 3).EntireRow.Hidden = True
End If
fila = fila + 1
Next
Range("A1").Select
MsgBox ("Listo. Se cambiaron " & j & " registros")
End Sub
Me gustaria, dado tu interes, enviarte el Excel para q lo vieras pero no encontre como adjuntar archivos o tu email