تقرير مرتب

[96007502]

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

الاساتذه الكرام .... المطلوب رجاءاً بالمرفق

report.rar

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

Sub Reportig_Wages()
For i = 13 To 21
For s = 3 To 11
If Cells(i, "J") = "" Then
Cells(i, "j") = Cells(i - 1, "J")
End If
If Cells(i, "K") = Cells(s, "C") And Cells(i, "J") = Cells(s, "B") Then
Cells(i, "L") = Cells(s, "D")
End If
Next
Next
End Sub

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

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

تم تعديل مارس 25, 2016 بواسطه زيزو العجوز

[96007502]

السلام عليكم

اخى الكريم شاكر مجهود حضرتك الكريم ولكن لم ينفذ الكود المطلوب

حيث بعد حذف الجدول الذى يمثل النتائج المتوقعه وتنفيذ الكود كانت النتيجة تكرار كلمة الاسم فى العمود الاول وفقط

ارجو ترحيل النتائج الى جدول فرعى بشكا مرتب... ولكم خالص الشكر والتقدير

[96007502]

للرفع

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

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

اليك الحل بطريقة اخرى

 

report.rar