Ver Mensaje Individual
  #6 (permalink)  
Antiguo 03/03/2011, 09:30
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 8 meses
Puntos: 88
De acuerdo Problemas para crear funcion con el metodo FIND

¡Ahora se entiende muchísimo mejor el objetivo perseguido!...

Suponiendo que la hoja activa sea "Hoja1", coloca lo siguiente en un módulo común:
Código PHP:
Sub BuscarVal()
Application.ScreenUpdating False
[a8].CurrentRegion.Delete xlShiftUp

With Worksheets
("BD")

.[
aa1] = .[a1]: .[aa2] = "*" & [b1] & "*"
.[ab1] = .[d1]: .[ab3] = .[aa2]
.[
a1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy_
  CriteriaRange
:=.[aa1:ab3], CopyToRange:=[a8], Unique:=False
.[aa:ab].Delete

End With
Application
.ScreenUpdating True
End Sub 
Saludos, Cacho.