< návrat zpět

MS Excel

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

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
avatar
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
avatar
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
avatar
ja som to skusal ted u seba a fungujeto

prilozte prilohu neh viem v com je problem
Příloha: zip15982_test.zip (13kB, staženo 16x)
citovat
kp57(31.10.2013 17:11)#015984
avatar
If IsError(Cells(x, 1)) Then Rows(x).Deletecitovat
icon eLCHa(1.11.2013 6:04)#015995
eLCHa

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
avatar
Zde je ukázkový soubor..zkrátka to nějak nejde 7 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
icon eLCHa(1.11.2013 10:19)#015998
eLCHa
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)
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