dosyayı tarih ve sıra no vererek açma ve kaydetme

[celofb]

Ek dosyamda ve aşağıda açıklamaya çalıştım.Umarım anlatabilmişimdir.

Dosyam açılırken ( buton ile olursa çok daha güzel olur ) tarih ve sıra no vererek açılmasını istiyorum aynı zamanda bu tarih ve sıra no ile kaydetmek istiyorum.( aynı tarih ve sıra no verilemesin ) ilgilenen arkadaşlara şimdiden çok teşekkürler.

 

[celofb]

Bu makro konusunda ardım edecek arkadaş yokmu ?

 

[celofb]

Excel dosyamı açarken userform ile isim vererek dosyayı kaydetmek istiyorum.Yardımcı olacak yada elinde örnek dosya olan arkadaş varmı ?

 

[GursoyC]

>Dosyam açılırken ( buton ile olursa çok daha güzel olur ) tarih ve sıra no vererek açılmasını istiyorum

Bu cümleyi açıklar mısınız?

Dosyayı bugün tarihli kaydetmek için gerekli kod şudur; bir düğmeye atayabilirsiniz.

Dim yol As String, _
        Tar As String
        yol = ThisWorkbook.Path & Application.PathSeparator
    Tar = Format(Date, "yyyymmdd")
   
    ActiveWorkbook.SaveAs Filename:=yol & Tar & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[celofb]

Merhaba unlimitted
User form ile her açtığında tarih vererek dosyamı açmak ve aynı tarih ile kaydetmek istemiştim.