[ mmisic @ 15.10.2008. 21:18 ] @
Imam jedan code i zelio bih postaviti jedan uvijet prije izvodjenja samog koda koji ce vrsiti provjeru da li je potrebno da se funkcija izvrsi do kraja ili ako uvijet nije ispunjen da se funkcija ne izvrsi. 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 |