ThisWorkbook Özürlü Personel Hatırlatma

[YasarPiskin]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Çalışma kitabının her açılışında EM2 hücresindeki değer göre "6 ÖZÜRLÜ PERSONEL İHTİYACINIZ VAR" şeklide hatırlatma veren ThisWorkbook sayfasındaki mevcut kod çalışmıyor, bu hususta desteklerinizi talep ediyorum.

 

İçi Boş Olan Modülleri Makroyla Silme

Toplu Mutabakabat Yazdır Butonu Ekleme

[Ömer BARAN]

Belgenizin, sorunsuz çalıştığı dönemde;
A sütununda, alttan yukarı doğru ilk dolu hücrede BUGÜN'ün tarihi varmış demek ki.
Mevcut koddaki şu satırda bu tarih kontrol ediliyor, bulunamadığı için de sonraki aşamaya geçilemiyor durumda.

If Sayfa1.Range("A" & Sayfa1.Rows.Count).End(xlUp).Value <> DateValue(Now()) Then

Ayrıca bir de hatırlatma: koddaki DateValue(Now()) kısmının yerine DATE yazın.
İşleyiş değişmeyecek, A sütunundaki son dolu hücrede BUGÜN tarihi olmazsa istediğiniz gerçekleşmez.

 

[Ömer BARAN]

Yanlış anlamışım.

A sütunundaki değerleri fark etmemişim.
Kodda, A sütunundaki son dolu satırdaki değer BUGÜN'ün tarihine EŞİT OLMADIĞINDA kod devreye girer.

Kodun ilgili kısmını şöyle değiştirin,
sonra da A sütunundaki son dolu hücrede yer alan BUGÜN tarihini silip dosyayı kaydedip kapatın ve tekrar açın.

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

 

[YasarPiskin]

Çok teşekkür ederim.