DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub my_Procedure()
For i = 3 To 8
If Cells(i, 3) = Time Then
Cells(i, 3).Font.Color = vbBlue
Else
Cells(i, 3).Font.Color = vbWhite
End If
Next
auto_open
End Sub
Sub auto_open()
For i = 3 To 8
Application.OnTime Cells(i, 3), "my_Procedure"
Next
End Sub