Filtr nebo makro?
Filtr nebo makro?
ahoj, potrebovala bych poradit s nasledujicim problemem: mam v excelu tabulku na vypocet ukolove mzdy, takze nazev - kč/ks - počet vyrobenych kusu - funkce počet * kč/ks, a potrebovala bych docilit toho, aby se, napr. na druhy list, zkopirovaly jenom radky s nenulovym vysledkem..
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9504
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Do cílové buňky na druhém listu dáš: +když(zdrojovábuňka=0;"";zdrojovábuňka). zdrojovábuňka je souřadnicové označení buňky (např. b2), ve které je přenášené číslo.
Naposledy upravil(a) mmmartin dne 27 říj 2006 13:19, celkem upraveno 1 x.
dekuju, tamto z jsem vyresila filtrem a kaslu na to, ale horsi je, ze bych potrebovala nektery bunky zamknout, coz jsem vyresila vyjmutim nekolika bunek ktery muzou zustat po zamknuti listu otevreny, jenze to mi pak zase nefacha filtrovani, i kdyz mam filtrovany bunky odemknuty Daji zamknout bunky nejak jednotlive?
Maker se bát nemusíš. Podívej, jak stručně se to dá vyřešit:
První makro (FiltrZero) odemkne list, skryje všechny řádky s nulovým výsledkem a zamkne zase list. Stačí abys jenom do Range("D2") napsala místo D2 první buňku s výsledkem, podle tvé tabulky.
Druhé makro (CancelFilter) zase odemkne list, zobrazí všechny skryté řádky a zase list zamkne.
Stačí, aby sis přes panel Formuláře vložila vedle tabulky 2 tlačítka, každému přiřadila jedno z maker, a pak už bude celá záležitost vyřízená jedním klikem na příslušné tlačítko.
Kód: Vybrat vše
Sub FiltrZero()
ActiveSheet.Unprotect
Set Start = Range("D2")
For Each Mzda In Range(Start, Start.End(xlDown))
If Mzda.Value = 0 Then Mzda.EntireRow.Hidden = True
Next Mzda
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub CancelFilter()
ActiveSheet.Unprotect
Cells.EntireRow.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
První makro (FiltrZero) odemkne list, skryje všechny řádky s nulovým výsledkem a zamkne zase list. Stačí abys jenom do Range("D2") napsala místo D2 první buňku s výsledkem, podle tvé tabulky.
Druhé makro (CancelFilter) zase odemkne list, zobrazí všechny skryté řádky a zase list zamkne.
Stačí, aby sis přes panel Formuláře vložila vedle tabulky 2 tlačítka, každému přiřadila jedno z maker, a pak už bude celá záležitost vyřízená jedním klikem na příslušné tlačítko.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2091
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
-
Excel - filtr hyperlinku na druhý list Příloha(y)
od mikiracan » 06 čer 2023 11:49 » v Kancelářské balíky - 2
- 2630
-
od mikiracan
Zobrazit poslední příspěvek
18 srp 2023 10:17
-
-
- 9
- 1126
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů