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]

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

Ýyi çalýþmalar!......