عايز أفكار لطريقة حل مشكلة تاريخ إستحقاق فاتورة

[شريف ( أبو عبدالرحمن )]

السادة الأفاضل / عايز أفكار وحلول لمشكلة ترحيل قيمة فاتورة من خانة فواتير غير مستحقة ونسخها لخانة فواتير مستحقة عند حلول تاريخ الاستحقاق مع حذفها من عمود الفواتير الغير مستحقة 

Officna 2.XLSX

[أ / محمد صالح]

إن شاء اللّه يقوم هذا الكود بالغرض في حدث عند تنشيط الصفحة

Private Sub Worksheet_Activate()
Dim lr As Long, r As Long
lr = Sheet1.Cells(Rows.Count, 2).End(3).Row
For r = 4 To lr
If Range("c" & r) <= Date And Range("d" & r) <> "" Then
Range("e" & r) = Range("d" & r)
Range("d" & r).ClearContents
End If
Next r
End Sub

كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود

وحفظ الملف بامتداد xlsb من تبويب file ثم save as

بالتوفيق