< návrat zpět

MS Excel

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

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
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
pepča(6.12.2023 9:32)#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
elninoslov(6.12.2023 10:22)#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 3x)
citovat
pepča(6.12.2023 20:57)#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

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.

On-line nástroje