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

Příspěvky uživatele

Skrýt buňky, které nechceš tisknout (sloupce, řádky)

Netuším jaký problém přináší
Sheets("List1").UsedRange.Rows.Count +1

Stejně tak netuším jak se zapisují jednotlivá data do příslušných řádků po sobě.

Celkově - dosti zmatený dotaz.
Nicméně Sheets("List1").UsedRange.Rows.Count +1 vrací hodnotu posledního použitého řádku zvýšenou o +1 - v tomto případě.

rd_zapis = Sheets("List1").rd_primarni.Rows.Count + 1 nedává vůbec žádný význam a takováto funkce není ve VBA platným příkazem. Proměnná rd_primarni je v tomto zápise zcela nesmylná - obsahuje číslo.

Hypertextový odkaz do skrytých listů nebude fungovat.

Chyba při čtení příspěvků.
Dne 10.8.2010 v 21:59 jsem mimojiné napsal:
Na konec makra UserForm pro zobrazení listu přidat:

Sheets(Potr_list).Visible = True ' zviditelnění listu
před

Sheets(Potr_list).Select ' výběr listu s danou potravinou
Cells(1, 1).Select ' přesun na buňku A1

a to jsi neudělal
Lon

Ano, nebo stačí upravit makro. Vyhodnotit list s názvem Menu a ten pak neskrývat.

Private Sub Worksheet_Activate()

Dim List_visit As String

List_visit = "Menu"

For pom = 1 To Sheets.Count
If Sheets(pom).Name = List_visit Then
Sheets(pom).Visible = True
Else
Sheets(pom).Visible = False
End If
Next
' sem přidat případné další listy pro zobrazení, nutné je aby alespoň jeden list byl zobrazen.
' Sheets("Název_listu").Visible = True
End Sub

Tak mi pošli soubor na mejl, pokud není vhodné jej zde uveřejňovat.

Celou situaci jsem popisoval. Problém může být v tom, že list Menu není listem 1.

Lon

Na konec makra UserForm pro zobrazení listu přidat:

Sheets(Potr_list).Visible = True ' zviditelnění listu

před

Sheets(Potr_list).Select ' výběr listu s danou potravinou
Cells(1, 1).Select ' přesun na buňku A1


Pokud by měl být zobrazen vždy pouze daný list (listy), pak by stačilo do hlavního listu vložit při jeho aktivaci kód pro skyrytí všech listů v sešitě a obnovu pouze vybraných.
Tedy:
do prvního listu ("Menu") vložit kód:

Private Sub Worksheet_Activate()

For pom = 2 To Sheets.Count
Sheets(pom).Visible = False
Next
' sem přidat případné další listy pro zobrazení, nutné je aby alespoň jeden list byl zobrazen.
' Sheets("Název_listu").Visible = True
End Sub


Lon

Samozřejmě zde možnost existuje.
Skrýt všechny "nepotřebné listy" a v případě zobrazení dané potraviny list zviditelnit. Po opuštění listu jej opět skrýt.

Lon

Tak tady to je.
Pozor není ošetřeno na případnou neexistenci listu. Zadávání názvu listu číselnou hodnotou lze, ale MUSÍ být uložena jako text. Doporučuji používat zkratky potravin.

Sice nevím jak moc dlouhý název potraviny se nevejde do označení listu, ale tohle to vyřeší.

Lon

Jak prosté:

Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False

NZ.
"Nespolupracujeme" poprvé ani naposled.

Lon

Opravené chyby!
Doplněna blbuvzdornost a nestandardní stavy.

Snad to bude makat líp

Lon

Pokud bude dodržena struktura v listu Seznam potravin a bude odpovídat název listu dané potravině, tak nikde nic měnit nemusíš.
Začátek je na buňce B5, konec - libovolný.
Sloupec B kategorie, sloupec C podkategorie, sloupec D potraviny.

Snad to je dostačující. Není to ošetřeno proti lidské blbosti!!!
Je to na rychlo, možná by to šlo i zlepšit, ale....

Lon

Zkus to znovu, protože máš poškozený excelový soubor.
Nelze některé části otevřít. Soubor vůbec uložit (jakkoliv).

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje