gamalin2

الاخوة الافاضل هل ممكن التكرم وشرح استخدام select case في الاكواد بمثال لو امكن او امثلة في ملف اكون شاكر

تم اضافة السطر التالي وتم حل الامر وافر التحية للجميع Sheets("Accmove").Rows("3:3").AutoFilter

ارجوا التكرم لو المطلوب مش واضح الاستفسار لاوضح اكثر المطلوب

الاخوة الافاضل في كود الترحيل التالي حصلت معايا مشكلة وهي في حالة وجود فلتر في االصفحة المرحل اليها يتم الكتابة على سطور مخفية فيها بيانات هل يمكن جعل الكسل يفك الفلتر في الصفحة المراد الترحيل اليها قبل الترحيل واعادته بعد الترحيل مثلا With Sheets("cashmove").[a10000].End(xlUp) .Offset(1, 0).FormulaR1C1 = "=if((r[-1]c)<>""ã"",(r[-1]c)+1,1)" .Offset(1, 1) = Cells(6, 2) .Offset(1, 2) = Cells(7, 2) .Offset(1, 3) = Cells(4, 2) .Offset(1, 4) = Cells(9, 2) .Offset(1, 5) = Cells(5, 2)

الاخوة الافاضل لدي ملف به حسابات للعملاء عدد صفحات كبير جدا و به شيت للملخص به اسم ولينك لكل صفحة من صفحات العملاء واريد عمل كود ليجمع عمود المدين من شيت كل عميل ويضعه بجوار اسمه او يبحث عن اسم الصفحة ويجمع المدين ويضعه في خانة اجمالي المدين وكذلك الدائن ويضع الفرق بينهما في خانة الرصيد مرفق ملف للتوضيح حسابات.xlsm

الاخوة الافاضل لدي نموذج لاذن اضافة اريد ان يكون غير محدد عدد الاسطر ويكون اول سطر للادخال هو السطر رقم 7 واستخدمت الكود التالي بمساعدة الاخوة هنا ولكن اريد ايضا بعد الانتهاء وترحيل الاذت محو الاسطر التي بها بيانات جميعها من السطر 7 وحتى الاخر وعند محاولة تنفيذ لك في وجود هذا الكود تحدث خطأ ويخرج البرنامج الكود هو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 7 And Target.Column < 8 And Target.Column <> 3 Then Range("a" & Target.Row).Formula = "=IF(R[-1]C=""ã"",1,R[-1]C+1)" Range("c" & Target.Row).Formula = "=IFERROR(VLOOKUP(RC[-1],items!C[-1],2,FALSE),"""")" Range("h" & Target.Row).Formula = "=RC[-2]*RC[-1]" Range("h" & Target.Row + 1).Formula = "=sum(r8+r[c-1])" Range("h" & Target.Row + 2).Formula = "=RC[-1]*1.14" End If End Sub المطلوب كيف يمكن حذه الاسطر من الشيت وهذا الكود موجود وينفذ

للرفع

الاستاذ lionheart الكود السابق اكثر من رائع رائع استانا الفاضل تم التعديل على الكود السابق ليعطي الناتج كما بالملف المرفق فضلا لو ممكن تضطلع عليه ولكن هناك امر واحد وهو اذا كان هناك تكرارات في اول مرة يعني وشيت product فاضي لسة بيجيب المجموعة كاملة بتكرارتها ... وتم التغلم على ذلك بتظليل المدى كامل وحذف التكرارات والحمد لله بقي امر لم اتمكن من عمله لصعوبة الكود بالنسبة لي عمل حلقة لوضع قيمة الانتاج المحقق في العمود الخاص باليوم ( من عمود k في شيت check الى اليوم المقابل امام الصنف الخاص به بنفس الشروط نفس الشهر والماركة واسم الصنف ) رقم الايام مكتوب في الشيت الاخر product في سطر 4 عفوا انا كنت فاكر الكود هيبقى اسهل وهقدر اتعلم منه واعمل مثلة لتوزيع الانتاج المحقق لو امكنك مساعدتي جزاك الله خيرا وان لم تسمح ظروفك فجزيل الشكر لهذه الخدمة العظيمة وسأستمر في المحاولة مستعينا بالكود بتاعك اشكرك بشده ممنوع تكرار نفس المشاركات .... والا ستحذف جميع المشاركات ,,, يكفيك كتابة للـــرفع daily.xlsm

الاستاذ lionheart الكود السابق اكثر من رائع رائع استانا الفاضل تم التعديل على الكود السابق ليعطي الناتج كما بالملف المرفق فضلا لو ممكن تضطلع عليه ولكن هناك امر واحد وهو اذا كان هناك تكرارات في اول مرة يعني وشيت product فاضي لسة بيجيب المجموعة كاملة بتكرارتها ... وتم التغلم على ذلك بتظليل المدى كامل وحذف التكرارات والحمد لله بقي امر لم اتمكن من عمله لصعوبة الكود بالنسبة لي عمل حلقة لوضع قيمة الانتاج المحقق في العمود الخاص باليوم ( من عمود k في شيت check الى اليوم المقابل امام الصنف الخاص به بنفس الشروط نفس الشهر والماركة واسم الصنف ) رقم الايام مكتوب في الشيت الاخر product في سطر 4 عفوا انا كنت فاكر الكود هيبقى اسهل وهقدر اتعلم منه واعمل مثلة لتوزيع الانتاج المحقق لو امكنك مساعدتي جزاك الله خيرا وان لم تسمح ظروفك فجزيل الشكر لهذه الخدمة العظيمة وسأستمر في المحاولة مستعينا بالكود بتاعك اشكرك بشده daily.xlsm

رجاء الافادة هل ضروري ان انشئ موضوعا جديدا بالطلب الجديد ام بما انه استكمال للطلب السابق ابقيه هنا ؟ اخشى الا يمر احد الخبراء على هذا الموضوع طالما تم الاجابة عليه

اشكرك استاذنا تم الحل في مشاركة اخرى بواسطة الاستاذ lionheart في مشاركة بعنوان الحلقات التكرارية اشكركم جميعا وافر التحية والاحترام

رائع استانا الفاضل تم التعديل على الكود السابق ليعطي الناتج كما بالملف المرفق فضلا لو ممكن تضطلع عليه ولكن هناك امر واحد وهو اذا كان هناك تكرارات في اول مرة يعني وشيت product فاضب لسة بيجيب المجموعة كاملة بتكرارتها ... وتم التغلم على ذلك بتظليل المدى كامل وحذف التكرارات والحمد لله بقي امر لم اتمكن من عمله لصعوبة الكود بالنسبة لي وايضا عمل حلقة لوضع قيمة الانتاج المحقق في العمود الخاص باليوم عفوا انا كنت فاكر الكود هيبقى اسهل وهقدر اتعلم منه واعمل مثلة لتوزيع الانتاج المحقق لو امكنك مساعدتي جزاك الله خيرا وان لم تسمح ظروفك فجزيل الشكر لهذه الخدمة العظيمة وسأستمر في المحاولة مستعينا بالكود بتاعك اشكرك بشده daily.xlsm

اشكرك اخي الكريم الكود شغال وتمام لكنه معقد حبتين بالنسبة لي لفهمه للتعديل عليه وتطويعه عكست فقط في الكود w1 sheet 2 و w2 sheet 1 فتم النقل اشكرك اخي الكريم

الاخوة الافاضل لدي مجموعة من البيانات في شيت اريد البحث عنها في مجموعة اخرى وان لم توجد يضيفها اليها وان وجدت يتجاوزها في المثال المرفق اريد البحث عن الاصناف في شيت 1 في الموجودة في شيت 2 و يضيف الغير موجودة فقط علما بان اختلاف الشهر او المنتج او الماركة يعتبر جديد حلقات متداخلة.xlsx

الاخوة الافاضل هل الطلب غير واضح اريد عمل حلقتين تكراريتين مداخلتين ارجوا التواصل لشرح ما اريده مع وافر التحية