Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Excel Eğitimi Almak İstiyorum

Site yöneticilerimizden online Excel eğitimi almak ister misiniz?

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

VBA  Rapor ve Farklı kaydetme ?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

Merhabalar ;
Kaydet makrosu beş kayıttan sonrası kaydetmiyor hep üzerine kaydediyor.yapmak istediğim alt alta kaydetmesi.
Birde yapmak istediğim farklı kaydetme , Rapor butona bastığımda farklı kayıtmek istermisiniz diye sorup sonrasında yazdırmasını nasıl sağlarım.
Farklı kaydetmesi ise rapor sayfasını olduğu ve sayfa ismini ise;
ComboBox4 ve TextBox8 birleştirip , TextBox17 yazıpı ve TextBox17 veriden sayfa ismini alıp masaüstüne veya belirtilen klasör kaydetmesini istiyorum.
Teşekkürler...
 

Ekli dosyalar

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
957
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Kaydet buton kodlarındaki son değişken kodu C sütununa göre ayarlanmış. son = Cells(Rows.Count, [B][COLOR=rgb(184, 49, 47)]"C"[/COLOR][/B]).End(xlUp).Row + 1 Bunu A olarak değiştirin.

İkinci sorunuz için aşağıdaki kodları Rapor butonunda bulunan kodlarda ki End With satırının altına yazınız.

C#:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

Ekran Alıntısı.JPG
Günaydın Feyzeullah bey ;
Dediğiniz gibi kaydet verdiğiniz kodu ekledim bu şekilde hasta verdi.

Bu kod çalıştı ama nereye kaydetiyor bilemedim.
Şu şekilde olsa olurmu nereye kaydedeceğini ben seçip kaydettirsem olurmu mümkünmüdür.

If MsgBox("Farklı kaydetmek istermisiniz ? ", vbExclamation + vbMsgBoxRtlReading, "Farklı kaydedilsin mi ?") = vbYes Then
dosya_yolu = ThisWorkbook.Path & "\" & Me.ComboBox4.Text & Me.ComboBox8.Text & ".xlsx"
Sheets("RAPOR").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=dosya_yolu
ActiveWorkbook.Close
End If
 

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
957
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Ekran Alıntısı.JPG

Günaydın Feyzeullah bey ;
Dediğiniz gibi kaydet verdiğiniz kodu ekledim bu şekilde hasta verdi.
Kırmızı hatalı satırı silin. Üstteki kalacak şekilde.

Kaydetme işlemide, Kaydedilecek dosya da kullandığıniz DÖF dosyanın bulunduğu dizine kaydediliyor.
 

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

Feyzullah bey merhaba;
döf dosyasını masaüstünde klasör içerinde farklı kaydet dediğimde nereye kaydettiğini bulamıyorum aynı klasör içerisinde tekrar yazdırılanlar klasör açtım onun içerisine kayıt ettirebilirmiyiz.
 

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
369
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar Sn. Arslanbey ;

Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
Feyzullah Beyin paylaşmış olduğu kod içeresinde bulunan
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
bu satırı aşağıdaki gibi değiştiriniz
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
Kullandığınız Excel'in olduğu yerde bulunan Yazdırılanlar isimli klasöre kayıt eder.
 

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

Ekran Alıntısı.JPG


Merhaba;
Dediğinizi yaptım olmuyor.
Benim dosya klasör masaüstün de döf dosyası diye klasör içerisinde yazdırılıanlar diye klasörün içerisine kayıt etmesini istiyorum.
 

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
369
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar,
Yazdırılanlar klasörü ile makrolu Excel aynı yerde ise hata vermemesi lazım.

Nasıl bir hata veriyor?

Not: Şuan telefondan bağlandığım için yeni kod paylaşamıyorum.
 

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

Merhabalar;
Sıkıntı burda işte kod herhangi bir hata vermiyor.
Yazdır diyorum farklı kaydetmek istermisiniz diye soruyor tamam diyorum veri yazdırılıyor. Yazdırılan klasör içerisine baktığım zaman hiç bir Excel dosyası yok.
 

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

İyi akşamlar Yapmak istediğim;
Yazdır diyorum farklı kaydetmek istermisiniz diye soruyor tamam diyorum veri yazdırılıyor. Yazdırılan klasör içerisine baktığım zaman hiç bir Excel dosyası yok.
Dosyayı ekliyorum.
 

Ekli dosyalar

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
369
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar Sn. Arslanbey;

Farklı kaydetmek ister misiniz ? sorusu için kullandığınız
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
bu satırı aşağıdaki satır ile değiştiriniz.
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
-- vbYesNo : Farklı kaydedilsin mi? sorusuna Evet - Hayır seçeneğinin çıkmasını sağlar.
-- Evet 'i tıklarsanız, kodun sonunda bulunan = vbYes ile eşitleneceği için Farklı Kaydet satırları çalışır,
-- Hayır 'ı tıklarsanız, = vbYes ile eşitlenmeyeceği için Farklı Kaydet satırlarını çalıştırmadan geçer.
 

Arslanbey

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
3 Kas 2019
Mesajlar
66
Excel Versiyonu, Dili
ofis365

Reputation:

Günaydın ;
Tamam oldu teşekkürler...
 

Bilgi

Destek Ekibi
Destek Ekibi
VIP
SMS Onaylı
Kullanıcı
Katılım
15 Eki 2019
Mesajlar
186
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
Excel 2013 TR

Reputation:

Sayın @Arslanbey
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.
 

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
15 Eki 2018
Mesajlar
369
Excel Versiyonu, Dili
Excel 2019 TR

Reputation:

Merhabalar;
Günaydın. Rica ederim.
Saygılarımla, iyi çalışmalar.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst