Bu kodun sonunda "E1" satırının içeriğinin ismiyle FARKLI KAYDET

[newmoonstar]

Sub tebarka()
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'

'
Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents

On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"D:\Karar\Kolay Karar.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
[e1] = [e1] + 1
[e2] = [e2] + 1
End Sub


Arkadaşlar bu kodun devamına yada herhangi bir yerine bir kod lazım:
Farklı Kaydet yaparak "N23" satırının içeriğindeki yazı ile farklı kaydet yapılması gerekiyor...
Yardımlarınızı bekliyorum...
Şimdiden Teşekkürler...

 

[adnankizil]

Sub tebarka()
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'

'



Adres=ActiveWorkbook.Path
FarkliKaydetDosyaIsmi= adres + "\" + Trim(cells(23,14))




Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents

On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
FarkliKaydetDosyaIsmi, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
[e1] = [e1] + 1
[e2] = [e2] + 1
End Sub

 

[newmoonstar]

Bu kod ?

Tam olarak anlayamadım....