Excel - automatické spuštění makra při změně buňky uživatelem Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

ppcko
nováček
Příspěvky: 12
Registrován: srpen 13
Pohlaví: Muž
Stav:
Offline

Excel - automatické spuštění makra při změně buňky uživatelem

Příspěvekod ppcko » 20 led 2016 17:41

Zdravím a prosím o radu...

našel jsem zde jen řešení, která mi nefungují.

Popis situace (co se má dít):
Uživatel zadá hodnotu do buňky List1!A1, automaticky se nastaví stejné hodnoty v buňce List2!A1 a v případě, že uživatel zadá něco do buňky List2!A1, mělo by se to samé nastavit do buňky List1!A1.

Něco jsem zkoušel, ale tak nějak zvláštně se mi to cyklí a dělá chyby :)

Díky moc.

btw: Makro spouštím takhle a to právě asi způsobuje, že se spustí i to na druhém listu a dělá to neplechu :)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Call Prevezmi
End If
End Sub

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - automatické spuštění makra při změně buňky uživatelem

Příspěvekod cmuch » 20 led 2016 19:33

Ahoj, přidej před Call Makro toto

Kód: Vybrat vše

Application.EnableEvents = False

a za něj potom opak. To zabrání zacyklení.

ppcko
nováček
Příspěvky: 12
Registrován: srpen 13
Pohlaví: Muž
Stav:
Offline

Re: Excel - automatické spuštění makra při změně buňky uživatelem  Vyřešeno

Příspěvekod ppcko » 20 led 2016 22:08

Pecka, funguje.

Díky moc Cmuchu :)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    363
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • VBA Excel 365 vložit obrazek do buňky
    od wlk60 » 19 dub 2023 15:43 » v Kancelářské balíky
    1
    1730
    od atari Zobrazit poslední příspěvek
    19 dub 2023 21:53
  • Excel - filtr na formát buňky + obsah Příloha(y)
    od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky
    0
    2041
    od popcorn Zobrazit poslední příspěvek
    19 zář 2023 17:07
  • Aktivace Windows po změně disku Příloha(y)
    od JanC » 15 říj 2023 20:32 » v Windows 11, 10, 8...
    24
    4067
    od JanC Zobrazit poslední příspěvek
    08 lis 2023 08:19
  • Problém s připojením na wifi síť při změně PC Příloha(y)
    od Baader » 09 srp 2023 10:38 » v Sítě - hardware
    18
    3084
    od Baader Zobrazit poslední příspěvek
    10 srp 2023 14:16

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Google [Bot] a 3 hosti