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

Příspěvky uživatele

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

Asi jo.

Pokud máš MSO 2007 tak v menu Korespondence klikni myší na Pravidla. Třeba to bude jasné.

Lon

Netuším co máš na mysli
.. jen nevím jak tam vkládáš Další záznam? To tam píšeš ručně nebo jak?

Okno s upozorněním, je "součástí" hromadné korespondence. Říká Ti, že tam existuje propojení na jiný dokument. Bude se ukazovat pokaždé, nechápu co Ti na tom vadí. Jedno kliknutí myší navíc?

Lon

Tak co jsi vykoumal?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse