Sub Buscador()
On Error Resume Next
Range(«B:B»).Cells.Find(What:=[B1], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
JFK-SOFT: BIENVENIDOS A NUESTRAS SOLUCIONES
Biometria, Códigos de Barras y Plantillas de Excel Avanzadas
Sub Buscador()
On Error Resume Next
Range(«B:B»).Cells.Find(What:=[B1], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Como podria hacer que este buscador localice los datos en toda las hojas del libro y no solo en la que esta?
Antecedes el nombre de la hoja
sheets(«Hoja1»).cells…