< návrat zpět

MS Excel


Téma: Vyprázdnit obsah buňky a následující rss

Zaslal/a 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: xlsx43902_sesit3.xlsx (11kB, staženo 16x)
Zaslat odpověď >

Strana:  1 2   další »
#043937
avatar
Dobrý den,
mazání mezerníkem je dost nešťastný nápad(buňku tím nesmažete, ale vložíte do ní znak odpovídající mezeře). Raději používejte tlačítko Delete. V buňkách C, E musí být vzorec =když(A1="","",hodnota C) (místo hodnota C musíte vložit adresu buňky od kud sloupec C budete plnit)citovat
#043938
elninoslov
Samozrejme to ide aj makrom a to udalosťou "Worksheet_Change" daného listu. Zvládne to aj hromadnú zmenu.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, RNG As Range
Set Zmena = Intersect(Target, Columns(1))
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 RNG.ClearContents
End If
End Sub

Predpokladám ale rovnako ako Jirka78, že to tam ťaháte vzorcom.
Inak ako to môžete mazať medzerníkom, veď Vám to hneď hodí chybu v B, D, F. Takže musíte vidieť, že je niečo zle na takom spôsobe.citovat
#043940
avatar
Dobrý den pánové,
děkuji za za řešení.
Stále je se co učit a zlepšovat.
Uvědomuji si své chyby a špatné dovednosti v excelu sebevzdělávací metodou pokus omyl:)
pro:Jirka78
začal jsem používat delete:)rozdíl je f tom že místo křížků má čísla která nechci vidět výsledek je ještě húře čitelnější než dosud

pro:elninoslov
nejde mi to zprovoznit vkládal jsem makro do modulu poté i do listu stejný výsledek nevím co je špatněcitovat
#043942
elninoslov
Takže do A vkladáte hodnoty ručne, to je jasné.
B,D,F - vzorce.
1. Do C vkladáte hodnoty ručne ? Ak nie, aký je tam vzorec ?
2. Do E vkladáte hodnoty ručne ? Ak nie, aký je tam vzorec ?
3. Pri vymazaní A, nemá byť nič vidieť v C,E ?
4. Pri vymazaní A, nemá byť nič vidieť v B,D,F ?citovat
#043943
avatar
Ano je to jak píšete do buněk v sloupci A vkládám ručně
1. ano do buněk v sloupci C vkládám ručně
2. ano do buněk v sloupci E vkládám ručně
3.ano
4.Při vymazání A se smažou i B,C,D,E,F ale musí zůstat vzorce v B,D,F aby při dalším zadání do sloupců A,C,E vše fungovalo

bod 3. můžeme vypustit, podaří-li se bod 4. to je nejednodušší přehlednost
Děkuji moc za pomoccitovat
#043947
avatar
A čo tak bez makra?
Pri stlačenom CTRL kliknúť na bunky A, C, E a potom DELETE?

Alebo makrom
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Cells(Target.Row, 1).ClearContents
Cells(Target.Row, 3).ClearContents
Cells(Target.Row, 5).ClearContents
Application.EnableEvents = True
End If
End Sub
citovat
#043948
elninoslov
Zmenil som Vám vzorce, a pridal to makro. Normálne funguje.
Příloha: zip43948_43902_sesit3.zip (15kB, staženo 10x)
citovat
#043949
avatar
Dobrý den elninoslov,

Funguje to hurá to mám velikou radost.
To je nádhera děkuji moc panecitovat
#043952
avatar
Dobrý den,
rád bych tuto metodu používal v širším listě je možné použít a na jiné slouce?
V širším listě jsem přepsal vzorce a vložil makro tak jak popisujete zůstávají mi nesmazané buňky
potřebuji uplatnit stejné pravidlo ale na jiné sloupce

vymazání C se smažou D,E,F,G,H ale musí zůstat vzorce D,F,H

další
při vymazání I se smažou J,K,L,M,N ale musí zůstat vzorce J,L,N

další
při vymazání P se smažou Q,R,S,T,U ale musí zůstat vzorce Q,S,U

další
při vymazání V se smažou W,X,Y,Z,AA ale musí zůstat vzorce W,Y,AA

Děkuji předem moccitovat
#043953
avatar
ač VBA neovládám tak už jen prostou úvahou jsou v kódu
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

Application.EnableEvents = False

Cells(Target.Row, 1).ClearContents

Cells(Target.Row, 3).ClearContents

Cells(Target.Row, 5).ClearContents

Application.EnableEvents = True

End If

End Sub


číselně definované buňky pro smazání (sloupec-column; řádek-row) takže bych si zkusil doplnit to co potřebujetecitovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

VBA macro kopírovanie oblasti

elninoslov • 21.8. 0:23

VBA macro kopírovanie oblasti

marjankaj • 20.8. 22:23

VBA macro kopírovanie oblasti

Anonym • 20.8. 18:45

Denní plán směn - poslední úpravy

pk-wall • 20.8. 9:35

Denní plán směn - poslední úpravy

elninoslov • 20.8. 9:30

Denní plán směn - poslední úpravy

pk-wall • 20.8. 7:56

Počet incidentů v roce

elninoslov • 19.8. 14:06