Zamana bağlı olarak formüllerin değere dönüşmesi

[mybluecat]

merhabalar,

Benzer bir konuyu daha önce açmıştım ve yardımcı olan arkadaşlar olmuştu.
Hücrelere formül ile gelen verileri belirli bir saatten sonra dosya açılırsa değere dönüştüren bir kod önerilmişti.

Sub kontrol()
   islemzamani = TimeValue("15:20:00")
   zaman = Time
   If zaman > islemzamani Then
    ActiveSheet.Unprotect "3452"
    Sheets(1).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
     ActiveSheet.Protect "3452"
   End If
End Sub

Yukarıdaki mevcut kodu aynı zamanda tarihe bağımlı hale getirebilirmiyiz.Kodun kullanıldığı dosyada örneğin AN3 hücresinde bulunan tarihe atıfta bulunarak bu tarihi geçtikten sonra benzer işlemi yaptırabilirmiyiz. Sadece tarihe bağımlıda olabilir.Saat şartı kalkabilir.

Teşekkürler....

 

[dEdE]

Merhaba,
Kodun iki satırını aşağıdaki şekilde değiştirip dener misiniz? Tarihi kendinize göre değiştirmeyi unutmayınız.

   islemzamani = DateValue(Range("AN3"))
   zaman = Date

 

[mybluecat]

Evet bu şekilde başarılı bir şekilde çalışıyor.Elinize sağlık.

Teşekkür ederim...