Çalışma Kitabı en son ne zaman kayıt edildi???

[bekir38]

merhaba arkadaşlar,,,

formu aradım ama bulamadım,,, daha önceleri vardı sanırım,,, ama şimdi beceremedim,,,

benim istediğim şöyle birşey,,,

bir çalışma kitabına veriler giriliyor,,, bir başkasıda bu verileri alıp kullanıyor,,, fakat bu verilerin ne zaman girildiğini bir yere (aynı çalışma kitabı, 2. sayfasıda olabilir) kayır altına alınması ve değiştirilmemesi,,,

sadece kayıt yapıldığında yeni saati oraya kaydetmesi,,

böyle bir örnek çalışması olan veya bu konuda yardımcı olacakların paylaşımlarını bekliyorum,,,

 

[Necdet]

Merhaba,

aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayıp dener misiniz?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(ThisWorkbook.FullName)
    Sheets(2).[A1] = f.DateLastModified
End Sub

 

[bekir38]

Merhaba,

aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayıp dener misiniz?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(ThisWorkbook.FullName)
    Sheets(2).[A1] = f.DateLastModified
End Sub

Necdet bey teşekkürler,,, çalıştı,,,

yalnız bu kodu makro olmadan yapma şansımız varmı??? yani makroları etkinleştirmezse sonuç eski saat orda kalıyor,,,

her kayıt işlemi yaptığında mutlaka saat atmalı,,, bu mümkün mü aceba???

 

[Necdet]

Merhaba,

Bu tür şeyler sadece makro ile olabilmekte.

Her kayıt işleminde tarih ve saat çalışacaksa yine makro ile yapmak gerekir.
Örnek dosya eklerseniz çözüm sunacak arkadaşımıza yardımcı olmuş olursunuz.

 

[bekir38]

tamamdır Necdet bey,, ilgi ve alaka için çok çok teşekkürler,,,