Saludos a todos.
mi duda es la siguiente.
tengo un libro de excel con muchas hojas.
lo que necesito es una macro en la cual salga un inputbox y yo le de el nombre a buscar y que este verifique en todas las hojas y que, en las hojas donde este, coloque una linea gruesa al lado derecho de esa celda donde esta el nombre buscado.
este es el codigo que tengo :
Sub Actualizar_manuals()
buscardato = InputBox("Deme el dato")
If buscardato <> "" Then
Sheets("EB 767 104-001").Select
Cells.Find(What:=buscardato, After:=ActiveCell, LookIn:=xlFormulas,_ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,_ MatchCase:=False, SearchFormat:=False).Activate
With Selection.Borders(xlEdgeLeft)
.Weight = xlThick
End With
If buscardato <> "" Then
Sheets("EB ALL 104-002").Select
Cells.Find(What:=buscardato, After:=ActiveCell, LookIn:=xlFormulas,_ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,_ MatchCase:=False, SearchFormat:=False).Activate
With Selection.Borders(xlEdgeLeft)
.Weight = xlThick
End With
If buscardato <> "" Then
Sheets("EB ALL104-004").Select
Cells.Find(What:=buscardato, After:=ActiveCell, LookIn:=xlFormulas,_ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,_ MatchCase:=False, SearchFormat:=False).Activate
With Selection.Borders(xlEdgeLeft)
.Weight = xlThick
End With
End If
End If
End If
End Sub
esto lo tengo , pero al llegar a una hoja donde no se encuentra el dato, (en este caso el ultimo) me saca error y no se como hacer para q, si el nombre a buscar no esta en esa hoja, busque en la siguiente.
espero y me puedan ayudar. muchas gracias.
