Excelde farklı kaydetle ilgili bir sorun

Katılım
12 Kasım 2007
Mesajlar
1
Excel Vers. ve Dili
Office 2000 türkçe
Herkese sevgiler

dün geceden beri bir makro yazmaya çalışıyorum ve sizlerin sayesinde sonuna kadar geldim. Fakat farklı kaydetme sıkıntıma bir çare bulamadım. Forumda da bulamadığım için sizlere sormak istedim. Derdim şu; dosyamın içinde yapılan işlemler sonucunda tek başına kalan bir kitabı (sheet) dosyanın orjinal isminin sonuna "-rev" ekleyerek farklı kayıt etmek istiyorum. Bu mümkün müdür?

D:\çalışma\kontrol18.xls dosyamın bulunduğu yer ve adı

d:\çalışma\kontrol18-rev.xls olarak farklı kayıt etmek istiyorum.

Saygılarımla

Not: Böyle bir platformun varlığından bu kadar geç haberdar olmak üzücü olsada varlığı gayet mutlu edici.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu deneyin.

Kod:
ActiveWorkbook.SaveCopyAs "d:\çalışma\" & Replace(ActiveWorkbook.Name, ".xls", "") & "-rev.xls"
 
Üst