FAQ`s Ofimatica

[Pablus00]

Tengo mas voluntad que conocimiento, asi que me limite a adaptar al formato FAQ un post que me sirvio y que me parecio muy completo (autores abrahamvj, 3pies y landa59)


Macro con la Función Edición/Buscar:

Simplificada

Sub búsqueda()
Cell.Find(What:=”palabra”).Activate
End sub

.. y extendida

Sub busqueda()
Cell.Find(What:="hola", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End sub

Variantes:

• Utilizando Textbox para ingresar el campo a buscar:

Sub busqueda()
Cell.Find(What:=textbox1).Activate
End sub

• Restringiendo el campo de búsqueda a una columna/fila/rango

Reemplazando Cells (toda la hoja) por:
[B:B] (toda la columna B)
[3:3] (toda la fila 3)
Range("A2:B99") (el rango especificado).

• Con mensaje de Alerta

Sub Macro1()

On Error GoTo lineaerror

Cells.Find(What:="hola", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

Exit Sub

lineaerror:
MsgBox "Error"

End Sub