AYUDA!!!!! URGENTE!!!!!!!!! COMO HAGO UNA BUSQUEDA EN EXCEL?????

Esta igual busca dentro de la hoja sin importar la columna si quieres algo
mas especifico da mas detalles.
Comenta si te funciona.

Sub buscar()
Dim dato As String
Dim fila As Range
dato = InputBox("Buscamos por ?: ", "Patron de busqueda ...!")
Range("A1").Select
Cells.Find(What:=dato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate

Rows(ActiveCell.Row).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub


Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://search.microsoft.com/?mkt=es-ES

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Prueba con este otro codigo para iluminar solo las dos columnas A y B para
la coincidencia en fila
Asignaselo a un boton

Sub buscar()
Dim dato As String
Dim fila As Range
dato = InputBox("Buscamos por ?: ", "Patron de busqueda ...!")
Range("A1").Select
Cells.Find(What:=dato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Rows(ActiveCell.Row).Select
Dim R As Long
Dim C As Long
Dim X As String
F = ActiveCell.Row
C = ActiveCell.Column
If F >= 2 Or F < 60 Or C < 3 Then
Range("A" & F & ":B" & F).Interior.ColorIndex = 27
Exit Sub
End If
End Sub

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://search.microsoft.com/?mkt=es-ES