sayfayı xlsx olarak farklı kaydet

  • Konuyu başlatan Konuyu başlatan tukayf
  • Başlangıç tarihi Başlangıç tarihi
Tarihe göre sırala Oylamaya göre sırala
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?
 
Oyla 0 Olumsuz oyla
tukayf' Alıntı:
olmadı hocam. dosya adında yüzdeler tebelleş oldu.
Genişletmek için tıklayın ...
çözdüm teşekkürler.
Ömer BARAN' Alıntı:
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?
Genişletmek için tıklayın ...
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
Genişletmek için tıklayın ...
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Koddaki Yol = .... ve isimcik = .... satırlarını şöyle değiştirin.

Yol = ThisWorkbook.Path & "\"
.......
isimcik = isim & "_" & isim2
 
Oyla 1 Olumsuz oyla
Çözüm
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.
 
Oyla 1 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt