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.
Podmíněné spuštění makra Vyřešeno
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Podmíněné spuštění makra
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.
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
Mockrát děkuju, funguje to bezvadně.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 7
- 2010
-
od veselypettr
Zobrazit poslední příspěvek
31 kvě 2023 14:00
-
- 1
- 733
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 4
- 1820
-
od Radoozek
Zobrazit poslední příspěvek
08 pro 2023 16:45
-
- 2
- 870
-
od Mr. Incognito
Zobrazit poslední příspěvek
30 čer 2023 19:04
-
-
Program se stále ptá na spuštění při startu OS
od Karrex » 17 pro 2023 15:09 » v Windows 11, 10, 8... - 3
- 1581
-
od zeus
Zobrazit poslední příspěvek
19 pro 2023 18:50
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti