Napr. pomocou filtra.
Příloha: 
47097_vzor_filter.xlsx (24kB, staženo 31x)
47097_vzor_filter.xlsx (24kB, staženo 31x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Skrytí řádku v Excelu
JÁ TI MOC DĚKUJI ZA TVOJI POMOC.
MS Excel
Téma: Skrytí řádku v Excelu 
Zaslal/a Mati 28.6.2020 8:53
Dobrý den,
měl bych dotaz jak můžu v Excelu skrýt část nebo celí řádek.
Chtěl bych aby když v řádku C42:P42 není žádná položka, aby se skryl.
V příloze je vzor.
Předem Vám děkuji za Vaši pomoc.
Příloha: 47096_vzor.xlsx (26kB, staženo 32x)
47096_vzor.xlsx (26kB, staženo 32x)Tady se můžete inspirovat:
http://wall.cz/index.php?m=topic&id=16116&page=1#post-16130
http://wall.cz/index.php?m=topic&id=16116&page=1#post-16130
Já používám něco takého:
Private Sub Worksheet_Change(ByVal Target As Range)
Set aCell = Range("A26")
If Not Intersect(Target, aCell) Is Nothing Then
Range("B28:AS36").EntireRow.Hidden = aCell = "1"
End If
End Sub
JENOMŽE TO SKRIJE VŠECHNY ŘÁDKY.
POTŘEBUJI, ABY KDYŽ JE JEDEN PLNY ABY SE ZOBRAZIL DALŠÍ ŘÁDEK.
Když list zamknu nejde to.
Děkuji
Private Sub Worksheet_Change(ByVal Target As Range)
Set aCell = Range("A26")
If Not Intersect(Target, aCell) Is Nothing Then
Range("B28:AS36").EntireRow.Hidden = aCell = "1"
End If
End Sub
JENOMŽE TO SKRIJE VŠECHNY ŘÁDKY.
POTŘEBUJI, ABY KDYŽ JE JEDEN PLNY ABY SE ZOBRAZIL DALŠÍ ŘÁDEK.
Když list zamknu nejde to.
Děkuji
Tak v prvním příspěvku chcete skrýt, teď zase zobrazit...
Já bych použil něco takového:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 22 And Target.Row < 43 Then
ActiveSheet.Unprotect 'Password:="1234" - pokud je list zaheslovaný
Range(Target.Row + 1 & ":" & Target.Row + 1).EntireRow.Hidden = False
ActiveSheet.Protect 'Password:="1234"
End If
End Sub
Předpokládám, že na začátku bude zobrazen jen řádek 23. Po zápisu do sloupce C se zobrazí následující řádek.
Pokud ten poslední prázdný chcete skrýt, tak hlavně musíte vědět, kdy už nebudete zapisovat a nebo si na to udělat tlačítko.
Ten kód se samozřejmě vloží do listu "Faktura"
Já bych použil něco takového:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 22 And Target.Row < 43 Then
ActiveSheet.Unprotect 'Password:="1234" - pokud je list zaheslovaný
Range(Target.Row + 1 & ":" & Target.Row + 1).EntireRow.Hidden = False
ActiveSheet.Protect 'Password:="1234"
End If
End Sub
Předpokládám, že na začátku bude zobrazen jen řádek 23. Po zápisu do sloupce C se zobrazí následující řádek.
Pokud ten poslední prázdný chcete skrýt, tak hlavně musíte vědět, kdy už nebudete zapisovat a nebo si na to udělat tlačítko.
Ten kód se samozřejmě vloží do listu "Faktura"
Zadal jsem funkci do listu Faktury ale nejde to?
Můžeš mi prosím poslat vzor.
Děkuji
Můžeš mi prosím poslat vzor.
Děkuji
Do C25 napíši text a zobrazí se následující řádek.
Příloha: 
47105_47096_vzor.zip (26kB, staženo 36x)
47105_47096_vzor.zip (26kB, staženo 36x)Jiří497 napsal/a:
Do C25 napíši text a zobrazí se následující řádek.Příloha: 47105_47096_vzor.zip (26kB, staženo 1x)
JÁ TI MOC DĚKUJI ZA TVOJI POMOC.
No, rád jsem pomohl.
Zadání sice bylo na skrývání a výsledkem je zobrazování
, ale když jsi spokojený, tak je to fajn. 
- co lepšího si takhle v neděli k večeru může člověk přát.
Zadání sice bylo na skrývání a výsledkem je zobrazování
, ale když jsi spokojený, tak je to fajn. - co lepšího si takhle v neděli k večeru může člověk přát.Tiež sa pripojím s prosbou.
Skúšal som to a aj našiel nejaké súbory s podobným problémom ale nič. Nakoniec som sa dostal k tomuto.
Sub skry()
'
' skry Makro
Rows("10:15").Hidden = True
End Sub
Sub Vsetko()
Rows("10:15").EntireRow.Hidden = False
End Sub
Do skry by som ešte potreboval podmienku, že keď bude prázdna bunka napr. A11 a A12 tak po aktivovaní makra sa tieto riadky schovajú.
Ďakujem vopred za pomoc.
Skúšal som to a aj našiel nejaké súbory s podobným problémom ale nič. Nakoniec som sa dostal k tomuto.
Sub skry()
'
' skry Makro
Rows("10:15").Hidden = True
End Sub
Sub Vsetko()
Rows("10:15").EntireRow.Hidden = False
End Sub
Do skry by som ešte potreboval podmienku, že keď bude prázdna bunka napr. A11 a A12 tak po aktivovaní makra sa tieto riadky schovajú.
Ďakujem vopred za pomoc.
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články