• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: skrytí řádků v makru podle hodnoty

Zaslal/a malyv 4.2.2014 16:20

Ahoj,

potřeboval bych poradit.

Mám buňku E1 kam se mi budou vpisovat hodnoty od 1 do cca 20 a potřeboval bych podle hodnoty skrývat a odkrývat přebytečné řádky. (Mám to totiž provázené s jinými sheety a potřebuji tu provázanost nechat). Nebo-li, bude-li v E1 číslo 4 zůstanou mi jen 4 přednastavené výpočtové řádky atd.

Mám toto, ale moc mi to nefunguje:

Private Sub E1()

ActiveSheet.Unprotect "MCA"
If Range("E1") = 1 Then
ActiveSheet.Rows("8:14").EntireRow.Hidden = True
Else
If Range("E1") = 2 Then
ActiveSheet.Rows("9:14").EntireRow.Hidden = True
Else
If Range("E1") = 3 Then
ActiveSheet.Rows("10:14").EntireRow.Hidden = True
ActiveSheet.Protect "MCA"
End If
End If
End If

End Sub

Díky moc za radu!

Víťa

Zaslat odpověď >

---

Palooo(4.2.2014 16:27)#017667

a co takto?

i = CInt(Range("E1"))
ActiveSheet.Rows(i + 7 & ":14").EntireRow.Hidden = Truecitovat

malyv(6.2.2014 9:28)#017699

Nefunguje, musí to být ale něco jednoduchého..

Když se mi z jiného listu přepíše do buňky E1 číslo 5, tak poteřbuji, aby mi zůstalo 5 řádků v předem připravené tabulce, když číslo 4 tak 4 řádky atd.

S tím i je to určitě lepší řešení, ale nechce mi to chodit..citovat

eLCHa(6.2.2014 10:01)#017700

Co znamená z jiného listu
Když se mi z jiného listu přepíše do buňky E1 číslo 5

@Palooo
asi byste nejdříve měl odkrýt skrytéRows("8:14").EntireRow.Hidden = false
Rows(7 + Range("E1").value & ":14").EntireRow.Hidden = trueDo buňky "E1" dejte ověření, že musí být celé číslo od 1 do Xcitovat

malyv(6.2.2014 10:23)#017701

Mno na listu A se zadávají údaje pro výpočet spotřeby a uvádějí se potřebné přílohy..podle uvedeného počtu příloh (tj. cca od 1 do 10) potřebuji, aby se mi v předem připravené tabulce v jiném listu zobrazil právě stejný počet řádků (tj. aby se mi ostatní přebytečné řádky skryly). Udělal jsem to tak, že E1 je součtový kontrolní řádek (kde se uvádí počet příloh) a pak do řádků se ty přílohy popíší (+ zadané informace se poté dále využívají v dalších listech)..pro kontrolu se to potom tiskne, takže nemůže dojít k chybě, že někdo na nějakou přílohy, či výpočet zapomene.citovat

malyv(6.2.2014 10:29)#017702

Díky moc za radu!!

Už mi to funguje, ale nespouští se mi makro automaticky.. musím otevřít zdrojový kód a přehrát to.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse