Soru Makro ile dosya kayıt ederken döngü oluşması sorunsalı

[nomercy99]

Merhabalar hocalarım,

Bir konuda işin içinden çıkamadım.Daha önce dosyamı bulunduğu klasöre kayıt ediyordum sıkıntı yaşamıyordum.Aynı butonla hem farklı kayıt hem de üzerine kayıt yapabiliyordum.Ama şu an kayıt ettiğim dosyayı bir klasör içerisine kayıt etmem gerekiyor.İlk kayıtta sıkıntı yok dosya açıp kayıt edebiliyorum ama aynı butona tekrar bastığımda,klsörün içerisine tekrar bir klasör açıyor.(Dosyayı farklı kişiler kullandığı için Thisworkbook.path kullanmalıyım.)

Yani özetle istediğim butona ilk bastığımda klasör yoksa açsın,varsa içerisine kayıt etsin,tekrar bastığımda dosyayı üzerine kayıt etsin.

Sub dosyayı_kayıtet()

Set nesne = CreateObject("Scripting.FileSystemObject")
masaustuyolu = ThisWorkbook.Path

dosyaadi = Cells(3, 6).Value & ".xlsm"
klasorara = nesne.FolderExists(masaustuyolu & "\" & "Siparişler")


If klasorara = False Then
nesne.CreateFolder masaustuyolu & "\" & "Siparişler"
Else
End If

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=masaustuyolu & "\" & "Siparişler" & "\" & dosyaadi
Application.DisplayAlerts = True

End Sub

 

[Muzaffer Ali]

Merhaba.
Saveas yerine savecopyas kullanın.

 

[nomercy99]

Merhaba.
Saveas yerine savecopyas kullanın.

Çok teşekkür ederim.