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

Zaslat odpověď >

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)

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.