مساعدة فى تظليل صف

[omda1emad]

السلام عليكم ورحمة الله

الاخوة الافاضل ارجو مساعدتى فى هذا الملف

 ، العميل ده بيحاسبنى على الفاتورة كل 30يوم ، يعنى مثلا لو اخد فاتورة يوم 1 يناير وفاتورة يوم 3 يناير ، بيحاسبنى على فاتورة1 يناير فى1 فبراير وفاتورة 3 يناير فى 3 فبراير وهكذا

ولكن مش شرط انه يحاسبنى بترتيب التواريخ

 ، يعنى ممكن يحاسبنى على فاتورة 3 قبل 1 اذا كانت اقل فى المبلغ

 

اللى انا عايزه بمجرد ما اكتب له المبلغ (الى فى عمود التحصيل)  اذا كان بيطابق مع قيمة الفاتورة بعد الخصم (اللى فى عمود الفواتير) يظللى صف الفواتير

مرفق الملف 

test1.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اكتب الكود التالى فى موديول

Sub ColoredRows()
For i = 10 To 34
For Each c In Range("E10:E34")
If Cells(i, "H") <> "" Then
If c.Value = Cells(i, "H") Then
Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 10
End If
End If
Next

Next
End Sub

وفى حدث الصفحة اكتب الكود التالى

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 8 And Target.Row < 10 And Target.Row > 34 Then Exit Sub
Call ColoredRows
End Sub