u jednom sheet-u imam ove podatke. kolona A datumi, B
ime ispod kojih su brojevi, pa kolona C datum, kolona D opet drugi naziv koji sadrzi brojeve, itd.. kao sto sam malopre stavila primer. i tu svake nedelje dodajem poslednje datume.
u drugom sheet-u mi je tabela. u A2, A3, A4, ... su
ime , B1, C1, D1, nazivi formula koje racunam. neke formule se lako mogu u excelu napisati (samo u jednoj celiji). npr u celiji B2, B3, B4, mi je formula samo vlookup (koji trazi podatke iz prvog sheet-a)
ali za C2, C3, C4 ne moze u jednoj celiji da se napise excel formula. e ja hocu funkciju jer ne mogu ovo sto mi treba da izracunam samo u toj jednoj celiji sa excel formulama. (ili ja ne znam).
jer treba da trazi samo poslednji dan u mesecu, pa da sa vlookup (ili offset) nadje broj tog poslednjeg dana. kao sto sam stavila malopre primer.
to je prvi deo funkcije.
drugi deo: onda se deli nadjeni broj kraja meseca sa prethodnim mesecom.
tako cu imati kao u primeru: =(70( sto je mart)/60 (februar))=16,666
imam onda npr =75 (april)/ 70 (mart) = 1,07.
treci deo: i onda na kraju funkcija treba da trazi najmanji broj. u ovom primeru mi krajnji rezultat bio 1,07
ovo je primer sta funkcija treba da radi samo za jednu kolonu.
onda bih ja sa OFFSET tu funkciju prebacivala za svako ime koje treba da racunam.
nadam se da sam bar malo objasnila.
ja poceh nesto da pisem, verovatno puno gresaka:
Code:
Function MinPerf()
Dim LastDayinMonth as date
Dim mdate as date
Dim LastRow as long
Dim i as Integer
Dim j as integer
for i = 1 To n-1
LastRow= Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myRange = Range ("A4:A" & LastRow)
J = myRange.Offset(0,1).value
If mDate=0 Then
mDate = Date
End If
LastDayinMonth = DateSerial(Year(mDate), Month(mDate) +1,0)
If i = LastDayinMonth Then
i = j
End If
Next
End Function