[ mirjanagb @ 08.05.2009. 12:33 ] @
u jednoj koloni su datumi, dnevni, u drugoj brojevi.

ja treba da napisem kod:

da trazi poslednji dan u mesecu minus 1

npr nadje 30.04.2009 -1 da onda u drugoj koloni nadje broj i da ga podeli sa prethodnim mesecom (poslednjim danom u mesecu npr 31.03.2009 - 1) pomocu formule ln(x/y)

i da na kraju nadje najmanji broj od svih tih brojeva.

to je lako u excelu pomocu vlookup formule i ove ln(x/Y) i na kraju min().
[ mirjanagb @ 12.05.2009. 15:20 ] @
Code:
Function myFunc(Area As Range, Month As Integer, Year As Integer)
   Dim d As Date, i As Long
    
   d = DateSerial(Year, Month + 1, -1)
   For i = 1 To Area.Rows.Count
      If Area.Cells(i, 1).Value = d Then
         myFunc = Log(Area.Cells(i, 2).Value / Day(Area.Cells(i, 1).Value)) / 1000
                  
         Exit Function
      End If
   Next
End Function


nesto ovako ... ali ne dobijem isti rezultat kao kad radim u excelu rucno.