< návrat zpět

MS Excel


Téma: Vymazat buňky v následujících listech rss

Zaslal/a 5.12.2023 23:01

Čauky.
Potřeboval bych upravit makro stažené na tomto fóru:
Sub vymazatsměny()
jmeno = InputBox("Zadej Jméno", "Jméno pro smazání záznamů:", "")
For a = Cells(Rows.Count, 50).End(xlUp).Row To 1 Step -1
If Cells(a, 50) = jmeno Then Cells(a, 50).EntireRow.ClearContents
Next a
MsgBox "Vymazáno", vbInformation, "Přístup povolen"
Exit Sub
End Sub
Toto makro maže celý řádek , ale potřebuji aby vymazalo data jen ve sloupci E až AI které obsahují ve sloupci AX vyhledávané slovo. Makro se bude spouštět tlačítkem v každém listu. Listy jsou pojmenovány leden až prosinec. Pokud aktivuji tlačítko v lednu potřebuji, aby se vymazala data (sloupec E až AI) z příslušných listů leden až prosinec. Pokud např. aktivuji tlačítko v listu srpen tak srpen až prosinec, hodnoty buněk předcházejících měsíců musí být zachovány.Ještě by bylo vhodné pokud se zadá špatná hodnota (jméno) do vyhledávače, aby makro nahlásilo , že se jedná o chybu.
Děkuji
Pepča
Děkuji za pomoc.

Zaslat odpověď >

#055758
elninoslov
Dáta sú od 1. riadku? Nie je tam hlavička? Jedná sa o obyč. tabuľky alebo sú to objekty Tabuľky (ListObject)? Mená máte v nejakom zozname, voči ktorému ma prebehnúť kontrola, alebo iba všeobecná kontrola porovnávaním text->text? Rozdiel je ohromný, pri zozname sa skontroluje najskôr existencia v zozname až potom prehľadáva listy. Naopak pri text-text sa prehľadávajú hneď dáta v listoch. Názvy mesiacov sú vždy v CZ? Sú dáta filtrované?citovat
#055759
avatar
Čauky.
Jedná se o obyčejné tabulky bez hlavičky.Musí se porovnat text - text.Názvy listů jsou vždy v CZ. Data nejsou filtrované.Jména nejsou v seznamu a mohou se měnit.
Děkuji
Pepčacitovat
#055760
elninoslov
V makre je na testovacie účely tento riadok
If Not DEL Is Nothing Then WS.Activate: DEL.Select, ktorý iba označí bunky. Pre istotu. Skontrolujte si, či to sedí.

Ak je to to, čo ste chcel, tak tento riadok zmažte (alebo deaktivujte pridaním apostrofu na začiatok) a aktivujte ten mazací riadok za ním (vymazaním apostrofu na začiatku)
If Not DEL Is Nothing Then DEL.ClearContents
Příloha: zip55760_vymazat-smeny.zip (71kB, staženo 2x)
citovat
#055762
avatar
Čauky.
Je to excelentní. Přesně to co jsem potřeboval. Jsi prostě borec. Mockrát děkuji za zpracování a bleskovou rychlost.
Ještě jednou moc díky.
Pepča 1 1 1citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00