Y

Çözüldü ThisWorkbook Özürlü Personel Hatırlatma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Y

YasarPiskin

Yıllık Forum Üyesi
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.
 

Ekli dosyalar

Çözüm
Ö
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.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Tarihe göre sırala Oylamaya göre sırala
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.
 
Oyla 0 Olumsuz oyla
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.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst