اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نسورالجو

02 الأعضاء
  • Posts

    63
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

21 Excellent

عن العضو نسورالجو

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • البلد
    مصر
  • الإهتمامات
    القراءة والتعلم

اخر الزوار

517 زياره للملف الشخصي
  1. جزاك الله خيرا على مجهودك المطلوب زي الشرح الشيت الي بعته
  2. السلام عليكم المطلوب عند اختيار تاريخ الشهر تجلب قراة سابقة والحالية والرصيد للشهر المطلوب ورقة عمل Microsoft Excel جديد.xlsx
  3. جزاك الله خيرا استاذ محمد جربت المعادلة لاتعمل معي ودالةMAXIFS غير موجودة في الاوفيس عندي MAXIFS ورقة عمل Microsoft Excel جديد.xlsx
  4. السلام عليكم المطلوب سعر الصنف لكل شهر على حده ورقة عمل Microsoft Excel جديد.xlsx
  5. السلام عليكم المطلوب عند اختيار اسم صنف 1 في الفورم بتاريخ 01-09-2021 يأتي بقراءة الحالية بتاريخ01-08-2021 وليس قراة حالية بتاريخ 01-07-2021 وهكذا مع الشهر الي قبله wor.xlsm
  6. السلام عليكم المطلوب يعني لو الصنف 1 تكرر مع التاريخ 01-07-2021 يمنع الترحيل لو اتغير التاريخ او الصنف يرحل wor.xlsm
  7. Private Sub CommandButton1_Click() Range("a3:d200") = "" Sheets("الصفحة الرئيسية").Select For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "مراكز الإنتاج " Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التصنيع" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التصنيع" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "مراكز الإنتاج" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التصنيع" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي التجميع" Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي المراكز" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي المراكز" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "خدمات الانتاج" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الانتاج" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الانتاج" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "خدمات التسويقية" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات التسويقية" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات التسويقية" For Each cel In Sheets("الصفحة الرئيسية").Range("t2:w300") If cel.Value = "خدمات الادارية" Then cel.Resize(1, 4).Copy Sheets("توزيع المخزون").Activate Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1).PasteSpecial End If Next Sheets("توزيع المخزون").Range("a" & Range("a" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الادارية" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "اجمالي خدمات الادارية" Sheets("توزيع المخزون").Range("d" & Range("d" & Rows.Count).End(xlUp).Row + 1) = "الاجمالي العــام" End Sub المطلوب التعديل في كود ترحيل بشرطين الشرط اﻻول في العمود T محتاج الشرط التاني U Microsoft Excel جديد.xlsm
  8. ما شاء الله ربنا يبارك اختيار موفق فعلا يستحق الترقية واللقب
  9. السلام عليكم المطلوب لو الكمية صفر لا يتم ترحيل المعدل من تكست بوكس من الفورم الى الشيت wor(1).xlsm
  10. ما شاء الله الكودين ممتازين مبدعين جزاكم الله خيرا
  11. السلام عليكم المطلوب التعديل على كود لتعبئة الكومبوبوكس من عمودين محتاح تعبئة البيانات راسي مش افقي مثل الصورة wor11.xlsm
×
×
  • اضف...

Important Information