Dosya İsmini Makro İle Yazdırma

[bsen]

Merhaba,
Çalışan bir makro sonucu her işlem sonrasında Book1.xls yaratıyor dosyam.Benim isteğim bu dosyanın makro yardımı ile ismini değiştirmek.
Örneğin A1 hücresinde "Ali" ve A2 hücresinde "Ocak" yazıyorsa dosya ismini "Ali Ocak" olarak koyabilsin makro yardımı ile.

Yardımcı olabilirseniz sevinirim.

Saygılarımla,

 

[Erdem Akdemir]

Merhaba,
Çalışan bir makro sonucu her işlem sonrasında Book1.xls yaratıyor dosyam.Benim isteğim bu dosyanın makro yardımı ile ismini değiştirmek.
Örneğin A1 hücresinde "Ali" ve A2 hücresinde "Ocak" yazıyorsa dosya ismini "Ali Ocak" olarak koyabilsin makro yardımı ile.

Yardımcı olabilirseniz sevinirim.

Saygılarımla,

Sub sayfaismi()
ActiveSheet.Name = [a1] & [a2]
End Sub

 

[bsen]

Merhaba,
İlginiz için teşekkürler ancak bu sheet ismini değiştirdi.Bana dosya ismini değiştirmek gerekiyor.Ne yapabiliriz?

Selamlar,

 

[Erdem Akdemir]

Sub dosyaismi()

ThisWorkbook.SaveAs ([a1] & [a2])

End Sub

 

[bsen]

teşekkürler..

 

[Tarkan VURAL]

Merhaba,
Çalışan bir makro sonucu her işlem sonrasında Book1.xls yaratıyor dosyam.

Bahsini ettiğiniz makro kodlarınızı buraya yazsaydınız daha net bir yanıt alırdınız.

 

[Erdem Akdemir]

Bahsini ettiğiniz makro kodlarınızı buraya yazsaydınız daha net bir yanıt alırdınız.

kodun sadece

ThisWorkbook.SaveAs ([a1] & [a2]) kısmını

kendi makronuzun en sonuna ekleyin