Makroya Tarih Kontrolü Eklemek

[1Al2Ver]

Merhaba,

Aşağıdaki makro "VERİLER" sayfası "P" sütunundan veri alıyor,

"P" sütunundaki tarihler, manuel girilmekte, iş günü içermekte ve yıllara göre küçükten büyüğe sıralanmakta,

İsteğim, "VERİLER" sayfası, "P" sütunundaki tarihler küçükten büyüğe sıralı değilse yada mükerrer ise mesaj vererek kodun çalışmamasıdır,

Teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub

Set s1 = Sheets("VERİLER")
With Sheets("AYLIK_LİSTE")
.Range("B3:B26").ClearContents

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

X = 3
For i = 2 To 750
If s1.Cells(i, "P") >= .Cells(1, "B") And s1.Cells(i, "P") <= .Cells(1, "D") Then
.Cells(X, "B") = s1.Cells(i, "P")
X = X + 1
End If
Next
End With

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

End Sub

 

[1Al2Ver]

Merhaba,

Çözüme yardımcı olması maksatlı örnek dosya ek'tedir,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Çözüm arayışım devam etmektedir,

Teşekkür ederim.

 

[1Al2Ver]

Arkadaşlar merhaba,

Çözüm arayışım hala devam etmektedir,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

1 no.lu mesajdaki isteğim olamıyor ise, ekli kodun ;

Önce, "VERİLER" sayfası "P2 : P1000" arasını benzersiz ve küçükten büyüğe sıralayıp, sonrasında diğer işlevini yapması da çözüm ola bilir.

Dosya 2 no.lu mesaj ekindedir.

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

5 nolu mesajda istediğimi, makro kaydet ve Call metodu ile uzun yoldan çözdüm.

Teşekkür ederim.

 

[Korhan Ayhan]

Açıkçası benim beklediğim/beklentim son mesajınızda yazdığınız yorumdu... Tebrikler..

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Değerli görüşleriniz ve iltifatınız için teşekkür ederim.

Saygılarımla.