11/08/2011, 09:38
|
| | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes Puntos: 88 | |
Excel, Buscar un numero aproximado. Coincido, amigo jchuk.
Y, para el caso general de datos no ordenados, me parece que k.esimo.menor y buscar serían requeridos por ejemplo así: Código PHP: Sub BuscaMenorO_Igual() Dim rng As Range, valor As Double, myNum As Double On Error Resume Next Set rng = Application.InputBox("Seleccione rango de búsqueda", Type:=8) If rng Is Nothing Then Exit Sub valor = Application.InputBox("Nº a buscar", Type:=1) If valor = 0 Then Exit Sub myNum = Evaluate("= LOOKUP(" & _ WorksheetFunction.Substitute(valor, ",", ".") & ", SMALL(" & rng.Address & _ ", 1 + ROW(" & rng.Address & ") - ROW(" & rng(1).Address & ") ))") rng.Find(What:=myNum, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext).Select End Sub Saludos Cacho R. |