ThisWorkbook Özürlü Personel Hatırlatma

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

YasarPiskin

VIP Üye
Kullanıcı
Katılım
6 Ara 2016
Mesajlar
2,059
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

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

VBA: 
İndirmek 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: 
İndirmek 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...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt