1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,713
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
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
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