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

Příspěvky uživatele

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.

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.

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

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

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 :)

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse