Call v private sub macro

0
0

Zdravím, potřeboval bych poradit s jedním private sub makrem.
Mam toto makro, a potřeboval bych k tomu připojit ještě jedno nebo nějak udělat další podmínku, že pokud se ve sloupci R změní hodnota spustí to Macro1(které mam připravené) jen bych potřeboval tu podmínku + ten call?

Private Sub Worksheet_change(ByVal Target As Range)
Dim Rng As Range, Cll As Range
Set Rng = Intersect(Target, Range("S:W"))
If Not Rng Is Nothing Then
Application.EnableEvents = False
For Each Cll In Target.Cells
If Cll.Value = "x" Then
Range("S:W").Rows(Cll.Row).ClearContents
Cll.Value = "x"
End If
Next
Application.EnableEvents = True
End If

Marked as spam
Odeslal Vašek
Otázka položena 20.8.2019 11:41
13 views
0
Private answer

https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/makro-ktere-se-samo-spousti-pri-zmene-hodnoty-bunky/

jen místo toho "mojemakro" tam dát podmínku a to makro do ní. Takže se makro spustí, jen když podmínka je splněná.

Marked as spam
Odeslal (Otázky: 1, Odpovědi: 223)
Odpověděl 29.8.2019 5:21

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]