Code je:
Function PojamD(Trazi As String, raspon As Range) As String
'funkcija za datum
Dim mjesto As Range
Application.Volatile
For Each mjesto In raspon
If mjesto.Value Like "*" & Trazi & "*" Then
PojamD = mjesto.Value
End If
Next
If PojamD = "" Then PojamD = ""
End Function
Ova funkcija trazi datume za odredjenu godinu i razvrstava ih u tabelu po mjesecima za tu godinu. Treba mi recimo ako je u celiji A1="" da funkcija prestane sa trazenjem a ako je u celiji A1=1 da se funkcija nastavi do kraja. I tako dalje za svaki sljedeci redak tj. A2="" - funkcija ne pretraziva raspon , A3=1 - funkcija se odvija do kraja itd. Evo jedan primjer da me lakse skuzite