نسورالجو

السلام عليكم المطلوب عند اختيار اسم صنف 1 في الفورم بتاريخ 01-09-2021 يأتي بقراءة الحالية بتاريخ01-08-2021 وليس قراة حالية بتاريخ 01-07-2021 وهكذا مع الشهر الي قبله wor.xlsm

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

السلام عليكم المطلوب يعني لو الصنف 1 تكرر مع التاريخ 01-07-2021 يمنع الترحيل لو اتغير التاريخ او الصنف يرحل wor.xlsm

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

ما شاء الله ربنا يبارك اختيار موفق فعلا يستحق الترقية واللقب

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

السلام عليكم المطلوب لو الكمية صفر لا يتم ترحيل المعدل من تكست بوكس من الفورم الى الشيت wor(1).xlsm

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

السلام عليكم المطلوب التعديل على كود لتعبئة الكومبوبوكس من عمودين محتاح تعبئة البيانات راسي مش افقي مثل الصورة wor11.xlsm

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

السلام عليكم المطلوب عند اختيار بيان من الكومبوكس ( مدفوع كبير ) يفعل البيان في تكست بوكس ( مدفوع كبير ) وتكست بوكس سعر وكذلك الصغير wor(1).xlsm

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

السلام عليكم عند اعمل تعديل في صف بشرط اسم الصنف الموجود في عمود I يعدل على اول مره نزلت فيها اسم الصنف لو مكرر المطلوب عند التعديل يعمل Select على الصف كله حتى اتمكن من التعديل Private Sub CommandButton2_Click() Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set ws = Sheets("مخازن") For Each f In ws.Range("I3:I100000") If f = TextBox5.Text Then ws.Select f.Select Exit For End If Next f ActiveCell.Value = TextBox5.Value ActiveCell.Offset(0, -5).Value = TextBox1.Value ActiveCell.Offset(0, -3).Value = ComboBox5.Value ActiveCell.Offset(0, -2).Value = TextBox3.Value ActiveCell.Offset(0, -1).Value = TextBox6.Value ActiveCell.Offset(0, 3).Value = TextBox7.Value ActiveCell.Offset(0, 4).Value = TextBox8.Value ActiveCell.Offset(0, 5).Value = TextBox9.Value ActiveCell.Offset(0, 6).Value = ComboBox3.Value ActiveCell.Offset(0, 7).Value = ComboBox4.Value End Sub

السلام عليكم استاذ محمد حاولت اوزع توزيع الوقود والزيوت على مراكز التكلفة وجدت صعوبه في التوزيع توزيع المصروفات.xlsx

جزاك الله خيرا استاذنا

السلام عليكم كنت محتاج عند إضافة البيانات من الفورم في الشيت يتم ملء الخلايا الفارغة C,B,A بالصفر wor(1).xlsm

هو المطلوب جزاك الله خيرا استاذ علي وبارك الله في علمك وصحتك واهلك

السلام عليكم استخدمت دالة Sumifs في جمع صنف بتاريخ شهر 7 اعطتني نتائج خطأ جمع شهر 7 وشهر 8 محتاج يجمع كل شهر لوحده work.xlsx

جزاك الله خيرا استاذ محمد وبارك الله في علمك وصحتك ومالك وأهلك

التاريخ يوجد في عمود A5 والصنف في عمود C5

السلام عليكم المطلوب التعديل لكود تعديل البيانات بشرطين التاريخ واسم الصنف "ComboBox1" به اسم الصنف "ComboBox2" به التاريخ ، لانه توجد اصناف مكررة في نفس التاريخ Private Sub CommandButton5_Click() Dim ws As Worksheet Set ws = Sheets("اصناف") For Each F In ws.Range("c5:c5000") If F = ComboBox1.Text Then ws.Select F.Select Exit For End If Next F ActiveCell.Value = ComboBox1.Value ActiveCell.Offset(0, 4).Value = TextBox4 ActiveCell.Offset(0, 5).Value = TextBox5 ActiveCell.Offset(0, 6).Value = TextBox6 ActiveCell.Offset(0, 9).Value = TextBox7 ActiveCell.Offset(0, 10).Value = TextBox8 MsgBox "تم تعديل البيانات بنجاح" End Sub التاريخ يوجد في عمود A5 والصنف في عمود C5

السلام عليكم المطلوب كود ترحيل من صفحة اصناف الى شيت مجمع بدون تكرار اسم الصنف مع جمع الاسعار مثل sumif wor.xlsm

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

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

المطلوب لو القراءة السابقة والحالية غير موجود بها بيانات تنفذ المعادالة مع العلم يتم تنزيل بيانات القراءة السابقة والحالية والكمية من تكست بوكس ... المشكلة عند تنفيذ زر المعادلة تمسح بيانات قراءة السابقة والحالية والكمية التي تم تنزيلها من تكست بوكس انتبه من فضلك ... فلابد ان لا تتهاون فى شرح المطلوب هنا أيضاً wor.xlsm