03/03/2011, 09:30
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 7 meses Puntos: 88 | |
 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.  |