SHEREF ADEL

بعد عده محاولات والتجارب توصلت الى الكود التالى ويعمل بكفائه ولكن سرعه الشريط عاليه اظن هنا يلزم ربط وقت الشريط بمده ظهور اليوزرفورم هنا احتاج مساعدتكم الكود :: Private Sub UserForm_Click() ProgressBar1.Value = ProgressBar1.Min ProgressBar1.Min = 1 ProgressBar1.Max = 100 ProgressBar1.Value = ProgressBar1.Min + 1 ProgressBar1 = ProgressBar1.Max If ProgressBar1 = ProgressBar1.Max Then UserForm4.Hide UserForm1.Show End If End Sub ارجو سماع ارائكم

السلام عليكم كنت اريد استعمال خاصية LOOP فى هذا الكود وتطبيقه على شريط التحميل بعد اضافته فى اليزر فورم بحيث يفتح البرنامج ويظهر شريط التحميل وعند انتهاءه يتم فتح اليوزرفورم 1 اعتقد انها فكره جديده تستحق المحاولة لانه غير مرتبط بوقت ارجو المساعده من جميع الاعضاء وهذا هوا الكود مع اظهار قيمة شريط التحميل فى تيكست بوكس ولكم جزيل الشكر مقدما With UserForm4 With ProgressBar1 .Min = 1 .Max = 100 End With ProgressBar1.Value = ProgressBar1.Min + 1 Loop Do Until ProgressBar1.Max

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

بارك الله فيك وجزاك من نعيمه وفضله دائما وابدا برنامج متميز فعلا

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

اولا شكرا جزيل على تعبك لقد اقتربت من الفكرة كثيرا لكن ما ابحث عنه حاجة زى المعادلة دى كده كمثال شيت التقرير اللى هوا اول شيت لو اسم الصنف فى شيت التقرير يساوى اسم الصنف فى شيت الداتا then اجمع الكميات المقابلة لهذا الاسم فى عمود الكمية اللى فى شيت التقرير وضعها امام نفس الاسم فى شيت الداتا خانة رصيد اخر المدة لانى بعمل برنامج لقاعده بيانات فيها اجمالى كبير فكان صعب اعالجه بمعادلة sumif ولك كل تحياتى مرة اخرى استاذ هشام مثلا لو دا شيت فواتير شيت الداتا يبقا كده اسم الصنف الكمية اسم الصنف اجمالى المبيعات فولتارين 1 فولتارين 5 فولتارين 1 فولتارين 1 فولتارين 1 فولتارين 1 فولتارين 100 ؟؟ بحيث لو ضيفنا فولتارين 100 يظهر فى شيت داتا اجمالى المبيعات 105 بدلا من 5 انا معرفتش اعبر بس عن المطلوب فى الموضوع الاول الغلطة منى وكتر الف خيرك للرد

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

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

السلام عليكم انا واجهت مشكلتك من قبل وللتغلب عليها قمت بالكود التالى وهو عيارة عن تحديد مكان كل خليه تريدها بدلا من الكود الاصلى الذى يقوم على تحديد بداية الصف والعمود فقط قم بتغيير مايلزم وافتح الشيت قدامك وانتا بتغير الارقام Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("اسم الشيت اللى هترحل منه البيانات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(9, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox2.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(10, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox3.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(11, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox4.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(12, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox5.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(13, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox6.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(14, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox7.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(15, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox8.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(16, 2).Row ws.Cells(iRow, 2).Value = Me.TextBox9.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(17, 2).Row Me.TextBox12.Value = ws.Cells(iRow, 2).Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(22, 7).Row ws.Cells(iRow, 2).Value = Me.TextBox13.Value iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(23, 1).Row هنا انا كنت بدخل على عمود رقم اتنين بس بغير رقم الصف ولما حبيت اغير المكان قمت بتغيير رقم العمود اتمنى ان يكون الحل مناسب لك

جرب تحفظ الملف فى صورة MXLS دا يحفظلك ملف بالماكرو ENABLED

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

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

هل هذا ماتقصد Reservation Form.xlsm الحل اختار من نافذة الفيجوال بيسك من الشمال workbook وعلى اليمين open ثم frmDataEntry.Show وحفظ الملف بصورة xlsm

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

UP UP UP