- uz som si to odskusal sam, staci jedno ...

- tak ma napadlo, ako bude osetrene, aby sa nahodou niekto nepomylil a tie prepocitane hodnoty, nahodnym kliknutim opat neprepocital s tych uz raz prepocitanych ??? ...

Da sa urobit kontrola, aby sa prepocet urobil vzdy len na eura alebo naopak a pripadne tuto informaciu premietat do nazvu tlacitka, t.j. ktorym smerom sa robi prepocet, takto nemoze dojst k pripadu, ze sa nieco prepocita 2x

Tesne za riadok s prepoctom mozes doplnit tento kod:

With Range("A1").Font
.Color = -16776961
.TintAndShade = 0
End With

Tento kod napriklad ofarbi pismo cervenou farbou.

vidim, ze ti uz ostatny poradili, este chcem doplnit. Sprav iba jedno tlacitko a do makra ktore je pridatene k nemu daj vsetky zmeny.

sub makro
Range("A1")....
Range("B2")...
....
Range("Sheet2!B34")....
end sub

Takto to spravis raz a mas to navzdy. Este by sa to dalo zjednodusit, kedby si mal napr data v stlpcoch Range("A1:A25"), atd.

diky, podarilo sa mi to celkom dobre zvladnut, dik za rady.

poprípade to skús s týmto. Do makra si môžeš pridať farbu alebo podfarbenie písma.

Hej, niečo podobné som už viac krát robil.
Pripájam jednoduchý príklad, len ako ilustráciu, že to ide.
Jeho aplikácia vyžaduje trochu znalostí s VBA kódom (makrami)

- pomenovaná oblasť
a) označiť požadované bunky - klik na viaceré bunky pri stlačenom CTRL (napr. "C2", "C5")
b) pomenovať - do priestoru nad záhlavím riadkov a stĺpcov zadať meno (napr. "Kalk_na_Euro")

- vložiť kód pre príslušný list
a) ALT+F11 - VBA editor
b) skopírovať z tohoto príkladu kód z listu "Sheet2 (DajNaEuro)" do svojho listu
c) pridať modul a do neho globálnu premennú
Global xNotCheckEditValid As Boolean

- umožniť spúšťanie makier (ak už nie je)
- Tool / Macros / Security

Ak je to zložité a vo firme nie je niekto "makro positive :-)", pošli mi to priamo na mail (mrk na pc-prog.sk) a ja ti to prehodím.

Palo