Napr. pomocou filtra.
Příloha: 
47097_vzor_filter.xlsx (24kB, staženo 24x)
citovat47097_vzor_filter.xlsx (24kB, staženo 24x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Skrytí řádku v Excelu
JÁ TI MOC DĚKUJI ZA TVOJI POMOC.citovat
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 27x)
47096_vzor.xlsx (26kB, staženo 27x)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ěkujicitovat
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ěkujicitovat
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"citovat
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"citovat
Do C25 napíši text a zobrazí se následující řádek.
Příloha: 
47105_47096_vzor.zip (26kB, staženo 30x)
citovat47105_47096_vzor.zip (26kB, staženo 30x)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.citovat
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.citovat
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.citovatTiež 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.citovat
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.citovat
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