to Veny: mám ve zvyku než požádám o pomoc vyzkoušet své všechny možnosti a schopnosti myšlenka marjankaje nefunguje jak potřebuji
nicméně vyzkouším co píšete Děkujicitovat
nicméně vyzkouším co píšete Děkujicitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vyprázdnit obsah buňky a následující
MS Excel
Téma: Vyprázdnit obsah buňky a následující 
Zaslal/a nosekpav 8.8.2019 13:35
Dobrý den nevím si rady
označím-li jakoukoli buňku ve sloupci A, mezerníkem smažu obsah potřebuji aby se po té smazal obsah buněk C,E v řádku
vyprázdnění obsahu buněk A,C,E najednou zde je soubor v příloze
Děkuji za pomoc
Příloha: 
43902_sesit3.xlsx (11kB, staženo 41x)
43902_sesit3.xlsx (11kB, staženo 41x)
Strana: « předchozí 1
2
já to zkoušel taky a jelikož alespoň u mě to funguje dle požadavku (při vymazání buňky A smaže i C a E- vzorce v ostatních zůstanou), napsal jsem to co jsem napsal.citovat
Takéto rozšírenie, keď sa mažú vždy bunky o 2 a o 4 vpravo od kontrolovaného stĺpca, nieje problém. Tam kde sú vzorce, a majú tam ostať, nehovoríme, že sa zmaže ich výsledok, ale že sa skryje (!) - vzorcom. Použite na všetky dotknuté vzorcové stĺpce, ktoré majú skrývať hodnotu, podmienku IF/KDYŽ, ako bola prezentovaná ukážka v predošlej prílohe.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, RNG As Range
Set Zmena = Intersect(Target, Union(Columns(3), Columns(9), Columns(16), Columns(22)))
If Not Zmena Is Nothing Then
For Each Bunka In Zmena.Cells
If IsEmpty(Bunka) Then
If RNG Is Nothing Then Set RNG = Union(Bunka.Offset(0, 2), Bunka.Offset(0, 4)) Else Set RNG = Union(RNG, Bunka.Offset(0, 2), Bunka.Offset(0, 4))
End If
Next Bunka
If Not RNG Is Nothing Then
Application.EnableEvents = False
RNG.ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Dá sa spraviť aj úplne variabilné makro, kde si v ňom zadáte do poľa parametrov kontrolované stĺpce a k nim mazané stĺpce (ľubovoľné množstvo a umiestnenie voči kontrolovanej bunke). ľahko doplniteľné a editovateľné. Ak to treba tak, písnite, možno večer to spráskam.citovat
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, RNG As Range
Set Zmena = Intersect(Target, Union(Columns(3), Columns(9), Columns(16), Columns(22)))
If Not Zmena Is Nothing Then
For Each Bunka In Zmena.Cells
If IsEmpty(Bunka) Then
If RNG Is Nothing Then Set RNG = Union(Bunka.Offset(0, 2), Bunka.Offset(0, 4)) Else Set RNG = Union(RNG, Bunka.Offset(0, 2), Bunka.Offset(0, 4))
End If
Next Bunka
If Not RNG Is Nothing Then
Application.EnableEvents = False
RNG.ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Dá sa spraviť aj úplne variabilné makro, kde si v ňom zadáte do poľa parametrov kontrolované stĺpce a k nim mazané stĺpce (ľubovoľné množstvo a umiestnenie voči kontrolovanej bunke). ľahko doplniteľné a editovateľné. Ak to treba tak, písnite, možno večer to spráskam.citovat
Dobrý den elninoslov,
chci šetřit váš drahocenný čas takto je to naprosto dostačující a jsem velmi rád za pomoc učím se s každým zádrhelem a slibuji lepší terminologii:)
Děkuji za splněné přání
Vznikla ještě jedna trable se zobrazením čísla dám to do nového vlákna.citovat
chci šetřit váš drahocenný čas takto je to naprosto dostačující a jsem velmi rád za pomoc učím se s každým zádrhelem a slibuji lepší terminologii:)
Děkuji za splněné přání
Vznikla ještě jedna trable se zobrazením čísla dám to do nového vlákna.citovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články