PC-HELP.CZ

Ahoj, měl bych na vás prosbu.
Potřeboval bych, aby se mi spustilo makro, když změním hodnotu konkrétní buňky.
Jde to?
Díky za radu.

Vítej na pc-help

Lze to provést. O jaké konkrétní buňce se bavíme?

třeba o buňce D8:)

Klikni pravým tlačítkem myši na název listu, pro který chceš toto aplikovat a z kontextového menu vyber možnost Zobrazit kód. Do prázdného okna napravo vlož následující makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$8" Then
Call nazev_makra
End If
End Sub

Nezapomeň k funkci Call zapsat název makra, které se má spustit (viz, červený text)

---

Díky moc, hned to vyzkouším!
Už 3 dny to zjišťuju, to by byla bomba!

Ok, dej pak vědět, jestli ti to vyhovuje či nikoliv.
3 dny hledat odpověď je opravdu hodně. Příště zajdi sem

Moc děkuji, i mě to pomohlo.

Díky za super radu, i mě to moc pomohlo, ale ještě bych potřeboval aby se makro spustilo když se změní hodnota buňky na základě výpočtu a ne jen když ji změním já ručně. Takže mám buňku, která počítá podle daného vzorce číslo. Data pro vzorec zadávám z určitého rozsahu buňek. Jde, aby se makro spustilo i když se změní číslo, (v oné buňce se vzorcem) které se vypočítá?

to matio:
Pro zachyceni udalosti zmena hodnoty bunky vypoctem vzorce slouzi udalostni procedura Worksheet_Calculate(), bohuzel zachycuje jakykoliv prepocet na listu vcetne funkce NahCislo(), Dnes(),..., takze je nutno identifikovat zdroj, kdy by mela byt volana procedura.
V popisovanem pripade - "Data pro vzorec zadávám z určitého rozsahu buňek" - lze opet pouzit udalostni proceduru Worksheet_Change(ByVal Target As Range) a identifikovat zmenu v bunkach pro zadavani dat, napr.: A1:A3, B2,C3.

matio: A co takhle si založit vlastní téma?? Příště to laskavě udělej. Zde je již vlákno uzavřeno.

to mike0007:
Podminka If Range("d8") <> "" Then je splnena pouze v pripade, ze bunka D8 je prazdna, pokud bude vlozen vzorec, bude D8 obsahovat funkcni hodnotu <>"", takze podminka pri prepocetu listu vyvolana zmenou funkcni hodnoty vzorce v jine bunce (nebo funkci DNES(),...) bude vyhodnocena jako TRUE a zavolano makro, prestoze nedoslo ke zmene funkcni hodnoty v D8.

2 Mike007: Sorry, ale to, na co jsem se ptal velmi souviselo s první otázkou - jedná se o to samé téma. Připadlo mi nesmyslné zakládat nové vlákno s tím samým názvem a skoro tou samou otázkou a tím znepřehledňovat celé fórum.

2 Navstevnik: Díky moc za odpověď, jdu to zkusit.