سؤال: تحويل أسطر لاعمدة مع مراعاة بعض الشروط

[الحامد الشاكر]

الاخوة الكرام

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

يرجى لطفاً الغطلاع على الملف المرفق والذي تم شرح الطلب فيه بالتفصيل

مع أرقى التحيات

NOV 12.zip

[عبدالله المجرب]

السلام عليكم

ضع هذا الكود في زر أمر

Sub MySum()

[G4:AJ4].ClearContents

For R = 4 To 74

If Cells(R, 2) = [F4] Then

For i = 7 To 36

If Cells(R, 3) = Cells(1, i) Then Cells(4, i) = Cells(4, i) + Cells(R, 4)

Next

End If

Next

End Sub

ثم ضع الاسم الذي تريد في الخلية F4 ثم فعل الكود

[الحامد الشاكر]

الأخ ابو أحمد

مرفقاً تجد الملف مطبق فيه الحل المقترح ولكن لا يعمل بشكل صحيح إطلاقاً

NOV 12.zip

[عبدالله المجرب]

السلام عليكم

تفضل المرفق

تم عمل قائمة منسدلة مرنة وتلقائية في الخلية F4

NOV 12.rar

[عبدالله المجرب]

الأخ ابو أحمد

مرفقاً تجد الملف مطبق فيه الحل المقترح ولكن لا يعمل بشكل صحيح إطلاقاً

في مرفقك

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

ويتم التعامل معها بانها تخص شهر يناير وليس نوفمبر

قم بكتابة التاريخ بهذه الطريقة

01 ثم 11 ثم انتر ثم اسحب افقياً حتى تاريخ 30/11/2012

ثم فعل الكود في مرفقك وسيعمل

===