Podmíněné spuštění makra

[deko]

Mám jedno makro na zápis denních dat. Potřebuju aby každý pátek se po zápisu spustilo další makro, které provede týdenní zápis.
Šel jsem na to tak, že po zápisu se mi do jedné buňky nakopíruje aktuální datum, ve vedlejší buňce mám funkci DENTÝDNE(A1;2) a teď potřebuji poradit když DENTÝDNE=5 aby se mi spustilo makro.

[cmuch]

Tak třeba takto.
Procedury je třeba vložit v projektu (Alt+F11) do listu kde vkládáš to datum do buňky A1.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
' procedura je volana pristupem do bunky a jejim povrzenim
Dim Oblast As Range
Dim Bunka As Range
'definice sledované oblasti
Set Oblast = Range("A1:A1")
Set Bunka = Range("B1:B1")
   'test pristupu
   If Union(Oblast, Target).Address = Oblast.Address Then ' kdyz neni shodné, preskocit
 
     ' porovnávaná bunka s hodnotou 5
     If Bunka = 5 Then  ' kdyz neni shodné, preskocit
                                           
Call TvojeMakro ' prikaz Call neni povinny, staci nazev volane procedury

     End If
   End If
End Sub

[deko]

Mockrát děkuju, funguje to bezvadně.