Macro que busque una palabra y si no la encuentra busque otra
Necesitaria ayuda para armar un macro que busque en toda una hoja la palabra "texto1" si la encuentra la seleciones si no la encuentra que busque la palabra "texto2" y si no " texto3" .
1 Respuesta
Respuesta de James Bond
1
Prueba esta macro, solo cambia hoja1 por el nombre de la hoja donde estén tus datos.
Option Base 1
Sub busca_PALABRAS()
Dim matriz(3) As String
Set HOJA = Worksheets("HOJA1").UsedRange
matriz(1) = "TEXTO1"
matriz(2) = "TEXTO2"
matriz(3) = "TEXTO3"
For I = 1 To UBound(matriz)
PALABRA = matriz(I)
On Error Resume Next
Set busca = HOJA.Find(PALABRA)
If Err = 0 Then Range(busca.Address).Select
On Error GoTo 0
Next I
End Sub
