Vyskúšaj si priložený súbor.
VBA kód - ALT+F11

Palo

Dik za pomoc, ale asi som to zle vysvetlil čo potrebujem. Nechcem aby sa makro spustilo po kliknutí na tlačidlo ale po kliknutí na text v bunke. Malo by to fungovať asi tak že po kliknutí napr na tvoj text v bunke C2 (Makro_A) by sa spustilo makro. Asi tak.

Dik za pomoc, ale asi som to zle vysvetlil čo potrebujem. Nechcem aby sa makro spustilo po kliknutí na tlačidlo ale po kliknutí na text v bunke. Malo by to fungovať asi tak že po kliknutí napr na tvoj text v bunke C2 (Makro_A) by sa spustilo makro. Asi tak.

No tak skús toto.

A medzi nami. Je v tom až taký podstatný rozdiel?

Variant môže byť viacero, napr na DblClick
P.

Variant môže byť viacero, napr na DblClick
P.

Áno môže. To musí zadávateľ upresniť, ako to chce mať. DblClick na dve bunky naraz asi nepôjde. V predchádzajúcom príklade si môže vybrať aj viac buniek a príslušné makrá sa spustia.

To je super takto som si to predstavoval. Klobuk dole. dik dik moc

Dúfam, že už moc neotravujem ale vôbec netuším ako ste to tam dostali

a už viem :)

Ale aj tak to ešte nieje ok. lebo v bunke musí byť napísaný názov makra aby to fungovalo a ja potrebujem mať v bunke napísane napr. AAA a spusti sa makro PRIDAJ_RIADOK

Dúfam, že už moc neotravujem ale vôbec netuším ako ste to tam dostali

ALT+F11
a pozri na list SHEET1

Je to "procedúra", ktorá sa spustí ak nastanú dané podmienky. V prvom prípade ak urobíš výber oblasti, alebo urobíš dvojitý klik na danú bunku v prípade druhom.

Ale aj tak si myslím, že je lepšie spúšťať makro tak, ako je to v prvom prípade - tlačítkom. Klikať na bunku nie je až také výrazné, a niekto by to mohol spustiť aj omylom.

Dúfam, že už moc neotravujem ale vôbec netuším ako ste to tam dostali

a už viem :)

Ale aj tak to ešte nieje ok. lebo v bunke musí byť napísaný názov makra aby to fungovalo a ja potrebujem mať v bunke napísane napr. AAA a spusti sa makro PRIDAJ_RIADOK

Tak si uprav kód



If x.value="AAA" then
Application.run PRIDAJ_RIADOK
Endif


alebo




Select Case x.Value
Case "AAA"
Application.Run pridaj_riadok
Case "BBB"
Application.Run makro1
Case Else
Application.Run makro2
End Select

Upravil som to takto ale to asi nebude dobre.




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range, xObl As Range
Dim xMacro As String

On Error GoTo xErr
Set xObl = Selection
Set prienik = Application.Intersect(Target, Worksheets("Sheet1").Range("C2:C4"))
If C2.Value = "AAA" Then
Application.Run Makro_A
Exit Sub

xErr:
MsgBox "makro s názvom '" & xMacro & "' neexistuje!", vbCritical, "CHYBA"
Resume Next

End If


End Sub

...

Je to dobre až na jeden problém, keď si označím riadok alebo stĺpec výberu ("C2:C4") tak sa zažne sam posúvať výber bunky na koniec riadku alebo stĺpca.

Je to dobre až na jeden problém, keď si označím riadok alebo stĺpec výberu ("C2:C4") tak sa zažne sam posúvať výber bunky na koniec riadku alebo stĺpca.

Neviem, prečo klikáš na celý stĺpec?
Radšej použi ten druhý spôsob dvojklik od PaloPa.

Pred END SELECT vlož toto


Case Else
MsgBox " nebolo vybrané žiadne makro."
Exit Sub

neviem prečo ale vyhadzuje mi to chybu ked to makro použijem v inom zošite

neviem prečo ale vyhadzuje mi to chybu ked to makro použijem v inom zošite

Uprav si riadok na
Set prienik = Application.Intersect(Target, Worksheets("Hárok1").Range("A2:A30"))

Toto funguje iba na liste "Hárok1"

V pôvodnom bolo uvedené "Sheet1"

Prípadne si to zovšeobecni pre ľubovoľný názov hárku:

Set prienik = Application.Intersect(Target, ActiveSheet.Range("A2:A30"))

čaute

najprv poďakujem za predošlú pomoc
a teraz by som potreboval pomôcť ešte s ďalšími vzorcami. Viac v prílohe sú dosť komplikované a neviem či je to vôbec možne spraviť.

vopred vdaka