Problemas para crear funcion con el metodo FIND

[mrocf]

¡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.