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

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

والخانات المطلوب استرجاع البيانات اليها مع اعتبار وجود اكثر من نتيجة بحث ومظللة باللون الازرق .

بحيث عن كتابة  رقم الحساب المكون من (منطقة-يومية-حساب-فرعى )  ثم الضغط على زر البحث برقم الحساب باستخدام  كود ADVBANCED-FITER  يتم استرجاع باقى الصف الخاص برقم الحساب هذا فى الخلايا المخصص لذلك كلا تحت نفس العامود الخاص به .

ولكم جزيل الشكر على الرد

EXAMPLE.XLSX

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

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

جربت كود VBA  ADVANCED FILTER   وعند التطبيق  ظهر رسالة خطا لايمكن نسخ النتائج الا لنفس الشيت الفعال  مرفق ملف  لعمل مثال توضيحى وملف نصى للكود الذى حاولت استعمالة

وشكرا لكم

عنوان مخالف ... تم تعديل عنوان المشاركة ليدل عما تطلب وتريد

new flowers.xlsx Advanced Filter VBA.rar