Buscar y Ocultar

[VeryGreenGrinch]

¡Hola!... y de antemano gracias.

Intenté realizar la macro a través de "Grabar Macro" (o "Macro Recorder"), pero algunas acciones no las escribe. Y el asunto es así:

A través de un botón simple, al pulsarlo, necesito que busque por columnas en toda la hoja, las celdas que contengan la palabra "automóvil" (por ejemplo... y siempre será la misma)... y que oculte la fila que lo contenga.

Saludos!.......................... Y por siempre gracias por compartir su conocimiento.

 

[mjrofra]

algo así podría funcionarte:

Do Until Cells.Find("Automovil") Is Nothing
    Cells.Find("Automovil").EntireRow.Hidden = True
Loop

 

[Greg Truby]

Note que si sus datos son continguos y que el texto que se busca se encuentra en solamente una columna, se puede usar filtro (AutoFilter en XL2003 y abajo). Y allí sí uno podría grabar un macro. Por ejemplo (grabado usando 2007):

    ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="<>*car*", _
        Operator:=xlAnd

 

[galileogali]

Para el supuesto de que la palabra Automóvil pudiera aparecer en cualquier columna y tengamos encabezados en la tabla, podemos correr una macro de AdvancedFilter, con criterio en dos celdas; la de arriba vacia y la de abajo con la sigiente formula:
si la tabla c/encabezamientos estuviera en A1:M100
=contar.si(A2:M2;"*Autom?vil*")>0

desde ya que el codigo es muy facil.....