Farklı Kaydet Makrosu (sadece Aktif sayfayı makrosuz ve formülsüz)

Katılım
13 Temmuz 2007
Mesajlar
55
Excel Vers. ve Dili
Excell 2013 Türkçe (64 Bit)
Altın Üyelik Bitiş Tarihi
20/04/2019
Arkadaşlar Merhaba,

Öncelikle forumda çok aradım fak tam olarak istediğimi karşılayan kodu bulamadım.

İstediğim birden çok sayfası olan excell dosyasında makroyu çalıştırdığımda belirttiğim sayfayı formül ve makrolardan arındırarak aynı klasör içerisine belirttiğim hücre değerine göre ismini farklı kaydetmek.

Konula ilgili yardımlarınız için şimdiden teşekkürler.
 

Ekli dosyalar

Excelmy

Destek Ekibi
Destek Ekibi
Katılım
10 Nisan 2008
Mesajlar
650
Excel Vers. ve Dili
2010 - TÜRKÇE
Benzer konular sitemizde mevcut

BURADA bulunan konuyu inceleyiniz.
 
Katılım
13 Temmuz 2007
Mesajlar
55
Excel Vers. ve Dili
Excell 2013 Türkçe (64 Bit)
Altın Üyelik Bitiş Tarihi
20/04/2019
Benzer konular sitemizde mevcut

BURADA bulunan konuyu inceleyiniz.


Burada Sadece farklı kaydediyor inceledim onu.
Benim istediğim

Belirttiğim hücre değerine göre farklı kaydet yapacak ve tüm formul ve makroları silerek excell çalışma kitabı olarak kaydedecek.
 
Katılım
3 Mart 2007
Mesajlar
66
Excel Vers. ve Dili
VBa
Altın Üyelik Bitiş Tarihi
03.03.2023
Sayın excelmy linkteki kodları inceledim. Harika olmuş. yanlız tek sıkıntı çalışma sayfasını kaydetmesi, bense çalışma kitabını kaydettirmek istiyorum hemde CtrS(kaydet tuşu) basınca mümkünmüdür?
 
Katılım
13 Temmuz 2007
Mesajlar
55
Excel Vers. ve Dili
Excell 2013 Türkçe (64 Bit)
Altın Üyelik Bitiş Tarihi
20/04/2019
Sayın excelmy linkteki kodları inceledim. Harika olmuş. yanlız tek sıkıntı çalışma sayfasını kaydetmesi, bense çalışma kitabını kaydettirmek istiyorum hemde CtrS(kaydet tuşu) basınca mümkünmüdür?
Senin işini bu görür muhtemelen
Kod:
Sub mcrSet_All_Values_and_Save_XLSX()
    Dim w As Long
    For w = 1 To Sheets.Count
        Sheets(w).UsedRange = Sheets(w).UsedRange.Value
    Next w
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs _
      ThisWorkbook.Path & Chr(92) & _
        Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, Chr(46)) - 1) & Format(Date, "_yyyy-mm"), _
      xlOpenXMLWorkbook
End Sub
 
Katılım
3 Mart 2007
Mesajlar
66
Excel Vers. ve Dili
VBa
Altın Üyelik Bitiş Tarihi
03.03.2023
Sayın Zeren Excelmy nin vermiş olduğu linkteki kodlarda activesheet kısmını workbook olarak değiştirirseniz ve çalışma sayfasını değil çalışma kitabını( makroları silmek kaydıyla) kaydediyor. Sanırım sizin deistediğiniz buydu çalışma kitabını makrosuz kaydetme
 
Katılım
3 Mart 2007
Mesajlar
66
Excel Vers. ve Dili
VBa
Altın Üyelik Bitiş Tarihi
03.03.2023
Bu arada sayın Zeren vermiş olduğunuz kodları çalıştıramadım. Yardımcı olursanız memnun olurum...
 
Katılım
13 Temmuz 2007
Mesajlar
55
Excel Vers. ve Dili
Excell 2013 Türkçe (64 Bit)
Altın Üyelik Bitiş Tarihi
20/04/2019
Bu arada sayın Zeren vermiş olduğunuz kodları çalıştıramadım. Yardımcı olursanız memnun olurum...
Ekteki dosyanın içerisine bir tuş ekleyerek makronun çalışır halini gönderdim incelersin.
 

Ekli dosyalar

Katılım
13 Temmuz 2007
Mesajlar
55
Excel Vers. ve Dili
Excell 2013 Türkçe (64 Bit)
Altın Üyelik Bitiş Tarihi
20/04/2019
Sayın Zeren Excelmy nin vermiş olduğu linkteki kodlarda activesheet kısmını workbook olarak değiştirirseniz ve çalışma sayfasını değil çalışma kitabını( makroları silmek kaydıyla) kaydediyor. Sanırım sizin deistediğiniz buydu çalışma kitabını makrosuz kaydetme

Ama formülleri silmiyor sıkıntım orada ben formül ve makro olmayacak şekilde istiyorum
 
Katılım
3 Mart 2007
Mesajlar
66
Excel Vers. ve Dili
VBa
Altın Üyelik Bitiş Tarihi
03.03.2023
bende makrolar silinmesin istiyorum. Onun için Sub vbclr() kısmını kaldırdım ve worksheet yerine workbook yazdım. Çalışıyor ama diğer çalışma sayfalarında ki makroları kaldırıyor bende onu çözemedim neden kaldırıyor....
 
Üst