• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

Zaslal/a pepč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ěď >

---

elninoslov(6.12.2023 7:58)#055758

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

pepča(6.12.2023 9:32)#055759

Č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

elninoslov(6.12.2023 10:22)#055760

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: 55760_vymazat-smeny.zip (71kB, staženo 2x)

citovat

pepča(6.12.2023 20:57)#055762

Č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 citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse