VBA Kod tüm Excel sayfalarında çalışıyor.

[heromur]

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

 

[Asri]

Farklı bir yöntem olarak;

Program ilk çalışmaya başladığında tüm verileri bir dizi değişkene aktarın.
Daha sonra bu dizi değişken üzerinden kontrollerinizi sağlayıp mail gönderim işlemini yapın.