Kako nadopuniti code

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

Potpis

MMisic

Ovaj kod ti ne valja i pre nego što bih ga gledao mogu da kažem.

Pročitaj u HELP-u šta su funkcije i kada se koriste, a kada procedure (Sub procedures).. Možda ti je sintaksa ispravna, nisam ni proveravao, ali loše si ovo postavio pa nema svrhe bilo šta dalje na ovu temu (jer nemam vremena sada za pisanje lekcije).

guglaj

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

3okc kaže:
Ovaj kod ti ne valja i pre nego što bih ga gledao mogu da kažem?

Gospodine 3okc da ste pogledali code vidjeli bi da radi ono sto se njega ocekuje. A nemozete samo tako blatiti nesto sto niste ni provjerili.

3okc kaže:
Nemam vremena sada za pisanje lekcije

Nitko od Vas nije ni trazio da pisete lekcije. Kada bi svi znali sve, ovaj forum ne bi ni postojao. Ako sam postavio pitanje a vi nemate vremena za davanje lekcija - nije mi jasno zasto ostali clanovi foruma moraju to znati. Nemate vremena - OK. Ali onda nemojte pisati o tome kako nemate vremena i ponizavati clanove koji postave neko pitanje na koje vi ne zelite ili ne znate odgovarati.

Pitanje sam postavio za clanove koji nesto znaju i zele da pomognu a oni koji nemaju vremena ne moraju ni odgovarati na postavljeno pitanje.

Jos jednom HVALA

Potpis

MMisic

Gledao sam tvoj primer ali u njemu nisam našao poziv funkcije koju navodiš, tako da nisam razumeo kako se koristi.

U vezi odgovara 3okc i meni se prvi mah učinilo da ovo nema veze sa funkcijom jer si ti napisao:

jer funkcija vraća vrednost a ne "razvrstava", ali iz koda vidim da ipak jeste funkcija, samo ne znam kako je koristiš.

Nevezano za pitanje, ako razumem o čemu se radi u svakom slučaju pokušaću da ti odgovorim, iz mojeg iskustva rekao bih da ti organizacija podataka nije dobra. Moguće je problem rešiti različito, ali sa dobrom organizacijom u Excelu rešenje je često nadohvat ruke, a sa neodgovarajućom živa muka.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Treba obratiti pozornost na kolonu „A1“ u kojoj se mijenja godina zatim na adresu „BA9“ i adrese AZ11 BA11 i BB11 – kada je A1=2009 i

adrese BX11, BY11 i BZ11 kada je A1=2008.

Saljem Vam jos jedan primjer u kojem sam naveo sto tocno zelim. U sebi nema nikakvog koda samo opis "stvarne situacije"

Potpis

MMisic

Možda nisam razumeo, ali čini mi se da jednostavno možeš da pozoveš svoju funkciju unutar IF funkcije:
=IF(A1="1",POJAMD(...),"")

Naravno, istu stvar možeš da ubaciš unutar koda. Npr dodaš još jedan parametra funkciji u koji prenosiš adresu ćelije u kojoj je uslov

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

=IF(A1="1",POJAMD(...),"")

Ovom IF funkcijom nista ne dobivam jer opet imam isti problem. SPOROST FUNKCIJE.
Code koji si prikacio cu da pogledam pa se javim kasnije

HVALA

Potpis

MMisic

Jpeca HVALA najljepsa

Ovaj tvoj code rjesava moje probleme. Otvaranje programa se ubrzalo toliko da se program vise ne otvara 15-ak minuta nego se to napravi za 3-4 minute. I to je previse ali s tim mogu ziviti.

Palo mi je na pamet da u radnoj knjizi iskljucim automatski izracun svih formula i da naredbu "calculate" dodam za sve obracune koje vrsim putem VBA tako da kad pokrenem obracun da mi excel tek onda preracuna sve formule koje su mi bitne za taj izvjestaj

Potpis

MMisic