Podmíněné spuštění makra Vyřešeno
Napsal: 09 dub 2011 13:54
od 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.
Re: Podmíněné spuštění makra
Napsal: 10 dub 2011 12:09
od 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
Re: Podmíněné spuštění makra
Napsal: 10 dub 2011 14:01
od deko
Mockrát děkuju, funguje to bezvadně.