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
shranjevanje le enega lista iz zvezka
Zdravo,
Tole sem na brzino posnel:
Upam, da bo v redu
lp,
cedra
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
lp,
cedra
pozdravljen
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
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
Pozdravljeni,
To kar me sprašujete, sva vzela že pri vašem prejšnjem problemu. Preprečevanje pojavnih oken. Torej takole:
Zdaj vam ne bo več težil z vprašanji, ampak bo zvezek prepisal!
lp,
cedra
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
lp,
cedra
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
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
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
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