MS Excel

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

Zaslat odpověď >

Strana: 1 2 další »

Jirka78(13.8.2019 14:14)#043937

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

elninoslov(13.8.2019 15:07)#043938

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

Anonym(14.8.2019 9:25)#043940

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

elninoslov(14.8.2019 11:22)#043942

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

nosekpav(14.8.2019 11:56)#043943

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

marjankaj(14.8.2019 15:18)#043947

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 Subcitovat

elninoslov(14.8.2019 16:43)#043948

Zmenil som Vám vzorce, a pridal to makro. Normálne funguje.

Příloha: zip

43948_43902_sesit3.zip (15kB, staženo 40x)

citovat

nosekpav(14.8.2019 18:43)#043949

Dobrý den elninoslov,

Funguje to hurá to mám velikou radost.
To je nádhera děkuji moc panecitovat

nosekpav(15.8.2019 8:51)#043952

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

veny(15.8.2019 10:00)#043953

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ší »

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje