İki Tarih Arasındaki Gün Sayısına Göre İşlem Yapmak

[mervebrlk]

Yapmaya çalıştığım işlemi anlatayım:
CommandButton_1 e tıkladığımda bugünün tarihinden "siparişler" sayfasının (4,11) hücresindeki tarihi çıkaracak. Bunu aynı sütundaki tüm satırlar için tekrarlayacak. Eğer sonuç 5ten küçükse "siparişler" sayfasındaki (i,3) hücresinin değerini ListBox1e ekleyecek. Denediğim iki kodu da aşağıya ekliyorum. Nerede hata yaptığımı belki siz bulursunuz. Şimdiden teşekkürler.

Private Sub CommandButton_1 Click()
For i = 4 To Sheets("siparişler").Range("ı65536").End(3).Row
If CLng(CDate(Date)) >= CLng(Sheets("siparişler").Range("k" & i).Value) - 5 Then
ListBox1.AddItem Sheets("siparişler").Range("c" & i).Value
End If
Next
End Sub

Private Sub CommandButton_1 Click()
Dim i, a As Integer
Dim date1, date2 As Date
For i=4 To 100
date1= Sheets("siparişer").Cells(i,11).Value
date2= Date
a = (date2 - date1)
If a <= 5 Then
ListBox1.AddItem Sheets("siparişler").Cells(i,3).Value

 

[systran]

çalışmanızın bir örneğini dosya yükleme sitelerine yükleyip burada paylaşın.

 

[mervebrlk]

Yardım

cevabınız için teşekkürler. buyrun:
http://dosya.co/e0hrya6himhn/örnek_dosya.xlsm.html

 

[mervebrlk]

iyi günler, bulduğum bu kodu çalıştırdım ama koddaki "date" den dolayı formatı ay/gün/yıl olan tarihler için çalışıyor. Fakat benim hesaba aldığım tarihler gün/ay/yıl şeklinde olduğu için çalıştıramadım. Nasıl bir düzeltme yapmamız gerekiyor, yardımcı olabilir misiniz?


Private Sub Workbook_Open()
For i = 3 To Sheets("Sayfa1").Range("ı65536").End(3).Row
If CLng(CDate(Date)) >= CLng(Sheets("Sayfa1").Range("ı" & i).Value) - 5 Then
MsgBox Sheets("Sayfa1").Range("d" & i).Value
End If
Next
End Sub