مطلوب اضافة اخر تاريخ لفاتورة العملاء مقابل اسم كل عميل

[a7medsedik]

السلام عليكم

بعد التحية

ارجو اضافة اخر تاريخ فاتورة للعميل في العمود المخصص

لها حيث انني بحثت ولم اوفق في ايجاد ذلك

محمد عبد المنعم.rar

تم تعديل أغسطس 29, 2017 بواسطه a7medsedik

[سليم حاصبيا]

انسخ هذه المعادلة الى الخلية  D6  

استعمل Ctrl+Shift+Enter , وليس Enter ,وحدها ثم اسحب الى باقي الخلايا

لا تنس تنسيق الخلايا في العامود D  الى تاريخ

=IFERROR(INDIRECT("'"&A6&"'!C"&MAX(--(INDIRECT("'"&$A6&"'!$C$1:$C$100")<>"")*(ROW($C$1:$C$100)))),"")

 

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

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

اضافة الى المعادالة الرائعة للاخ سليم

اليك الكود التالى .... تأكد من تطابق الاسماء بشيت العملاء مع اسمائهم فى الفواتير

Sub LastDate()
Dim sh As Worksheet, x As String
Dim LR As Long, p As Long, y As Date
LR = Sheets("العملاء").Range("C" & Rows.Count).End(xlUp).Row + 5
For p = 6 To LR
For Each sh In ThisWorkbook.Worksheets
x = sh.Name
If x <> "العملاء" Then
If Sheets("العملاء").Range("C" & p) <> "" Then
If sh.Range("H2").Value = Sheets("العملاء").Range("C" & p) Then
y = WorksheetFunction.Max(sh.Range("C9:C1000"))

Sheets("العملاء").Range("E" & p) = y
End If
End If
End If
Next
Next
End Sub

 

[a7medsedik]

20 hours ago, سليم حاصبيا said:

انسخ هذه المعادلة الى الخلية  D6  

استعمل Ctrl+Shift+Enter , وليس Enter ,وحدها ثم اسحب الى باقي الخلايا

لا تنس تنسيق الخلايا في العامود D  الى تاريخ

=IFERROR(INDIRECT("'"&A6&"'!C"&MAX(--(INDIRECT("'"&$A6&"'!$C$1:$C$100")<>"")*(ROW($C$1:$C$100)))),"")

 

الف شكر يا غالي تعبتك

20 hours ago, زيزو العجوز said:

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

اضافة الى المعادالة الرائعة للاخ سليم

اليك الكود التالى .... تأكد من تطابق الاسماء بشيت العملاء مع اسمائهم فى الفواتير

Sub LastDate()
Dim sh As Worksheet, x As String
Dim LR As Long, p As Long, y As Date
LR = Sheets("العملاء").Range("C" & Rows.Count).End(xlUp).Row + 5
For p = 6 To LR
For Each sh In ThisWorkbook.Worksheets
x = sh.Name
If x <> "العملاء" Then
If Sheets("العملاء").Range("C" & p) <> "" Then
If sh.Range("H2").Value = Sheets("العملاء").Range("C" & p) Then
y = WorksheetFunction.Max(sh.Range("C9:C1000"))

Sheets("العملاء").Range("E" & p) = y
End If
End If
End If
Next
Next
End Sub

 

الف شكر استاذي الفاضل