Rapor ve Farklı kaydetme ?

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

arslanbey

Kullanıcı
Katılım
22 Nis 2022
Mesajlar
63
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
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...
 
UserForm ile Öğrenci Devamsızlık Günlerini Listeleme
vba kopyala yapıştır

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Kaydet buton kodlarındaki son değişken kodu C sütununa göre ayarlanmış. son = Cells(Rows.Count, [B][COLOR=rgb(132, 53, 52)]"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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
 
Oyla 0 Olumsuz oyla
Ekran Alıntısı.webp

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
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. Arslanbey ;

#2 numaralı mesajda Feyzullah Beyin paylaşmış olduğu kod içeresinde bulunan
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
bu satırı aşağıdaki gibi değiştiriniz
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
Kullandığınız Excel'in olduğu yerde bulunan Yazdırılanlar isimli klasöre kayıt eder.
 
Oyla 0 Olumsuz oyla
Ekran Alıntısı.webp



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.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
İ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

Oyla 0 Olumsuz oyla
Merhabalar Sn. Arslanbey;

Farklı kaydetmek ister misiniz ? sorusu için kullandığınız
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
bu satırı aşağıdaki satır ile değiştiriniz.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
-- 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.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt