MS Excel

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

Zaslat odpověď >

Strana: « předchozí 1 2 3 4 další »

rotri(12.6.2015 8:29)#025466

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.citovat

elninoslov(12.6.2015 9:36)#025472

To akože chcete mať po vytvorení napr. nového mesiaca Júl (Červenec), ako prvý list posledný deň z Júna (Červen) čiže 31 ? Potom budete mať vlastne 3 listy - 31,01,SAKO. Takto ? Tak to bude problém, pretože keď prídete potom na koniec Júla (Červenec), tak sa vytvorí list 31, to ale nieje možné keď už list 31 existuje (ten Júnový - Červnový). Muselo by sa napr. testovať, pri vytváraní listov, či je deň číslo 2, a vtedy ten posledný Júnový 31 zmazať. Plus iné komplikácie, spojené s náväznosťou na list 01. Možno keď bude čas a chuť ... snáď si ale eLCHa nájde ešte na Vás čas, predsalen je to najlepšie upravovať autorovi makra.citovat

rotri(12.6.2015 9:41)#025473

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.citovat

eLCHa(12.6.2015 9:42)#025474

@rotri
to samozřejmě lze, ale nějak nerozumím proč, když jsou ty listy stejné, jen se liší názvemcitovat

rotri(12.6.2015 9:45)#025475

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.citovat

eLCHa(12.6.2015 9:47)#025476

OK zkuste toto (dávám bez testu)ThisWorkbook.SaveAs sSoubor
Set sh = ThisWorkbook.Sheets(Format(dDen - 1), "dd")

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

Application.DisplayAlerts = False
For Each sh In sh.Parent.Sheets
Select Case sh.Name
Case Format(dDen - 1, "dd"), "SAKO"
Case Else
sh.Delete
End Select
Next sh
Application.DisplayAlerts = True

ThisWorkbook.Save
edit: ještě 2x upraveno ;))citovat

rotri(12.6.2015 10:13)#025479

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

eLCHa(12.6.2015 10:26)#025482

;)
Mno dobrá ještě jeden pokus ThisWorkbook.SaveAs sSoubor
Set sh = ThisWorkbook.Sheets(Format(Day(dDen - 1), "00"))

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

Application.DisplayAlerts = False
For Each sh In sh.Parent.Sheets
Select Case sh.Name
Case Format(Day(dDen - 1), "00")
sh.Name = "01"
Case "SAKO"
Case Else
sh.Delete
End Select
Next sh
Application.DisplayAlerts = True

ThisWorkbook.Savecitovat

elninoslov(12.6.2015 10:31)#025484

Chyba je inde.
Tu je treba iba presunúť ")"
Set sh = ThisWorkbook.Sheets(Format(dDen - 1), "dd")
Set sh = ThisWorkbook.Sheets(Format(dDen - 1, "dd"))

Ale po vyplnení 31 v Júli a stlačení Ďalší deň, sa správne vytvorí nový mesiac s posledným dňom predošlého (31), ale ak dám opäť Ďalší deň, tak to stroskotá na
Set sh = Worksheets(Format(dDen - 1, "dd") & " (2)")
pri odkaze na neexistujúci list, lebo dDen má už hodnotu 2.8. List "01" tam ale nieje.
Pri prechode na nový mesiac, bude treba ako som písal, zachovať 3 listy, nie 2. (31, 01, SAKO)citovat

rotri(12.6.2015 10:33)#025485

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

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

Strana: « předchozí 1 2 3 4 další »

Téma: Kopírovat formát

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje