Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-12-2017, 13:18   #1
boss2090
 
Giriş: 04/01/2010
Şehir: Frankfurt
Mesaj: 124
Excel Vers. ve Dili:
Excel 2007
Varsayılan Hücredeki veriyle kaydetme

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.
boss2090 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-12-2017, 15:35   #2
faye_efsane
Altın Üye
 
Giriş: 01/09/2008
Mesaj: 161
Excel Vers. ve Dili:
2010 Türkçe 2016 Türkçe
Varsayılan

Merhaba,
Dosyanızı;
- "*.xlsx" uzantısı ile Farklı Kaydetmek için,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
- "*.xlsm" uzantısı ile Farklı Kaydetmek için,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
- "*.xls" uzantısı ile Farklı Kaydetmek için,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".xls", FileFormat:= _
        xlExcel8, CreateBackup:=False
Application.DisplayAlerts = True
Bu kodlardan istediğinizi kullanabilirsiniz. Kodlardaki farklı kısımlar Kırmızı ile işaretli.
İyi çalışmalar.
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-12-2017, 16:18   #3
boss2090
 
Giriş: 04/01/2010
Şehir: Frankfurt
Mesaj: 124
Excel Vers. ve Dili:
Excel 2007
Varsayılan

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.
boss2090 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-12-2017, 18:43   #4
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

.SaveAs yerine
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-12-2017, 11:14   #5
boss2090
 
Giriş: 04/01/2010
Şehir: Frankfurt
Mesaj: 124
Excel Vers. ve Dili:
Excel 2007
Varsayılan

Rica etsem bir örnek dosya yapip bana gönderebilirmisiniz. Bir türlü basaramadim.
Simdiden cok cok tesekkürler!
boss2090 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-12-2017, 17:51   #6
faye_efsane
Altın Üye
 
Giriş: 01/09/2008
Mesaj: 161
Excel Vers. ve Dili:
2010 Türkçe 2016 Türkçe
Varsayılan

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,
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Application.ScreenUpdating = False
kayit_yeri = ThisWorkbook.Path
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=kayit_yeri & "\" & [C3] & "_" & [C4] & "_" & Format([C5], "dd-mm-yyyy") & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close True
Application.ScreenUpdating = True
- ActiveSheet.Copy satırı, Aktif olan Sekmeyi kopyalar. Birden fazla Sekmeyi kopyalamak için Bu satırı şu şekilde değiştiriniz
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2017, 08:49   #7
boss2090
 
Giriş: 04/01/2010
Şehir: Frankfurt
Mesaj: 124
Excel Vers. ve Dili:
Excel 2007
Varsayılan

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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 17:47   #8
boss2090
 
Giriş: 04/01/2010
Şehir: Frankfurt
Mesaj: 124
Excel Vers. ve Dili:
Excel 2007
Varsayılan

Lütfen. Cok hizli yardima ihtiyacim var..
boss2090 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-12-2017, 19:07   #9
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

Alıntı:
boss2090 tarafından gönderildi Mesajı Görüntüle
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
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 09:08   #10
boss2090
 
Giriş: 04/01/2010
Şehir: Frankfurt
Mesaj: 124
Excel Vers. ve Dili:
Excel 2007
Varsayılan

Ö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.
boss2090 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 05:28


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden