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

MS Excel

Téma: Smazání problémových buněk

Zaslal/a Petr-J 31.10.2013 11:01

Ahoj.
Mám dotaz. Může mi někdo poradit kod, ktery smaže všechny řádky, na kterých je napsáno

#NENÍ_K_DISPOZICI


Je to výsledek vzorců, kde hledám hodnoty na základě kriteríí. Pokud hodnota je v seznamu - je u ní číslo a tu potřebuji nechat. Pokud není v seznamu, vyskočí tam právě #NENÍ_K_DISPOZICI. A tyto řádky bych pak potřeboval odstranit, což nějak nejde. Poupravil jsem kod, aby se mi to vložilo jako text.

Takový zoufalý pokus dál byl, že jsem zapl filtr a dal pryč tento text. ale z toho pak musim dělat tabulku a ta mi zobrazuje i ty skrytý. To nechci.

Měl jsem přes záznam makra nahrané nahrazení - tedy #NENÍ_K_DISPOZICI nahradit 0 a to kde je 0 pak smazat.ale po druhém či třetím spuštění makra kod tento řádek nějak ignoruje a taky to nefunguje.

děkuji za pomoc.

Zaslat odpověď >

---

Palooo(31.10.2013 11:05)#015976

to ted pisu z brucha .| nemam moznost ist do excelu :)

asi takto:
for x = 2000000 to 1 step - 1
if cells(x,1) = "#NENÍ_K_DISPOZICI" then rows(x).delete
nextcitovat

Petr-J(31.10.2013 12:40)#015980

Bohužel mám i s tímto problém. Stále bud undefined object nebo type mismatch. Na ten type sem vyzkousel Long, Variant i Integercitovat

Palooo(31.10.2013 12:44)#015982

ja som to skusal ted u seba a fungujeto

prilozte prilohu neh viem v com je problem

Příloha: 15982_test.zip (13kB, staženo 16x)

citovat

kp57(31.10.2013 17:11)#015984

If IsError(Cells(x, 1)) Then Rows(x).Deletecitovat

eLCHa(1.11.2013 6:04)#015995

Palooo napsal/a:

to ted pisu z brucha .| nemam moznost ist do excelu :)

asi takto:
for x = 2000000 to 1 step - 1
if cells(x,1) = "#NENÍ_K_DISPOZICI" then rows(x).delete
next

i když z brucha, ale tohle nemyslíte vážně, že ne ;)citovat

Petr-J(1.11.2013 10:04)#015997

Zde je ukázkový soubor..zkrátka to nějak nejde http://uloz.to/xEqeLASA/delete-xlsx

ps. sem mi nějak ta příloha nejde vložit.

odstranit ty řádky kde je "#NENÍ_K_DISPOZICI"citovat

eLCHa(1.11.2013 10:19)#015998

Musíte být registrován a musíte vložit v povoleném formátu (nejlépe zip)

range(XY).specialcells(xlCellTypeFormulas,xlerrors).entirerow.delete
taky z bruchacitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse