MS Excel

Ahojky. Použil jsem makro od Pokiho a pracovalo v pořádku. Teď jsem si vytvořil svoji tabulku a použil taktéž toto makro a nemohu u tohoto makra snížit počet aktivních řádků pro činnost makra. Jsou zde v jednom listě dvě makra které vyhledávají dle určitých podmínek.
Nemám s makry žádné zkušenosti a tak pouze zkouším.
Jsem již starší generace a tak se omlouvám za případné základní neznalosti.
Budu vděčný za každou radu abych se přiučil.

Pepča

Zaslat odpověď >

Poki(29.7.2011 9:31)#005625

Precetl jsem ten dotaz asi 3x, ale proste jsem nepochopil, co potrebujete - zkuste to napsat konkretne...citovat

Roman(29.7.2011 10:07)#005629

Také já jsem to četl 5x a nechápal, až testem jsem zjistil, že to trvá dlouho. Pokud je problém v délce tak jsou dvě řešení:
1) snížit počet předvyplněných řádku "X" z 993 na nějaké jiné číslo menší (odstranit nepotřebné řádky), pokud jich bude tolik tak to nebude úspěšná metoda.

Nebo použít rychlejší funkce

2) změnít kody ve skrýt na:
Sub skryt()
Dim i As Long
Set Obl = Rows(4)
For i = 5 To Cells(1000, 3).End(xlUp).Row
If Cells(i, 3).Value = "X" Then
Set Obl = Application.Union(Obl, Rows(i))
End If
Next i
Obl.EntireRow.Hidden = True
Rows(Cells(4, 5).End(xlDown).Row + 2 & ":" & Cells(Cells(4, 5).End(xlDown).Row + 2, 3).End(xlDown).Row - 2).Hidden = True
End Subcitovat

pepča(31.7.2011 20:54)#005640

Děkuji za odpověď. Posílám ten soubor s omezením počtu řádků v makru na 500 a zde je výsledek. Omlouvám se za svoji neznalost,ale potřebuji vše vysvětlit pokus - chyba.Myslel jsem si , že za Cells v závorce určuji počet řádků které makro prohledává. Rád se učím nové věci a je to pro mne lepší než hry.Pokud najdete chybu tak mě prosím napište kde ji dělám.

Děkuji za všechny odpovědi.

Pepča

Příloha: rar

5640_pokus.rar (168kB, staženo 23x)

citovat

Téma: Odstranění řádků

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje