düğmesiz makro

[GursoyC]

bir excel dosyasına çift tıkladığımda (içerisindeki bir düğmeye basarak değil de direkt excel açılır açılmaz) sırasıyla;

-aynı klasöre kendisinden bir kopya yaratıp bu kopya excel dosyasının ismini "yılaygün.xlsm" şeklinde verecek,
-yarattığı bu dosyanın 1. sayfasının A1 hücresine gidecek;
-bu işlemleri yapan ilk excel dosyasını kapatacak.

şekilde işlem yapmasını istiyorum. böyle bir şey mümkün mü?

Teşekkürler.

 

[yanginci34]

Merhaba; örnek dosya eklerseniz ustalar yardımcı olacaktır.

 

[GursoyC]

Yaratılacak dosyayı sorduğum için örnek dosya vermek mümkün değil maalesef.

 

[Necdet]

Merhaba,

Makro Kaydet yöntemi ile elde edilmiş aşağıdaki kodları deneyiniz.

Dosyayı aynı gün içinde açarsanız uyarı verecektir.

Kodları ThisWorkBook'un sayfa bölmesine kopyalayınız.
Uyarılardan kurtulma kodları da size ait artık

Private Sub Workbook_Open()

    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
    Range("A1").Select

End Sub

 

[GursoyC]

Necdet bey merhaba,
Dediklerinizi uyguladım ancak ekteki uyarıyı aldım.

 

[GursoyC]

Afedersiniz, benim hatam. Verdiğiniz kod gayet güzel çalışıyor.
Teşekkür ederim.