Re: Excel makro if e23=0 then

caf, pisem z ruky a uz som sa v exceli dlho nehral, akze ked bude chyba ozvi
sa.
'----------------cut ----------------
for each mujSesit in activeworkbook.sheets
if instr(mujSesit.name,"VZ") > 0 or instr(mujSesit.name,"VZ") > 0 then
if mujSesit.range("E2").value = 0 then
mujSesit.visible = false
end if
end if
next
'------------------end cut ---------------------
On 2/15/06, Simona Trneckova <strnecka@gmail.com> wrote:
>
> Ahoj
>
> prosim pekne o radu.
>
> Mam excel2003 a v nem mam vytvorenou workbook. V ni je cca 60 sheetu,
> ktere
> podle toho, jak to vyjde, maji ve stejne bunce odkaz na bunku s vypoctem.
> Vysledkem je bud prazdne pole (neboli nula, ktera neni videt) a nebo
> nejaky
> vysledek v korunach.
>
> No a ja bych chtela, aby po zpracovani byly viditelne jen sheety, u
> kterych
> neni vysledkem nula.
>
> Zadala jsem tedy:
>
> Sheets("10TZ").Select
> If E23 = 0 Then ActiveWindow.SelectedSheets.Visible = False
> Sheets("12TZ").Select
> If E23 = 0 Then ActiveWindow.SelectedSheets.Visible = False
> Sheets("13TZ").Select
> If E23 = 0 Then ActiveWindow.SelectedSheets.Visible = False
> Sheets("14TZ").Select
> If E23 = 0 Then ActiveWindow.SelectedSheets.Visible = False
>
> a tak porad dal (11TZ neexistuje) na celych 60 sheetu.
>
> Jenze kdyz to makro odstartuji F5, tak se schovaji vsechny sesity.
>
> Kdyz jsem se to snazila krokovat F8, tak jsem zjistila, ze Excel povazuje
> za
> splnenou podminku, i kdyz je v poli E23 vysledek vzorne vyssi nez nula.
>
> Prosim pekne, nenapada Vas nekoho neco, jak to lepe napsat.
> Jenom to nesmi byt moc slozite, protoze jsem samouk a makra se ucim/pisu
> spis tak, ze to nejprve nahraju a pak nejak opisu..... To je asi i videt z
> tohoto makra, ale pomoci si nejaky prikazem, ktery by zajistil aplikaci na
> vsechny sheety, ktere maji v nazvu "TZ" nebo "VC" neumim.
>
>
> diky za vsechny rady
>
> Simona
>
>


--
AleX