T

Çözüldü sayfayı xlsx olarak farklı kaydet

  • Konuyu başlatan Konuyu başlatan tukayf
  • Başlangıç tarihi Başlangıç tarihi

tukayf

Normal Üye
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)

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