الخطيب بيبوو

من فضلكم ا-محمدهشام-حسونة محتاج ضرورى جدا الكود ده من عمل ا- محمد هشام

يتم التوضيح للمساعدة طلبك غير موضح ماذا تريد

يتم عمل كود برمجى واخذ الصف بداية من B4 الى T4 البحث فى صفحة TOUTAL عن الاسم فى العمود رقم a4 ان وجد الاسم فى صفحة JOURNAL فى العمود من C4 الى ملا نهاية المطلوب "- يتم عمل كود برمجى واخذ نسخ الصف بداية من B4 الى T4 فى عدم وجود للاسم فى صفحة toutal يتم كتابنه الاسم فى اخر خليه فى صفحة TOUTAL فى العمود رقم a4 يتم نسخ صفحة embt1 ثم نسخ الصف بداية من B4 الى T4 المهم جدااااا عدم تكرار العمليات عند النسخ اصدار جديد للعمليات المحاسبية2025.xlsm

اريد اللغة معرب الى اللغة العربية

السادة المحترمين ممكن اخر اصدار KutoolsforExcelSetup كامل بالغة العربية والتفعيل اخر اصدار والورد ايضا اكون شاكر ليكم

تسلم ايدك

تمام حضرتك تسلم ايدك جزاك الله كل خير

اولا جزاك كل خير لكن ليس هذا المطلوب شيت الاضافات يوجد 5 اعمدة بنم نرحليهم (رقم اذن الاضافة و التاريخ و الاسم المورد و كمية توريد خارجى و تحويل وارد\ مرتجع موقع) الى بطاقة الصنف وشيت الصرف ايضا نفس 6 اعمده يتم ترحيلهم (رقم اذن الصرف والتاريخ و الاسم الصرف والى الموقع و تحويل صادر \ مرتجعات مشتريات و كمية الهالك )الى بطاقة الصنف

ممكن تعديل على الكود ده Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$3" Then For i = 2 To 1000 x = WorksheetFunction.CountA(Range("b6:b1000")) If Sheets(2).calls(i, 7) = [$I$3].Value Then Sheets(5).Cells(6, 2).Offset(x, 0) = Sheets(2).Cells(i, 16) Sheets(5).Cells(6, 2).Offset(x, 1) = Sheets(2).Cells(i, 4) Sheets(5).Cells(6, 2).Offset(x, 2) = Sheets(2).Cells(i, 14) Sheets(5).Cells(6, 2).Offset(x, 3) = Sheets(2).Cells(i, 9) Sheets(5).Cells(6, 2).Offset(x, 4) = Sheets(2).Cells(i, 10) End If Next i For i = 2 To 1000 x = WorksheetFunction.CountA(Range("b6:b1000")) If Sheets(3).calls(i, 7) = [$I$3].Value Then Sheets(5).Cells(6, 2).Offset(x, 0) = Sheets(3).Cells(i, 4) Sheets(5).Cells(6, 2).Offset(x, 1) = Sheets(3).Cells(i, 19) Sheets(5).Cells(6, 2).Offset(x, 2) = Sheets(3).Cells(i, 17) Sheets(5).Cells(6, 2).Offset(x, 3) = Sheets(3).Cells(i, 9) Sheets(5).Cells(6, 2).Offset(x, 5) = Sheets(3).Cells(i, 10) Sheets(5).Cells(6, 2).Offset(x, 6) = Sheets(3).Cells(i, 11) End If Next i End If End Sub

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

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

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

تعديل على الكودمخازن 2024مكرو.xlsmمخازن 2024مكرو.xlsmمخازن 2024مكرو.xlsm مخازن 2024مكرو.xlsm

جزاك الله كل خير

اضف نموذج للمساعدة

التجميع بى 3 شروط فى صفحة تقرير شهرى تصنيع من شيت تصنيع دون اضافة اى عمود او صف مساعد لارتباطه بالاكواد برمجية برنامج تصنيع محطة خرسانة.xlsb

تسلم ايدك

اريد كود برمجى لعمل بطاقة صنف تفصيلى ترحيل بيانات الصنف اخذ من التوريدات والتصنيع ما يناسبها فى بطاقات الصنف على كل صنف بطاقة صنف اسمنت عادىة و ما بعدها برنامج تصنيع (1).xlsm

لايعمل

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

الاكواد ممتازة تسلم ايدك لكن المعادلة غير صحيحة

الباس 0 و0

انا اعرف انك تبذل جهد غير عادى لكن جعلك الله تتصدق بهذا العلم وجزاك الله كل خير ورمضان كريم ملجوظة عند كتابة النسبة تحدث مشكلة المعادلة تشمع لما اكتب 100% وعند كتابة اى نسبة أخرى من 5% الى 95% لاتسمع وصفحة التقرير اريدها ان تبدا من الصف 10 وليس الاول وبعض التنسيقات لصفحة التقارير من تسطير والخط عامق ولك كل احترام وتقدير على هذا الجهد المبذول من حضرتك

عند كتابة النسبة تحدث مشكلة المعادلة تشمع لما اكتب 100%مستخلصات الاعمال الجنوبية- V3.1.2 - Copy.xlsm وعند كتابة اى نسبة أخرى من 5% الى 95% لاتسمع باس 0 و0

تسلم ايديك لكن عند ترحيل الى the Report اسماء الاعمدة مرحلة وليست مطابقة الى شيت الشغل