VBA - vymazat buňku při změně jiné buňky ve stejném řádku Vyřešeno

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

Moderátor: Mods_senior

Transmit
nováček
Příspěvky: 29
Registrován: leden 10
Pohlaví: Muž
Stav:
Offline

VBA - vymazat buňku při změně jiné buňky ve stejném řádku

Příspěvekod Transmit » 30 kvě 2015 18:11

Dobrý den,

věděl by někdo, jak vytvořit makro, které budu mazat obsahy buněk při změně obsahu jiné buňky na stejném řádku?
Např. pokud se změní buňka ve sloupci "A", vymaže se buňka ve sloupci "B" na stejném řádku.
Konkrétní buňka nesmí být podmínkou. Týká se jakékoliv změny - z prázdné na vyplněnou, změna již vyplněné a nebo vymazání obsahu.
Už nějaký den se snažím hledat přes klíčová slova na internetu a zatím neúspěšně.

Díky moc za jakoukoliv radu.
Štěpán

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: VBA - vymazat buňku při změně jiné buňky ve stejném řádk

Příspěvekod atari » 30 kvě 2015 22:50

Změna buňky je česky řečeno událost. Pokud dáš do vyhledávače "událost excel" tak ti vyjede mnoho odkazů, jak to udělat.
Kód při změně buňky ve sloupci A, smaže buňku se sloupci B. Kód si vlož do příslušného listu.


Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
zdroj = 1 'číslo sloupce který iniciuje změnu, A je sloupec č. 1 atd.
cil = 2 ' číslo sloupce kde se budou mazat buňky
    If Target.Column = zdroj Then Cells(Target.Row, cil).ClearContents
End Sub

Transmit
nováček
Příspěvky: 29
Registrován: leden 10
Pohlaví: Muž
Stav:
Offline

Re: VBA - vymazat buňku při změně jiné buňky ve stejném řádk  Vyřešeno

Příspěvekod Transmit » 31 kvě 2015 09:28

Díky, funguje to.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Outlook - složky v AJ, nelze vymazat Příloha(y)
    od janakailana » 03 bře 2024 08:21 » v Kancelářské balíky
    6
    776
    od janakailana Zobrazit poslední příspěvek
    03 bře 2024 11:16
  • Outlook - složky v AJ, nelze vymazat Příloha(y)
    od huklorcz » 15 bře 2024 22:20 » v Kancelářské balíky
    5
    666
    od mmmartin Zobrazit poslední příspěvek
    15 bře 2024 23:52
  • 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
    3028
    od Baader Zobrazit poslední příspěvek
    10 srp 2023 14:16
  • Aktivace Windows po změně disku Příloha(y)
    od JanC » 15 říj 2023 20:32 » v Windows 11, 10, 8...
    24
    3984
    od JanC Zobrazit poslední příspěvek
    08 lis 2023 08:19
  • PowerPoint osekává zvuk při změně snímku
    od Venus » 12 úno 2024 16:35 » v Kancelářské balíky
    2
    1122
    od Venus Zobrazit poslední příspěvek
    13 úno 2024 16:57

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů