< návrat zpět

MS Excel


Téma: Nefunkční makro rss

Zaslal/a 10.12.2019 7:35

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

Příloha: rar45222_dochazka.rar (185kB, staženo 13x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  1 2 3   další »
#045223
avatar
Problém bude ve třetím řádku, v odkazu na list Sheets(3), kteří si mohli někteří uživatelé vymazat.citovat
#045224
avatar
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
#045225
avatar
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: zip45225_dochazka.zip (183kB, staženo 10x)
citovat
#045226
avatar
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
#045227
avatar
Tak problém stále přetrvává. To makro prostě u některých uživatelů nedokáže vykonat hned první řádek....citovat
#045229
avatar
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
#045232
avatar
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: png45232_chyba.png (268kB, staženo 23x)
45232_chyba.png
citovat
#045234
avatar
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
#045235
Stalker
Vyzkoušej tento soubor. Řešil sem jen makro na archivaci.
Příloha: zip45235_dochazka.zip (186kB, staženo 8x)
citovat
#045239
avatar
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ší »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

VBA vyhledat a zapsat

Stalker • 27.9. 23:02

VBA vyhledat a zapsat

Fantasyk • 27.9. 22:15

VBA vyhledat a zapsat

Stalker • 27.9. 22:04

VBA vyhledat a zapsat

Fantasyk • 27.9. 21:03

vyhledávání s maticí

Fantasyk • 26.9. 11:35

Automatické doplnění

marjankaj • 25.9. 14:27

Automatické doplnění

Dingo • 25.9. 14:25