Merhaba,
Projem de hücre içinde dinamik saat eklemek istiyorum. Buna göre saati gelen işler için bana mail atan bir sitem tasarladım. Fakat kod çalışırken bütün excel dosyalarını etkiliyor bir türlü kodu tek çalışma sayfası için çalıştıramadım. Yardımı dokunan tüm arkadaşlara şimdiden teşekkür ederim
Kod:
Dim SchedRecalc As Date
Sub Recalc()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks("PLAN.xlsm")
Set ws = wb.Sheets("Sayfa1")
wb.Activate
ws.Select
Range("Q1").Value = Format(Time, "hh:mm:ss")
Range("J1").Value = Range("Q1").Value - TimeValue("03:00:00") 'UTC SAAT İÇİN
If Range("l1").Value = "YES" Then
CDO_Mail_Gonder
End If
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Durdur()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
Projem de hücre içinde dinamik saat eklemek istiyorum. Buna göre saati gelen işler için bana mail atan bir sitem tasarladım. Fakat kod çalışırken bütün excel dosyalarını etkiliyor bir türlü kodu tek çalışma sayfası için çalıştıramadım. Yardımı dokunan tüm arkadaşlara şimdiden teşekkür ederim
Kod:
Dim SchedRecalc As Date
Sub Recalc()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks("PLAN.xlsm")
Set ws = wb.Sheets("Sayfa1")
wb.Activate
ws.Select
Range("Q1").Value = Format(Time, "hh:mm:ss")
Range("J1").Value = Range("Q1").Value - TimeValue("03:00:00") 'UTC SAAT İÇİN
If Range("l1").Value = "YES" Then
CDO_Mail_Gonder
End If
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Durdur()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub