< návrat zpět

MS Excel

Téma: Spuštění makra x nebo y změnou hodnoty buňky L2 rss

Zaslal/a pepča 3.11.2025 13:24

Ahojky. Potřeboval bych poradit jak změnit makro které se spouští aktivací buňky BF18, tak aby toto makro se spustilo při změně buňky L2.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim VRange As Range
Dim CisloRadku As Integer
Set VRange = Range("BF18")
If Union(ActiveCell, VRange).Address = VRange.Address Then
If VRange = "ANO" Then Call UKAZ
If VRange = "NE" Then Call SCHOVEJ

End If

End Sub

Zasílám přílohu. Děkuji za odpověď.
Pepča

Zaslat odpověď >
Stalker(3.11.2025 23:22)#057575
Stalker
Set VRange = Range("L2")citovat
pepča(4.11.2025 7:02)#057576
avatar
Ahojky. Bohužel jsem to asi špatně popsal. Potřebuji aby změnou buňky L2 se spustilo makro které, když bude v buňce BF18 vygenerováno "ANO" spustí se makro "UKAZ", když bude "NE" pak makro "SCHOVEJ". I tak děkuji za rychlou odpověď.citovat
Stalker(4.11.2025 11:24)#057577
Stalker
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SpousteciBunka As Range
Dim KontrolovanaBunka As Range

Set SpousteciBunka = Range("L2")
Set KontrolovanaBunka = Range("BF18")

If Intersect(Target, SpousteciBunka) Is Nothing Then Exit Sub
Select Case KontrolovanaBunka.Value
Case "ANO"
Call UKAZ
Case "NE"
Call SCHOVEJ
Case Else
MsgBox "Kontrolovaná buňka: " & KontrolovanaBunka.Address(False, False) & vbNewLine & "Neobsahuje hodnotu ANO/NE! Makra nebudou spuštěna!", vbCritical, "CHYBA !!!"
End Select
End Sub
citovat
pepča(4.11.2025 18:55)#057580
avatar
Děkuji za bleskovou odpověď. Je to přesně to co jsem potřeboval. Ještě jednou moc děkuji.
Pepčacitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje