MS Excel

Zdravím vsechny, chci se zeptat existuje nejaky kod VBA ktery kdyz vlozim do jakyhokoli makra v tlacitku co nahraju tak danou akci vrati zpet do puvodniho stavu. (Prvni klik na tlacitko spusti dany makro, druhy klik na stejne tlacitko vrati vdzy danou akci do puvodniho stavu). Je to vubec mozne? DÍKY

Zaslat odpověď >

marjankaj(8.5.2016 14:22)#031437

No asi je lepšie mať dve makrá. Asi takto.

Sub uloz()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\pomoc.xlsm"
Application.DisplayAlerts = True
End Sub
Sub nahrajZpet()
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Users\Documents\pomoc.xlsm"
Application.DisplayAlerts = True
End Sub

Ale asi sám uznáš, že je jednoduchšie súbor pred "úpravami" najprv uložiť a po nevydarených úpravách zase znovu otvoriť.citovat

Merlin99(8.5.2016 19:57)#031441

marjankaj : díky rozumim ale spis jsem to myslel tak ze napriklad nahraju makro na nejakou akci kde se mi zobrazi oblast treba (prvnim kliknutim) a pak se tato akce vrati do puvodniho stavu (druhy kliknuti na stejne tlacitko).
Hledam nejakey univerzali kod kterej bych jen dokopiroval vzdy za dany makro a vse by vzdy takto fungovalo...citovat

marjankaj(8.5.2016 21:14)#031442

No nie je to ošetrené na chyby v tvojom makre. Ale celkovo si myslím, že to čo chceš je trochu pofidérne.

Sub obnov()
Static klik As Boolean
Application.DisplayAlerts = False
If klik Then
Workbooks.Open Filename:="C:\Users\Documents\pomoc.xlsm"

Else
ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\pomoc.xlsm"
Call tvoje_makro
End If

klik = Not klik
Application.DisplayAlerts = True
End Subcitovat

Merlin99(8.5.2016 22:29)#031443

Děkuji ale nejak to nemuzu rozbehnout. Ale mas pravdu ze je to trochu pofiderni makro ale na dost ukonu si myslim ze je super a mit na tlacitku i zpetnou akci je uzivatelsky pohodlny..muj pokus v priloze

Příloha: rar

31443_pokus.rar (15kB, staženo 25x)

citovat

marjankaj(8.5.2016 23:10)#031444

No čo už. Keď nevieš ani makro skopírovať.
Použi CTRL+C a potom CTRL+Vcitovat

mona123(9.5.2016 11:44)#031456

k cemu je dobre ve vasem macru
:="C:\Users\Documents\pomoc.xlsm" ?
děkujicitovat

marjankaj(9.5.2016 12:00)#031457

mona123 napsal/a:

k cemu je dobre ve vasem macru
:="C:\Users\Documents\pomoc.xlsm" ?
děkuji

To je ako príklad. Môžeš si dať svoje.
Ale ako som už povedal. Celé je to na kočku. Dá sa to urobiť aj manuálne.citovat

xlnc(9.5.2016 13:05)#031461

Jednoduše neexistuje žádný integrovaný nástroj "krok zpět" aplikovaný na vaše makra. Pokud pracujete s oblastí, je možné si vytvořit její kopii v "temp" souboru před zpracováním a v případě nutnosti kopírovat zpět. V případě velkých změn (které nejdou za hranici sešitu), je možné soubor uložit před změnami (jeho verzi) a pak vracet ten původní.citovat

Merlin99(9.5.2016 20:03)#031468

ok díky za rady

citovat

Téma: ZPĚT - Tlačítko - VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje