shranjevanje le enega lista iz zvezka

[rick]

pozdravljeni

verjetno ste že iz naslova razbrali kaj me muči.....imam zvezek
z veliko listi,shranjeval pa bi rad le določen list (active sheet)
in sicer pod imenom- tekoči datum-primer (12.5.2007.xls)v mapo na primer c:\mapa\12.5.2007.xls.
upam,da vse skupaj ni prezahtevno
za odgovor se najlepše zahvaljujem.
lp rick

[cedra]

Zdravo,

Tole sem na brzino posnel:

Koda: Izberi vse

Sub Kopiraj_shrani()

Dim Datum As Date

ActiveSheet.Copy
    Datum = Date
    ChDir "C:\Mapa"
    ActiveWorkbook.SaveAs Filename:="C:\Mapa\" & Datum & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    
End Sub

Upam, da bo v redu

lp,

cedra

[rick]

najprej hvala za hiter odgovor

kodo,ki ste mi jo poslali je v redu,le nečesa nisem predvidel.
če ponovno shranjujem na isti datum,mi(potem ko mi pove da ta zvezek že obstaja),shrane malo drugače-najbojle da sami probate.
vprašal bi,ali je možno da v kolikor ta datum že obstaja,da ga enostavno prepiše brez vprašanja.
mislim Cedra,da boste vi to vedeli.brez dvoma
za odgovor se zahvaljujem.
lp rick

p.s. še zdaj mi ni jasno kako vam uspe posnet tak makro

[cedra]

Pozdravljeni,

To kar me sprašujete, sva vzela že pri vašem prejšnjem problemu. Preprečevanje pojavnih oken. Torej takole:

Koda: Izberi vse

Sub Kopiraj_shrani()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim Datum As Date

ActiveSheet.Copy
    Datum = Date
    ChDir "C:\Mapa"
    ActiveWorkbook.SaveAs Filename:="C:\Mapa\" & Datum & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    
Application.ScreenUpdating = True
Application.DisplayAlerts = True
  
End Sub

Zdaj vam ne bo več težil z vprašanji, ampak bo zvezek prepisal!

lp,

cedra

[rick]

pozdravljen
priznam,da takrat v prejšni temi nisem čist razumel kaj pomeni

Application.DisplayAlerts = False

nikoli ni prepozno,zopet vem nekaj več.
zadevo sem preizkusil in deluje odlično.
še enkrat hvala.

lp rick

[rick]

pozdravljen Cedra

problemov kar ni konec.....
imel bi še čisto majčkeno vprašanje in sicer:
ta list ki,ga shranjujem po datumih vsebuje gumbe (makro gumbi).
no, bilo bi fino,če bi se lahko ta list ki ga shranjujem shranil brez teh
gumbov,ki potem itak ne delujejo več.upam,da ste razumeli.
hvala za odgovor.

lp rick

[rick]

pozdravljeni

da se nebi mučili,nekako mi je to uspelo urediti,ni najbolj posrečeno pa vendar...

lp rick

[cedra]

Zdravo,

Najbolje je, da si daste gumb za makro v orodno vrstico. Tega, ki ga imate sedaj, seveda zbrišite! Nato pojdite na Orodja > Po meri > Ukazi in v levem okenčku izberite > Makri in nato iz desnega okenčka potegnite nekam v orodno vrstico > Gumb po meri (ima smeška) in mu priredite makro. To bo do neke mere pomagalo.

lp,

cedra