hücre kıyaslaması ile satır taşıma

[BLUESEA]

Lütfen Yardım,,,,,
Ekte sunduğum dosyada " 2005 AÇIK SİPARİÞLER" sheet'inde yer alan tabloda "B2" de yer alan tarih (bugün) ile alt satırlardaki sipariş tarihleri arasındaki fark 10 günü geçtiğinde o satırı komple alıp " ACİL LİSTESİ" Sheet'ine taşınasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu "2005 AÇIK SİPARİÞLER" sayfasındaki bir butona atayarak deneyin.

[vb:1:8e91b3630d]Sub aktar()
Set s1 = Sheets("ACİL LİSTESİ")
s1.[a2:m65536].ClearContents
For a = 3 To [a65536].End(3).Row
If ([b2] - Cells(a, 2)) > 10 Then
c = c + 1
For b = 1 To 13
s1.Cells(c + 1, b) = Cells(a, b)
Next
End If
Next
s1.Select
MsgBox "AKTARMA TAMAMLANDI"
End Sub
[/vb:1:8e91b3630d]