Soru Tarih Formatı Bazı Sayfalarda Çalışmıyor

[TURKOLOG]

Aşağıdaki kodla bir iki sayfada son günü veya son gune 2 gün kalanları mesajla uyarı alıyorum ama yeni actigim sayfada artık uyarı vermiyor.
Kodu calistiriyorum 19. Sayfa için uyarı veriyor ama 22. Sayfa için ayni uyarıyı vermiyor.
Hücre biçimlerdir tarih yapıyorum ama yine olmu

Sub Tarih_Sırala()
Son = Range("D1048576").End(xlUp).Row

''''''''''''''''''' Uzaktan Yakına '''''''''''''''''''''''''''''''''''''''''''''''''''''''
Range("D143:I" & Son).Sort Key1:=Range("H143"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''' Yakından Uzağa'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Range("D142:I" & son).Sort Key1:=Range("H142"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       End Sub

yor. Nerede hata yapıyorum acaba

 

[YUSUF44]

Sizin gibi tecrübeli bir üyenin bu tür sorularda dosya yapısının önemli olduğunu bilmesi gerekir bence.

 

[TURKOLOG]

Sizin gibi tecrübeli bir üyenin bu tür sorularda dosya yapısının önemli olduğunu bilmesi gerekir bence.

Yusuf Hocam çok teşekkür ederim. Ama hücreleri tarih formatına alıyorum 22 sayfada Sonuç değişmiyor. Halbuki 19. Sayfada da hücreler tarih formatında ve kod çalışıyor. Yardımcı olursanız sevinirim.

 

[YUSUF44]

E hani dosya?

 

[TURKOLOG]

E hani dosya?

E hani dosya?

Harici Dosya Silinebilir.
Hocam bir de listboxta seçtiğim dosyaları ail diyince silmiyor. Ona da bakmanız mümkün mü.

 

[YUSUF44]

Birinci mesajda belirttiğiniz kod nerede bulunuyor ve nasıl çalıştırılıyor?

 

[TURKOLOG]

Birinci mesajda belirttiğiniz kod nerede bulunuyor ve nasıl çalıştırılıyor?

19 da

 

[TURKOLOG]

19 da

Hocam son iki satırda gerçek bilgi vardı dosyayı güncelledim bu yüzden an itibari ile

 

[YUSUF44]

Üzgünüm, ben dosyanızda Tarih_Sırala diye bir makro göremedim.

 

[TURKOLOG]

Üzgünüm, ben dosyanızda Tarih_Sırala diye bir makro göremedim.

Hocam hatırlatıcı kodları üzerinde işlem yapacaz. Tarih sırala kodları tarihi sıralıyor. Tarih kodlar aşağıda

Sub Tarih_Sırala()
Son = Range("D1048576").End(xlUp).Row

''''''''''''''''''' Uzaktan Yakına '''''''''''''''''''''''''''''''''''''''''''''''''''''''
Range("D143:I" & Son).Sort Key1:=Range("H143"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''' Yakından Uzağa'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Range("D142:I" & son).Sort Key1:=Range("H142"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       End Sub

 

[YUSUF44]

Hatırlatıcı kodlarında işlem yapılacaksa neden en başta bu kodları paylaştınız anlamadım.

Ne yapmak istediğinizi adım adım anlatır mısınız?

 

[TURKOLOG]

1. Işlem Hocam 19 sayfada ve 22 sayfada senelik izin kısıklı alanda bilgi var.
Aktif pasif tuşuna basınca 19 sayfadaki başlama tarihine 2ngun kalan ve başlama günü gelenler msg şeklinde ekrana geliyor . Ama 22 sayfada mesajda ekrana hiç birşey gelmiyor . Tarihi naparsaniz yapın mesaj şeklinde uyarı gelmiyor

 

[YUSUF44]

Hatırlatıcı makrosunu incelediğimde 22 adlı sayfada şartlara uyan herhangi bir satır olmadığı için istediğiniz sonucu alamadığınızı gördüm. Şartınız aradaki fark 1 ya da 2 gün ise mesaj verilmesi şeklinde. Dosyanızda ise bugünden sonra 21 ya da 22 ağustos olan bir satır olmadığı için istediğiniz sonucu alamıyorsunuz. Herhangi bir tarihi 21/08/2021 ya da 22/08/2021 yaparsanız çalıştığını görebilirsiniz.

 

[TURKOLOG]

Deniyorum Hocam

 

[TURKOLOG]

Deniyorum Hocam

Hocam 22.08.2021 veya 23/08/2021 yapıyorum olmuyor

 

[YUSUF44]

Örnek dosyanızda denedim ve oldu:

Tarih uyarı mesajı

 

[TURKOLOG]

Örnek dosyanızda denedim ve oldu:

Tarih uyarı mesajı

Hocam sebeb-i nedir ki 19 da aynı uyarımesajıni bende alıyorum 22 de alamiyorum

 

[YUSUF44]

Dosyayı mesaj almanız gerektiğini düşündüğünüz ama alamadığınız haliyle yükler misiniz?

 

[TURKOLOG]

Dosyayı mesaj almanız gerektiğini düşündüğünüz ama alamadığınız haliyle yükler misiniz?

Hocam zaten o hali ile yükledim

 

[YUSUF44]

İyi de o halinde mesaj vermemesinin normal olduğunu açıkladım ya! Dosyanızın o halinde 22 adlı sayfada şartlara uyan hiçbir satır olmadığı için mesaj boş geliyor. Mesaj almamak da söz konusu değil, mesaj alıyorsunuz ama içeriği boş oluyor doğal olarak.

Paylaştığım ekran görüntüsünde gösterdim, 22 adlı sayfanın H162 hücresini 21.08.2021 ve H163 hücresini 22.08.2021 yaptığımda bu satırlar için mesaj verdi normal bir şekilde.