Dosya başlığı

[MERAK]

Merhaba.

her gün standart hazırladığım bazı dosyalar var. Bu dosyaların tümünün adı aynı ancak dosyaların hangi rapora ait olduğunun belli olması için dosya adının başlangıcında rapor numarası olması gerekiyor. Ben her seferinde farklı kaydet yapıp dosya adının önüne bu rapor numarasını yazmak zorunda kalıyorum. Bunun, kaydet ya da farklı kaydet dediğim zaman otomatik olarak çıkmasını sağlayamaz mıyım? Günlük dosya adlarını aşağıda örnek olarak belirtmeye çalıştım. Çekilen rapora göre rapor numarasını değişiyor ancak son kısım yani " BÜTÇE DEĞERLENDİRME RAPORU" standart.

R_001: BÜTÇE DEĞERLENDİRME RAPORU
T_021: BÜTÇE DEĞERLENDİRME RAPORU
K_256: BÜTÇE DEĞERLENDİRME RAPORU

 

[Murat OSMA]

Şu kodu bir deneyiniz;
A1 hücresine yazdığınızın veriye göre dosyayı farklı kaydeder...

Sub Emre()
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _
    ActiveSheet.Range("A1").Value & " - BÜTÇE DEĞERLENDİRME RAPORU"
End Sub

 

[MERAK]

Murat Osma, kodu nereye yazmam gerekiyor? Konu hakkında çok fazla bilgi sahibi değilim. O yüzden adım adım yazar mısınız?

 

[Murat OSMA]

Anladım.

Herhangi bir sayfadayken ALT + F11 tuşlarına birlikte basın. Açılan pencerenin üst kısmında File - Edit - View - Insert gibi menüler vardır.
Oradaki Insert'i seçin sonra da Module'ü seçin. Açılan yere de verdiğim kodları yapıştırın.

Kodları çalıştırmak için şöyle yapın: sayfaya bir buton ya da Ekle menüsünden bir şekil ekleyin.
Sonra o şekil üzerinde sağ tıklayın, Makro Ata'yı seçin, açılan pencereden Emre'yi seçin ve Tamam butonuna basın.

Şimdi A1 hücresine bir şey yazın ve şekle basın.

 

[MERAK]

Tam istediğim gibi ama buton yerine kaydet ve farklı kaydet tıklandığında bu şekilde olmasını sağlayamaz mıyız?