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

MS Excel

Téma: makro Excel 2

Zaslal/a lachim 30.3.2010 16:42

Má toto makro, které se spouští tlačítkem v listu Excelu:
Sub FILTR_ZOBRAZITVSE()
ActiveSheet.ShowAllData
End Sub
potřebuju, aby se zobrazil MsgBox "Vše zobrazeno" v případě že už nejde makro spustit, protože je jakoby už provedena akce, kterou to makro má udělat - nevím jak to tam správně přidat do toho makra.
děkuji

Jméno
Kontrola
Text
	Ukázka

---

Poki(30.3.2010 16:50)#001400

co takhle:

Sub FILTR_ZOBRAZITVSE()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
MsgBox "Vše je zobrazeno", vbInformation
Else
MsgBox "Toto lze provést jen při aktivním filtru!", vbCritical
End If
End Subcitovat

marcinko.jan(31.3.2010 8:01)#001403

No pokud jde jen o to zobrazeni všech filtrovaných sloupců, není třeba makro.. Takže pokud toto není jen nějakou částí sofistikovanějšího makra zcala Vám postačí:

Data/filtr/zobrazit vše

Nebo si to hodit na panel nástrojů jako "tlačítko"

Pravej klik na panel nástrojů/vlastní/záložka příkazy/data/zobrazit vše a drag&drop přesunout na panel nástrojů

Takle to mám nastaveno a proč nevyužít možnosti excelu?citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse