MS Excel

Dobrý den,
zaznamenal jsem si jednoduché makro, které mi pomocí tlačítka archivuje docházkový list do nového listu. Vše funguje jak má, ale tak u jednoho z deseti uživatelů přestane být makro funkční vlastně hned u prvního kroku. Jelikož jsem programátorský neználek, je tento problém nad moje síly. Za každou pomoc budu vděčný a pokud máte živnosťák, mohla by i odpovídající finanční odměna proběhnout :).

Sheets("PD_FORMULÁŘ").Visible = True
Sheets("PD_FORMULÁŘ").Select
Sheets("PD_FORMULÁŘ").Copy Before:=Sheets(3)
Columns("A:M").Select
Range("A2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N21").Select
Application.CutCopyMode = False
Sheets("PD_FORMULÁŘ").Select
ActiveWindow.SelectedSheets.Visible = False
Range("L8").Select

Zaslat odpověď >

Strana: 1 2 3 další »

Ladys(10.12.2019 8:32)#045223

Problém bude ve třetím řádku, v odkazu na list Sheets(3), kteří si mohli někteří uživatelé vymazat.citovat

Frida(10.12.2019 9:12)#045224

Moc děkuji za reakci. Zkusím to opravit. Nicméně problém bude zakopán ještě někde jinde, většinou jim makro skoná hned u prvního řádku....citovat

Ladys(10.12.2019 9:21)#045225

Posílám řešení, trošku jsem to upravil. JJ, a pokud to "padá" hned na prvním řádku, pak je možné, že si uživatel změnil jméno listu, nebo list ("PD_FORMULÁŘ") ze sešitu smazal.

Příloha: zip

45225_dochazka.zip (183kB, staženo 25x)

citovat

Frida(10.12.2019 10:00)#045226

Děkuji Vám za řešení, zaslal jsem uživateli, který s tím měl problémy k "testu"... oni se tedy kolegové svatosvatě dušují, že žádné listy nemažou ani nepřejmenovávají, ale pro jistotu jsem jim to ještě jednou excplicitně zopakoval... Jak budu mít reakci, tak dám vědět, jak to dopadlo....

Prozatím Vám děkuji za ochotucitovat

Frida(10.12.2019 13:24)#045227

Tak problém stále přetrvává. To makro prostě u některých uživatelů nedokáže vykonat hned první řádek....citovat

Ladys(10.12.2019 14:37)#045229

Zdravím,
Píše to u těch uživatelů nějaké hlášení? A pokud ano - jaké?
A pokud ne, pak je možná příčina, že v zabezpečení nejsou povolena makra, nebo uživatel nepotvrdil po otevření "povolit makra"citovat

Frida(10.12.2019 14:47)#045232

Dobrý den,
píše to chybu run-time error 9....makra by měla být povolena.. jeden uživatel, kterému makro nefunguje, se u mne před časem zastavil, tak jsem si ověřil, že ze souborem nic neudělal a makra měl povolena....

Příloha: png

45232_chyba.png (268kB, staženo 47x)

citovat

Ladys(10.12.2019 14:59)#045234

Makro se tedy odkazuje na neexistující prvek kolekce. Pokud je to první řádek kódu, pak
1) List "PD_FORMULÁŘ" není v sešitu k dispozici
2) Sešit z makrem "docházka.xlsm" není aktivním sešitem

ad 1) zkontrolujte název listu - "PD_FORMULÁŘ" není totéž, jako "PD_FORMULÁŘ " (na konci o mezeru více), nebo " PD_FORMULÁŘ" (na začátku o mezeru více).
ad 2) v kódu, kdekoliv, kde je odkaz na sheet, přidejte odkaz na vlastní sešit, tedy: ThisWorkbook.Sheet....
Ještě dodatek: pro názvy listů - a obecně pro názvy, používejte raději názvy bez české diakritiky (Tedy PD_FORMAULAR)citovat

Stalker(10.12.2019 15:23)#045235

Vyzkoušej tento soubor. Řešil sem jen makro na archivaci.

Příloha: zip

45235_dochazka.zip (186kB, staženo 25x)

citovat

misocko(10.12.2019 20:36)#045239

osobne by som začal zrušenim diakritiky
diakritika s makrami sa mi furt kaslala, neviem ci uz doba pokrocila , takze za mna nie diakritika a ziadne medzery
PS - neviem aky odbornik prelozil prikazy excelu do češtiny (a neviem ci aj do inych jazykov...)citovat

Strana: 1 2 3 další »

Téma: Nefunkční makro

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje