buenas tardes amigo del foro quisiera hacer una macro que busque un datoen todo un libro y cuando lo encuentre resalte toda la fila donde se encuentra
Cita: Dim valor As String, celda1 As String, celda2 As String
Dim inicio As String, largo1 As String
valor = InputBox("Ingrese Numero ")
largo1 = Len(valor)
Cells.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
celda1 = ActiveCell.Address
celda2 = 0
Do While celda2 <> celda1
inicio = InStr(ActiveCell, valor)
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Cells.FindNext(After:=ActiveCell).Activate
celda2 = ActiveCell.Address
Loop
End Sub
este solo busca en la hoja que se encuentra de lo contrario da un error 91 y solo resalta la celda activa y no toda la fila gracias de antemano
alguien??