Etkin Sayfayı Makroyla Ayrı XLSX Olarak Kaydetme

[tukayf]

Excel Versiyonu

Excel 2019

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Bu kodu görmek için giriş yapmanız gerekmektedir (12 satır). Giriş Yap

Bunu pdf için buldum ancak aynı sayfayı xlsx olarak da kaydetmek istiyorum ama bir türlü yapamadım. Kodda ne gibi bir revize yapmalıyım.

 

[ExcelDepo]

Aktif Sayfayı Formülsüz Farklı Kaydetme

Yukarıdaki kod ile sayfayı belirttiğim klasöre kayıt yapabiliyorum. Ancak sayfadaki formüller gözüküyor, formülleri değere çevirerek nasıl kaydedebilirim. Teşekkürler

www.exceldepo.com

Daha önce benzer bir konu açılmış, faydalı olabilir.

 

[tukayf]

Aktif Sayfayı Formülsüz Farklı Kaydetme

Yukarıdaki kod ile sayfayı belirttiğim klasöre kayıt yapabiliyorum. Ancak sayfadaki formüller gözüküyor, formülleri değere çevirerek nasıl kaydedebilirim. Teşekkürler

www.exceldepo.com

Daha önce benzer bir konu açılmış, faydalı olabilir.

olmadı hocam. dosya adında yüzdeler tebelleş oldu.

 

[Ömer BARAN]

isim ve isim2 değişkenlerinin değer aldığı A3 ve A4 hücreleri,
dosya adlandırmasında kullanılamayan özel karakterler içeriyor olabilir mi?

 

[tukayf]

olmadı hocam. dosya adında yüzdeler tebelleş oldu.

çözdüm teşekkürler.

isim ve isim2 değişkenlerinin değer aldığı A3 ve A4 hücreleri,
dosya adlandırmasında kullanılamayan özel karakterler içeriyor olabilir mi?

Olumsuz Hocam. 10-11%20Ekim%2020221.%20Grup bu şekilde getiriyor. Boşluklarla ilgili bi sıkıntımız var ama anlayamadım. Kullandığım kod bu

Dim sh As Worksheet
Set sh = ActiveSheet
Yol = ThisWorkbook.Path
isim = sh.Range("A3").Value
isim2 = sh.Range("A4").Value
isimcik = isim & isim2
ThisWorkbook.ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close True, Yol & isimcik & ".xlsx"
Application.DisplayAlerts = False

 

[Ömer BARAN]

Bence, kullandığınız kodun içerisinde olduğu, ismi oluşturan 2 hücrenin (A3, A4) gerçek dosyanızdakiyle aynı olduğu bir örnek belge yükleyin.

 

[tukayf]

Bence, kullandığınız kodun içerisinde olduğu, ismi oluşturan 2 hücrenin (A3, A4) gerçek dosyanızdakiyle aynı olduğu bir örnek belge yükleyin.

Hemen hocam ekte dosya buyrun

 

[Ömer BARAN]

Koddaki Yol = .... ve isimcik = .... satırlarını şöyle değiştirin.

Yol = ThisWorkbook.Path & "\"
.......
isimcik = isim & "_" & isim2

 

[Ömer BARAN]

Art arda ikinci cevabım oluyor.
Önce bundan önceki cevabıma bakın.

Kodun son satırındaki Application.DisplayAlerts = False kısmındaki False ibaresini True olarak değiştirin.