Saat başı uyarı

[hurkanpisirici]

------------------------------------------------------------------------------------------------------------------------

Merhaba a sütununa sabah 8 den akşam 5 e kadar saatler yazdım.

Benim istediğim kısaca a sutunun da ki hücrelere yazdığım saatlerde (saatler değiştirilebilir olsun diye bunu istiyorum)

bir user form çıkarak beni uyarsın

yardım edecek arkadaşlara teşekkür ederim.

 

[fedeal]

sanırım oldu degişiklikler için makroları etkinleştirmeyin.

 

[hurkanpisirici]

sayın fedeal çok teşekkür ederim ellerinize sağlık harika olmuş

 

[fedeal]

şimdi daha iyi oldu tarih ve saat kodlar kasmıyor.
bu arada saat kodları alıntıdır. uyarladım.

 

[hurkanpisirici]

ilginize tekrar teşekkür edeirm sayın fedeal

Sub fedeal()
For i = 2 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
On Error Resume Next
Y = Sheets("Sayfa1").Cells(i, 1)
If Y = Sheets("Sayfa1").Range("c1") Then
UserForm1.Show
End If
Next
End Sub



2. satır hata verdi

 

[fedeal]

tekrar baktım bende calışıyor.hata vermiyor.

 

[hurkanpisirici]

Başka bir kitaba geçip çalışma yapınca hata verdi

ilk dosyada işime yaradı ama

 

[fedeal]

pardon workbooka kaydettigim kod yüzünden düzelttim.

 

[hurkanpisirici]

rica ederim çok teşekkür ederim sağolun

 

[cems]

Çok güzel gerçekten , tek sorun her saniyenin imleç'te kalp atışı gibi görünmesi. Bu engellenemez mi ?