Farklı Kaydet Makrosu

[Hüseyin61]

Değerli arkadaşlar Merhaba
Aşağıdaki farklı kaydet makrosunda D deki Klasöre exceldeki isim ve tarih verilerinin çağırarak arasına _ koyarak kayıt yapıyorum. Örnek Hüseyin Şen-13.02.2021 gibi. Bu kaydet şeklini Öğrenci Gözlem Formu-Hüseyin Şen-13.02.2021 şeklinde yazmak istiyorum. Yardımcı olursanız sevinirim. Şimdiden Teşekkürler

Private Sub CommandButton4_Click()
Dim dosyam As String, evn As Object, i As Byte
Set evn = CreateObject("scripting.filesystemobject")
With Sheets("Veriler")
dosyam = "D:\Rehberlik Formları\" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xls"
10 If evn.fileexists(dosyam) Then
i = i + 1
dosyam = "D:\Dehberlik Formları\" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xls"
GoTo 10
End If
End With
ActiveWorkbook.SaveCopyAs Filename:=dosyam
MsgBox "Farklı kayıt işlemi bitmiştir", vbInformation, "Farklı Kaydet"
dosyam = vbNullString: Set evn = Nothing: i = Empty
End Sub

 

[Muzaffer Ali]

Merhaba.

dosyam = "D:\Dehberlik Formları\" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xls"

Satırlarının ikisini de aşağıdaki gibi yapın.

dosyam = "D:\Dehberlik Formları\" & "Öğrenci Gözlem Formu-" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xls"

 

[Hüseyin61]

" & "Öğrenci Gözlem Formu-" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xls"

Çok Teşekkür ederim Muzaffer Ali Bey. Eline Sağlık

 

[Hüseyin61]

Arkadaşlar bu formda farklı kaydet butonu ile gösterilen klasöre kayıt yapıyorum. Ancak 1. kayıttan sonra 2.sine sonuna 1,2,3 giibi rakam ekleyerek tekrar kaydetmesini istiyorum. Ama ikinci kayıtta yol bulunamıyor diye hata veriyor. İnceleyip yardımcı olur musunuz?

 

[Muzaffer Ali]

Merhaba.

CommandButton4_Click içinde bulunan aşağıdaki satırı silin

ActiveWorkbook.SaveCopyAs Filename:=dosyam

Onun yerine aşağıdaki satırı kopyalayın

ThisWorkbook.SaveCopyAs Filename:=dosyam

 

[Korhan Ayhan]

Merhaba,

Rica etsem profilinizde yazan (Türkçe) ofis sürüm bilgisini güncelleyebilir misiniz?

Örnek ; Ofis 2010 Türkçe 64 Bit