Excel - spuštění makra při hodnotě buňky

[ENeMy]

Dobrý den,
potřeboval bych poradit, jakým způsobem se dá spustit makro. Potřebuji aby se makro A spustilo, když v buňce P3 bude 1, a když bude ve stejné buňce 0, tak aby se spustilo makro B. Něco jsem udělal, ale aktivuje se makro pokaždé, když se začnou přepočítávat vzorce.

Kód: Vybrat vše

Private Sub Worksheet_Calculate()
    Select Case Range("$AN$1")
    Case 0
        Call B
    Case 1
        Call A
    End Select
End Sub


[Reklama]

[cmuch]

Tak Calculate změň na Change.

Jinak v podmínce máš AN1 a ne P3.

Nebo můžeš použít makro jak tady v tom příspěvku viewtopic.php?f=35&t=105303&hilit=makro

[ENeMy]

Když to změním na change, tak to vyhodí chybu. Compile error: Ambiguous name detected: Worksheet_Change

[Mirdad69]

To vypadá, že tam máš v jednom listu 2 makra stejného názvu Worksheet_Change.

[ENeMy]

Měl jsem tam 2, to druhé bylo

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$P$3" Then
Call Zmena
End If
End Sub

A když jsem ho dal pryč, tak tam vyskočilo toto

[cmuch]

Aby to nevyskakovalo tak musí být název takto
Private Sub Worksheet_Change(ByVal Target As Range)

[ENeMy]

Ještě mě napadlo, jestli makro nemůže vyvolat dotazové okno jestli opravdu chcete spustit makro.

[cmuch]

Jakože vyskočí okno s dotazem zda se má vyvolané makro dokončit?

[ENeMy]

Ano, přesně tak.

[cmuch]

Takže asi tak

Kód: Vybrat vše

Sub DotazProPokracovani()

  If MsgBox("Pokračovat?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
    MsgBox "Pokračuji."
  End If
End Sub