Ova formula mislim da je kraca
Code:
IF(LEN(D3)=4;D3+1;LEFT(D3;SEARCH("";D3;1)) &" " & RIGHT(D3;4)+1)
A kad smo vec krenuli da uproscavamo mozes i formulu u donjem redu da zamenis funkcijom HLOOKUP
Code:
=HLOOKUP(E3;$M$1:$AU$2;2;FALSE)
A sto se tice prve funkcije i ona se moze jos vise uprostiti pisanjem
namenske funkcije:
Code:
Function Kvartali(KvartalGodina As String, Plus As Boolean)
If Plus Then
If KvartalGodina = "" Then
Kvartali = ""
ElseIf Len(KvartalGodina) = 4 Then
Kvartali = KvartalGodina + 1
ElseIf Len(KvartalGodina) > 4 Then
Kvartali = Left(KvartalGodina, InStr(1, KvartalGodina, " ", vbTextCompare)) & Right(KvartalGodina, 4) + 1
End If
Else
If KvartalGodina = "" Then
Kvartali = ""
ElseIf Len(KvartalGodina) = 4 Then
Kvartali = KvartalGodina - 1
ElseIf Len(KvartalGodina) > 4 Then
Kvartali = Left(KvartalGodina, InStr(1, KvartalGodina, " ", vbTextCompare)) & Right(KvartalGodina, 4) - 1
End If
End If
End Function
i kasnije je pozivas kao bilo koju drugu funkciju.