Příspěvky uživatele


< návrat zpět

skrytí řádků v makru podle hodnoty (6.2.2014 10:29)

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.

skrytí řádků v makru podle hodnoty (6.2.2014 10:23)

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.

skrytí řádků v makru podle hodnoty (6.2.2014 9:28)

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..

skrytí řádků v makru podle hodnoty (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

Makra a uzamčené listy (17.1.2014 13:23)

Mně to funguje úplně bez chyby, takže moc děkuju!! Jediná drobnost, musím zamknout celý sešit a ne list, když zamknu list, tak to není aktivní..

A díky za rady s end, je to moje první makro v životě, takže google a pokus omyl :)

Makra a uzamčené listy (17.1.2014 10:42)

Dobrý den,

rád bych Vás poprosil o radu v makrech. Mám soubor, ve kterém prostřednictvím ActiveX prvku (Checkbox) skrývám a odkrývám řádky. Potřeboval bych ale zároveň zamknout list tak, aby se mi v zamčeném listu po kliknutí na checkbox řádky odkryly. (v nezamčeném listu mi to funguje, ale když ho uzamknu tak mi to píše chybu, že není možné nastavit vlastnost Hidden třídy Range)

Makro mám zapsané takto:

Private Sub CheckBox1_Click()

'Skrýt řádky

If CheckBox1.Value = True Then

CheckBox1.Caption = "Zobrazit"

Rows("3:25").EntireRow.Hidden = True

End

End If

'Zobrazit řádky

If CheckBox1.Value = False Then

CheckBox1.Caption = "Skrýt"

Rows("3:25").EntireRow.Hidden = False

End

End If

End Sub

Díky mnohokrát za odpověď


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