أبو حنــــين

السلام عليكم اذا غيرت اسماء الأشهر بارقام 1 ، 2 ، 3 ، بدا من Jan , Feb , Apr فيمكن استعمال الدالة التالية في الخلية C6 =SUMPRODUCT(--(A!$B$3:$M$3=K17);--(A!$B$4:$M$4))

السلام عليكم أرى أن الحل المناسب في يد الأعضاء . لو إلــتزم كل عضو بعدم الإجابة عن السؤال الذي لا يتقيد صاحبه بشروط المنتدى ( عدم ارفاق ملف - شرح غير موجود او غير كافي - العنوان غير مناسب . . . .. ) لتم التخلص من هذه المشكلة في وقت قصير .

يا ســــــــلالالالالالالالالالالالالام . . . رائع . . . . فعلا رائع

السلام عليكم هذه محاولة حسب فهمي للموضوع exm3.rar

امهلني بعض الوقت حسب المستطاع و ان شاء الله خير

الحمد لله

غير Dim R As Integer بهذا السطر Dim R As Long اقتباس تعديل Quote this و تأكد جيدا من اسم الورقة SH2

قم بارجاع السطر For T = 2 To SH2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

غير في التصريح هذا السطر Dim T As Integer بهذا السطر Dim T As Long

مرحبا أخي هل اسماء الادوية يمكن ان تتكرر مع اكثر من مورد بمعني المورد سليمان يرسل دواء اسمه Actifed و مورد آخر ابراهيم مثلا يرسل نفس الدواد ------------------------------- هلل المطلوب معرفة ما هو في المخزون او معرفة الكمية المستوردة من مورد ما ارجو بعض التوضيحات لطريقة العمل

جرب أن تغير السطر التالي For T = 2 To SH2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row بهذا السطر واخبرني بالنتيجة For T = 2 To 35000

مرحبا هل اخذت صورة للرسالة التي ظهرت عند الخطأ ؟

مرحبا الدالة ABS تحذف الاشارة السالبة و تعطي القيمة المطلقة للعدد مثال =B2-A2 =ABS(B2-A2)

lمرحبا اخي صلاح ربما هذا الكود يفي بالغرض Sub CopyTofilter() Dim SH1 As Worksheet, SH2 As Worksheet, R As Integer, T As Integer, Date1 As Double, Date2 As Double R = 1 Set SH1 = Sheets("filter"): Set SH2 = Sheets("all data") Date1 = SH1.Range("L2"): Date2 = SH1.Range("M2") SH1.Range("A2:K" & SH1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row) = "" Application.ScreenUpdating = False For T = 2 To SH2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row Select Case SH2.Cells(T, 2).Value2: Case Date1 To Date2 R = R + 1 SH2.Range("A" & T).Resize(, 11).Copy SH1.Range("A" & R).PasteSpecial xlPasteValues End Select Next Application.ScreenUpdating = True End Sub

مرحبا جرب المرفق ترحيل عمود الى عمود وتفريغ الاول.rar

مرحبا جرب المرفق Book222.rar

مرحبا للانتقال الى اي ورقة قم بالضغط مرتين متتاليتين على اي خلية ثم اختر من القائمة Book2.rar

أخي ياسر جزيت الشكر الجزيل و أمدك الله العمر الطويل و يسر لك من السبل خير سبيل يا ياسر يا خليل

اسعد الله مساءك اخي سعيد لو ارفقت ملفا توضح فيه المطلوب لكان احسن

عندما افتح الملف لا اجد شيئا حتى اوراق العمل غير موجودة

مرحبا جرب المرفق مثال2.rar

السلام عليكم الملف الذي ارسلته اعتقد انه غير صالح

السلام عليكم جرب المرفق اخي حسابات.rar

مرحبا هذا تصوري لصفحة الموردين حسب ما فهمت من ملفك ان كانت بهذه الطريقة اخبرني عن الخطوة التالية مثال.rar

مرحبا جرب المرفق 3حذف و لصق.rar