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

[zeren]

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.

 

[Excelmy]

Benzer konular sitemizde mevcut

BURADA bulunan konuyu inceleyiniz.

 

[zeren]

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.

 

[jeoferkan]

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?

 

[zeren]

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

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

 

[jeoferkan]

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

 

[jeoferkan]

Bu arada sayın Zeren vermiş olduğunuz kodları çalıştıramadım. Yardımcı olursanız memnun olurum...

 

[zeren]

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.

 

[zeren]

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

 

[jeoferkan]

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....