Tegnap este kipróbáltam. Az a baj hogy azt a függvényt nem én írom ami kiíratja a "Results available"-t. (Le van jelszavazva, bárcsak bele piszkálhatnék...) :S Viszont megpróbáltam úgy hogy arra írok függvényt, hogy amikor megjelenik a felirat akkor oda-vissza lép két lap között, de nem lépkedett :S. A "Worksheet_Activate" parancsot viszont kipróbáltam azzal nem volt gond az tette a dolgát. Szóval még mindig ott állok ahol a part szakad :S. Hol lehet annak utánanézni, hogy mik a korlátai a "function" parancsnak??
Ja úgy tervezem a második fele a ciklusnak úgy fog indulni ha két feltétel teljesül:1, lefutott az elsõ fél 2, kész a szimuláció (ez hiányzik már csak :S)
Azért mellékelek egy egyszerûsített példát hátha én rontottam el valamit:
Public Function fu(cell As Range, _
Optional default_value As Variant)
If cell.Range("a1") = 2 Then
fu = default_value
Sheets("Munka2").Activate
Sheets("Munka1").Activate
Else
fu = 0
End If
End Function
Sub Worksheet_Activate()
Cells(1, 1) = Cells(1, 1) + 1
End Sub
Lenne viszont még egy kérdésem de ez csak aprócska. Hogy definiálok változókat úgy hogy azok a memóriába maradjanak és ne keljen mindig egy cellába menteni õket? (Egyébként kezdõ vagyok még a makro programozásból, de jól bele csaptam a lecsóba... :))