الخطيب بيبوو

ارفع الملف

شكر خاص لك الاساتذة الافاضل للمساعدة فى الحلول التى تساعد

اخذ السعر فى جدول الاسعار بناء على المحطة والصنف نضع السعر New Microsoft Excel Worksheet.xlsx

تسلم ايدك

الاخ المحترم ممكن تعملها مصفوفةعلشان لخبطت معايا فبها

برنامج مراقبة المخزون بمناسبة شهر رمضان مراقبة المخزون.xlsm

مخازن كامل باس ورد 0 الثلاجات مخازن 20215.rar

تسلم ايدك لكن لما ازود اعمدة لا ترحل فى الورق الاخر الزرع v3.xlsm

تسلم ايدك على الكود لكن اريد زيادة على هذا الى حضرتك عملته تزيد عليه فتح شيتات عن طريق العمود h "الصنف " ايضا

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

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

يوجد شيت يوميةالزرع.xlsm اريدالترحيل البيانات الى الصفحات بناء على العمود بناءا على كود سابق من استذة المنتدى اريد تكملة الترحيل من العمود (g --h)

فين الشيت للعمل عليه

يوجد شيت يوميةالزرع.xlsm اريدالترحيل البيانات الى الصفحات بناء على العمود بناءا على كود سابق من استذة المنتدى اريد الترحيل بشرط العمود (g --h)

اريد تكملة الكود من فضلكم

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

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

يتم عمل كود برمجى واخذ الصف بداية من 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

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