Stalker napsal/a:
Upraveno, otestuj.Příloha: 45250_dochazka.zip (187kB, staženo 1x)
Stalker napsal/a:
Upraveno, otestuj.Příloha: 45250_dochazka.zip (187kB, staženo 1x)
Stalker napsal/a:
Frida napsal/a:.. myslíte si, že bych Vás mohl poprosit i o naprogramování makra na "vymazání"?....
Buď detailně popsat, které buňky (rozsahy buněk), nebo přiložit vyplněný formulář a potřebné vyznačit (např barvou písma...)
Zároveň též velmi děkuji všem, kteří se mi snažili pomoci. Spoustu rad využiji i dále...
Stalker napsal/a:
Vyzkoušej tento soubor. Řešil sem jen makro na archivaci.Příloha: 45235_dochazka.zip (186kB, staženo 3x)
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....
Tak problém stále přetrvává. To makro prostě u některých uživatelů nedokáže vykonat hned první řádek....
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 ochotu
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....
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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.