< návrat zpět

MS Excel

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

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
avatar
a co takto?

i = CInt(Range("E1"))
ActiveSheet.Rows(i + 7 & ":14").EntireRow.Hidden = Truecitovat
malyv(6.2.2014 9:28)#017699
avatar
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
icon eLCHa(6.2.2014 10:01)#017700
eLCHa
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
avatar
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
avatar
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)
avatar\n

Menu

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.

On-line nástroje