çalışmayı otomatik dosya adı ve yolu ile kaydetme

[medd]

aşağıdaki kodla çalışmamı müsteriadi_tarih.xls dosya adı olacak şekilde D:\newfolder\ klasörüne kaydettiriyorum. ancak D:\newfolder\ klasöründe aynı isimli dosya varsa doğal olarak yeni dosyayı eskisinin üzerine yazıyor. ancak ben bu durumda yeni dosyayı müsteriadi_tarih_revize1.xls şeklinde o da varsa müsteriadi_tarih_revize2.xls şeklinde kaydetsin istiyorum.

bunun için aşağıdaki koda ne eklemem gerekir acaba?

Private Sub CommandButton5_Click()

Dim newFile As String, musteriadi As String
musteriadi = Range("D84").Value
newFile = musteriadi & "_" &"_" & Format$(Date, "mm-dd-yyyy") & ".xls"
ChDrive "D"
ChDir "D:\newfolder\"

ActiveWorkbook.SaveAs Filename:=newFile

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Her seferinde farklı bir no ekleyerek kaydeder.

Private Sub CommandButton5_Click()
Dim newFile As String, musteriadi As String
[B][COLOR=red]say=CreateObject("Scripting.FileSystemObject").GetFolder("D:\newfolder").Files.Count+1
[/COLOR][/B]musteriadi = Range("D84").Value
newFile = musteriadi & "_" &"_" & Format$(Date, "mm-dd-yyyy") & [B][COLOR=red]say &[/COLOR][/B] ".xls"
ChDrive "D"
ChDir "D:\newfolder\"
ActiveWorkbook.SaveAs Filename:=newFile
End Sub

 

[medd]

Aşağıdaki gibi deneyin. Her seferinde farklı bir no ekleyerek kaydeder.

Private Sub CommandButton5_Click()
Dim newFile As String, musteriadi As String
[B][COLOR=red]say=CreateObject("Scripting.FileSystemObject").GetFolder("D:\newfolder").Files.Count+1
[/COLOR][/B]musteriadi = Range("D84").Value
newFile = musteriadi & "_" &"_" & Format$(Date, "mm-dd-yyyy") & [B][COLOR=red]say &[/COLOR][/B] ".xls"
ChDrive "D"
ChDir "D:\newfolder\"
ActiveWorkbook.SaveAs Filename:=newFile
End Sub

çok teşekkür ederim. işe yaradı.