Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/09/2007, 09:43
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 3 meses
Puntos: 11
FAQ`s Ofimatica

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
__________________
-- Nunca te des por vencido, aún vencido -- Web

Última edición por BrujoNic; 25/09/2007 a las 08:31