Příspěvky uživatele

Né, eLCHa to pochopil přesně tak jak to má být. Tedy poslední den se všemi daty zůstane, přepíše se na první den nového měsíce, smažou se všechny ostatní listy, uloži se jako nový měsíc a hotovo. Nešlo o to nechat poslední den, ale ten zachovat jako první den dalšího měsíce. A tak to funguje.

Ano, poslední verze funguje. Moc děkuji.

Mě to teda teď funguje normálně.

Chyba je někde tady
Set sh = ThisWorkbook.Sheets(Format(dDen - 1), "dd")

Právě že v realitě listy stejné nejsou, pro ukázku jsem sem dal listy pouze s nějakýma hodnotama, ale v realitě se do každého dne vkládají další informace a ty se přenáší do dalšího dne, nebo se další den upravuje podle toho předešlého. Proto se musí kopírovat aktuální list jako další den a proto jsem měl staré makro napsané jako kopie listu do dalšího souboru.

V podstatě ano, akorát list 01 se smaže taky. Jde o to, že já potřebuji pokračovat ve dni následujícím. Tedy informace které mám v 30.6. se musí přenést do 1.7. Tedy je varianta, že se smažou všechny listy, kromě aktivního listu a listu skrytého.

Ještě mám jednu věc, na kterou jsem přišel. Když se mi vytvoří nový měsíc, tak se smaznou všechny listy kromě 01 a SAKO (skrytý), ale já potřebuji, ať se nesmázne SAKO a poslední, je to v tomto příkaz:

ThisWorkbook.SaveAs sSoubor
Set sh = ThisWorkbook.Sheets("01")

sh.Range("I2").Value = dDen

Application.DisplayAlerts = False
For Each sh In sh.Parent.Sheets
Select Case sh.Name
Case "01", "SAKO"
Case Else
sh.Delete
End Select
Next sh
Application.DisplayAlerts = True

ThisWorkbook.Save

nějak na to nemůžu přijít.

Děkuji moc všem za pomoc, teď už to funguje jak potřebuji. Musím si tam udělat jen úpravu s uložením vytvořeného souboru a aby hodnoty v buňkách nebyl odkaz, ale to už je maličkost. Ušetří mi to moc práce.

to máte pravdu a tak to i funguje a tak je to v pořádku. Jen ten o.xlsm má další tlačítko, které vytváří další den (nový list) a když dojede na konec měsíce vytvoří nový soubor pro nový měsíc. V realitě se soubor jmenuje třeba 201506.xlsm, tedy 6 měsíc pro rok 2015 a při přechodu na nový měsíc se z něj vytvoří soubor 201507.xlsm. A tam teda asi musí být příkaz pro kopírování i skrytého listu? Pokud tomu dobře rozumím.

Díky moc všem,

for eLCHa: děkuji za zjednodušení. Tlačítko pro vytváření dalšího dne (listu) funguje, ale další měsíc (nový soubor) mi nefunguje. Nabídne mi to uložení a nic se neprovede. Ještě jsem měl příkazy rovnou v CommandButton a Vy to máte v modulu. Mě to dělalo chyby při vytvoření nového měsíce, protože se mi tento modul do nového souboru nekopíroval.

for eLCHa i elninoslov: mám k tomu dotaz, když je ten formát ve skrytém listu a když se mi vytvoří nový měsíc (nový soubor), tento skrytý list se mi do něj nekopíruje? Tedy musím na to mít taky příkaz?

Děkuji za pomoc

Dobrá tedy, posílám zabalené soubory 0.xlsm ve kterém je tlačítko vytvořit 1.xlsx, to se taky částečně provede (nedodělají se všechny operace, protože v této fázi jsem skončil). 1.xlsx je tam pouze pro formu, aby bylo vidět, jak má výsledek vypadat.
Jak už jsem psal, jsem začátečník a amatér a makro jsem tvořil tak, že jsem udělal nějakou část a nahrál to do makra (záznam makra) a tak to skládal za sebe. Vím, že je to blbost, ale z hlavy nic lepšího nevytvořím. Tak bych klidně mohl i toto dodělat a mít hotové tlačítko a funkční, ale já jich potřebuji víc, tedy zkouším sehnat cestu k jednoduššímu vytvoření takového postupu.

Dobrá, chápu že asi vysvětluji špatně a není mi rozumět. Zkusím to vícero polopatě. Mám excel z názvem 0.xlsm a ten obsahuje spoustu dat. Některá data jsou na export dál do přiloženého souboru 1.xlsx, který má formát viz příloha. Já v souboru 0.xlsm zmáčknu tlačítko a vytvoří se mi excelovský soubor s formátem 1.xlsx, data v něm jsou z 0.xlsm a název podle požadovaného dne.

V makru mám vytvořit nový soubor a potom ho v tom makru postupně formátuji do podoby jaké potřebuji. Makro má moc řádků a já se v nim ztrácím. Formát tabulky není jednotný a sloupce a řádky jsou jiné, proto musím postupovat po buňkách nebo po pár buňkách. Proto se ptám, zda nejde jiná cesta.

Snad to teď už půjde pochopit, pokud je jediná cesta mnohořádkové makro, pak to dělám správně. S VBA začínám a jako samouk se snažím tady získat radu, proto prosím o trpělivost.

Děkuj

Jde mi o to, že nový soubor, který má vzniknout musí mít přesný formát jako soubor v příloze. Teď mi makro formátuje postupně jednu buňku po druhé (nebo řádky, pokud jsou stejné) a pak je makro napsané na mnoho řádků (tím myslím složité makro) a já se ptám, jestli se to dá celé nějak zjednodušit.

Dobrý den,

mám excel plný dat. Pomocí tlačítka vytvořím nový excel a část dat tam zkopíruji a uložím jinam. Vše funguje, jen mám celkem složité makro na vytvoření nového souboru. Tedy postupně formátuji všechny sloupce a řádky zvlášť. Dá se to nějak zjednodušit? Tedy nahrát nebo předdefinovat formát, aby makro nebylo tak složité? Děkuji

Ok, vše funguje OK, děkuji moc

Díky moc, funguje. Jen mám ještě dotaz. Když použiju třetí případ (nabídne mi to složku pro uložení), jde ještě předdefinovat, kde se to bude otevírat. Dám příklad, máme 7 firemních disků a cesta je do 5. podadresáře kde jsou už jen složky buď 2015 nebo 2014. Ale když to dám takto, nabídne mi to nabídku disků, tak že musím jít cestou N:\ pak adresář, pak první podadresář atd. Děkuji

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje