[ÇÖZÜLDÜ] Dosya Save Tarihi Makrosu

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kodun Workbook'a uyarlanmış hali "Private" nasıl olmalıdır ?


Sub Tarih()
[a1]=ActiveWorkbook.BuiltinDocumentProperties(11)
End Sub

 

[Ayhan Ercan]

Merhaba

Workbook'a uyarlamak "Private" olarak ???

Komutun hangi olaydan sonra veya hangi olayda gerçekleşmesini istiyosunuz? Bunuda belirtirseniz yardım almak daha kolay olacaktır...

 

[baydeniro]

Sayın Ayhan Ercan ilginize teşekkür ederim. Bu komut çalıştırıldığında ilgli dosyanın oluşturulduğu tarihi A1 hücresine yazıyor. Komutun Workbook altına kopyalanması ile dosya açıldığında dosya oluşum tarihini kendiliğinden yazmasını nasıl sağlayabiliriz ?

 

[Ayhan Ercan]

Aşağıdaki kodu denermisiniz...? (Ancak Çalışma kitabının hangi sayfasının A1 hücresini kullanmak isityorsanız onuda belirtmeyi unutmayınız)

Private Sub Workbook_Open()
Sheets("Sayfa1").[a1] = ActiveWorkbook.BuiltinDocumentProperties(11)
End Sub

 

[baydeniro]

Sayın Ayhan Ercan, yardımınız için çok teşekkür ederim. Allah sizden razı olsun, sağlıcakla kalın.

 

[Ayhan Ercan]

Sayın Ayhan Ercan, yardımınız için çok teşekkür ederim. Allah sizden razı olsun, sağlıcakla kalın.

Rica ederim..
İyi Çalışmalar ... k::

(Sorununuz çözüldü ise, Konu araçlarından "Bu soruyu [ÇÖZÜLDÜ] olarak işaretle" yi tıklayarak konuyu bağlayınız.