Hücredeki veriyle kaydetme

[boss2090]

Merhaba Arkadaslar,

Excel,i C3, C4 ve C5 hücresindeki müsterinin ismi ile, soyismi ve tarihle kaydetmek istiyorum.
Yani C3 hücresinde Kaan, C4 hücresinde Yigit, C5 hücresinde 13.12.2017 var.
Bir Buton olusturup bu buton a bastigimda Excel'i Kaan_Yigit_13-12-2107 ismi ile kaydetsin.
Her degisiklikde bu hücrelere uyum saglasin.

Yardiminiz icin simdiden Tesekkürler.

 

[AdemCan]

Merhaba,
Dosyanızı;
- "*.xlsx" uzantısı ile Farklı Kaydetmek için,

kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".[COLOR="Red"]xlsx[/COLOR]", FileFormat:= _
        [COLOR="red"]xlOpenXMLWorkbook[/COLOR], CreateBackup:=False
Application.DisplayAlerts = True

- "*.xlsm" uzantısı ile Farklı Kaydetmek için,

kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".[COLOR="red"]xlsm[/COLOR]", FileFormat:= _
        [COLOR="red"]xlOpenXMLWorkbookMacroEnabled[/COLOR], CreateBackup:=False
Application.DisplayAlerts = True

- "*.xls" uzantısı ile Farklı Kaydetmek için,

kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".[COLOR="red"]xls[/COLOR]", FileFormat:= _
        [COLOR="red"]xlExcel8[/COLOR], CreateBackup:=False
Application.DisplayAlerts = True

Bu kodlardan istediğinizi kullanabilirsiniz. Kodlardaki farklı kısımlar Kırmızı ile işaretli.
İyi çalışmalar.

 

[boss2090]

Yardiminiz icin cok Tesekkürler.
Birsefere mahsus basardim ama hücrede degisiklik yapinca kayiti degistirmiyor. Örnek Dosya yükleyip göstermek istedim ne yaptigimi ama ilave secenekler altinda dosya ekleme butonu yok.

 

[TanerSaydam]

.SaveAs yerine

ActiveWorkbook.SaveCopyAs

yazarsanız sorununuz çözülür.

SaveAs yazdığınızda kaydettiğiniz dosyayı açıp, orijinali kapatıyor. Bu yüzden kod ikinci kere işe yaramıyor.

 

[boss2090]

Rica etsem bir örnek dosya yapip bana gönderebilirmisiniz. Bir türlü basaramadim.
Simdiden cok cok tesekkürler!

 

[AdemCan]

Merhaba,
Farklı Kaydet işleminde Açık olan Dosyayı kapatmadan önce kaydetmek için kodların ilk satırına ActiveWorkbook.Save satırını ekleyiniz. İşleme başlarken önce Dosyayı kaydeder.

- İşlem yaptığım Excel dosyası kapanmasın derseniz; Sekmeleri kopyalayarak yapabilirsiniz.
Örnek olarak "*.xlsm" uzantısı ile Farklı Kaydetmek için,

[COLOR="Blue"]Application.ScreenUpdating = False[/COLOR]
kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
[COLOR="Blue"]ActiveSheet.Copy[/COLOR]
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
[COLOR="Blue"]ActiveWindow.Close True[/COLOR]
[COLOR="Blue"]Application.ScreenUpdating = True[/COLOR]

- ActiveSheet.Copy satırı, Aktif olan Sekmeyi kopyalar. Birden fazla Sekmeyi kopyalamak için Bu satırı şu şekilde değiştiriniz

Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Copy

Sayfa1, Sayfa2, Sayfa3 yerine çalışma dosyanızda kopyalamak istediğiniz Sekme isimlerini yazınız. Bu şekilde istediğiniz Sekmeleri yeni dosyaya kaydedebilirsiniz.

- Bu koddaki Mavi renk ile belirttiğim satırları diğer kodlarda da kullanabilirsiniz.
İyi çalışmalar.

 

[boss2090]

Cok üzgünüm sizi bukadar yordugum icin ama bende sürekli hata veriyor.
Birtane CommandButton olusturdum. Bu dügmeye basinca istedigim sekilde kaydetsin istiyorum ama olmuyor. Nedenini bende anlamadim.

Ben örnek dosya yükleyemiyorum.

Sizden ricam örnek bir dosya sunmaniz. Tesekkkürler.

 

[boss2090]

Lütfen. Cok hizli yardima ihtiyacim var..

 

[cems]

Lütfen. Cok hizli yardima ihtiyacim var..

www.dosya.tc ya da başka yere bir örnek yüklemezseniz bekledğiniz yardım gelmeyebilir. Yani önce siz yardım edenlere yardım etmelisiniz ...

121 mesajda bu öneriyi defalarca görmüş olmanız gerek

 

[boss2090]

Örnek Dosaya yükledim.

http://s8.dosya.tc/server5/muj4zp/Mappe3.rar.html

Buttona basinca yeni bir Excel dosyasi olarak kaydediyor.
Aktiv olan dosyanin ismini degistirerek kaydetmek istiyorum ve hücrelerdeki her degisiklik sonrasi aktiv dosyanin ismini degisiklige uygun kaydetmek istiyorum.

 

[AdemCan]

Merhaba,
Çalışma dosyanızdaki buton kodlarını 6. mesajda paylaştığım kodlar ile değiştiriniz.

 

[boss2090]

Yine ayni hatalari veriyor..

 

[AdemCan]

Merhaba,
Hatadan kastınız nedir? Belirttiğim kod istediğiniz işlemi yapıyor.

 

[çıtır]

Alternatif olarak deneyiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
kayıt = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=kayıt & "\" & [c3&"_"&C4&"_" & day(C5)&"-"&Month(c5)&"-"&year(c5)] & ".xlsm"
End Sub