http://wall.cz/index.php?m=topic&id=39572citovat
Zaslal/a Frida 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
Stalker napsal/a:
Vyzkoušej tento soubor. Řešil sem jen makro na archivaci.Příloha: 45235_dochazka.zip (186kB, staženo 3x)
Frida napsal/a:
.. myslíte si, že bych Vás mohl poprosit i o naprogramování makra na "vymazání"?....
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...)
Frida napsal/a:
.. myslíte si, že bych Vás mohl poprosit i o naprogramování makra na "vymazání"?....
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)
Frida napsal/a:
tak už to funguje.. musel jsem z názvu makra odstarnit interpunkce....
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.