SAVE AS

[hamitcan]

Sorumu örnekle açıklamak istiyorum;

a1 hücresi -----> herhangibir tarih
b1 hücresi -----> aktif olan dosya
IS ----> İÞLENDİ'nin kısaltılması


Aktif dosyanın ismi B-011 08.09.2004 iken
(IS & DOSYA İSMİ & TARİH) ----->IS B-011 08.09.2004 olsun.

Ayrıca farklı bir directory'ye kaydını istiyorum
Yani C:\BELGELERİM\ iken
D:\STOK\ kaydedilsin

 

[Hüseyin]

Merhaba hamitcan,
kod aşağıda umarım istediğiniz işi yapar.

Sub saveas()
    dosya = "IS " & Range("A1") & " " & Range("B1")
    dosya = WorksheetFunction.Substitute(dosya, "/", ".") ' / ları nokta yapsın.
    ChDrive "D"
    ChDir "D:\STOK"
    ActiveWorkbook.saveas Filename:=dosya
End Sub

 

[hamitcan]

TEÞEKKÜR

Kod işimi gördü çok teşekkürler.

İyi çalışmalar!......