Osama-2020

جزاكم الله خيرا @Mohamed Hicham

جزاكم الله خيرا @Mohamed Hicham هل يحتاج الى سيريال للتفعيل.... واذا كان لديك برجاء تزويدنا به

اخوانى واستاذتى الكرام السلام عليكم ورحمه الله وبركاته واسعد الله اوقاتكم بكل خير استفسار.... هل يوجد حل لاضافه الدوال الجديده الموجوده فى اوفيس 365 مثل xlookup - filter وغيرها من الدوال الى اوفيس 2016 او هل يمكن لاوفيس 2016 او يعمل بنفس خصائص اوفيس 365 جزيل الشكر لكم.....

هو المطلوب.... جزاكم الله خيرا اخى الاستاذ @محى_الدين

الاخوه الافاضل السلام عليكم ورحمه الله وبركاته واسعد الله اوقاتكم وحياتكم بكل الخير ارجو المساعده فى داله للبحث للبحث وإظهار البيانات المطلوبه في حاله توافر اى من الشرو الشروط ( وليس كل الشروط ) والموجوده في الخلايا A1 او A2 او A3 فمثلا في حاله البحث برقم الوثيقه فقط يتم اظهار البيانات المطلوبه في الحدول ادناه دون الحاجه لوجود قيم في باقى الشروط ..... او في حاله البحث باسم العميل فقط يتم نفس الامر ..... ولا يشرط توفر ال 3 شروط ..... توافر احدهم يكفى اعنى البحث بأحد الشروط وليس كل الشروط مرفق نموذج ملف العمل وجزاكم الله خيرا.............البحث بشرط او اكثر.xlsx

استاذى الكرام السلام عليكم ورحمه الله وبركاته واسعد الله حياتكم بكل الخير ارجو المساعده فى الكود الموضح بالملف المرفق حيث ارغب فى تعديل خصائص البحث فى COMBO BOX لبحث متعدد بكل القيم المتشابهة فمثلا يوجد رقم سياره 1403 ونفس السياره مسجل لها رقم اخر هكذا 5L1403 وارغب بظهور جميع القيم التى بها الرقم سواء تحتوى على حروف ام لا تحتوى جزاكم الله خيرا Osama-Test.xlsm

جزاكم الله جميعا خيرا كثيرا.....

لم اطلب ذلك أخى @Mohamed Hicham انا اطلب ان تظهر له الارقام او الباسبور التى سيقوم بكتابتها فى box massage على شكل **** او ما يعرف asterisk

جزيل الشكر لك اخى @Mohamed Hicham لازل ال password يظهر كما هو على شكل ارقام ارغب فى جعله يظهر على شكل ***** بدلا من الارقام مع استخدام نفس الكود المرفق فى الملف وهو كالتالى: Private Sub CommandButton1_Click() Dim x x = InputBox("Please Enter Your Password") If x = "123" Then Sheets("Data").Activate Else: Exit Sub End If End Sub

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

اخوانى الافاضل السلام عليكم ورحمه الله وبركاته ..... واسعد الله اوقاتكم بكل خير.... ارجو من سيادتكم المساعده فى تعديل الكود الموضح ليتم اظهار الباسورد على شكل نجوم (***) ولا يظهر الرقم السرى للمستخدم بما لايوثر على فاعليه الكود جزاكم الله خيرا كثيراًً....... رابط الملف المرفق Private Sub CommandButton4_Click() Dim x x = InputBox("Please Enter Your Password") If x = "123" Then Sheets("Renewal").Activate Else: Exit Sub End If End Sub

جزاكم الله خيرا استاذنا @حسين مامون الكود يعمل 100%

الاخوة الافاضل السلام عليكم ورحمة الله وبركاته... برجاء المساعده فى اضافه (( زر )) عند الضغط عليه يتم تحديث او نسخ البيانات كامله وبنفس الترتيب من ورقه العمل Data الى ورقه العمل الموجود بها ال (( زر )) فقط وايضا ارجو اضافه : بعد الانتهاء من تحديث او نسخ البيانات يتم ظهور رساله (( تم التحديث)) فى حاله كان هناك تعديل أو اضافه بيانات جديده..... او لا يوجد تحديث حاله لم يكن هناك اى جديد جزاكم الله خيرا كثيرا 🤲🤲Share.xlsx

ساحاول ان شاء الله جزيل الشكر والتقدير لحضرتك 🤝 🤝

الاخوة الافاضل السلام عليكم ورحمة الله وبركاته ارجو من الله ثم منكم المساعده فى عمل النقاط التاليه ( مع تقديرى الكامل لوقتكم الثمين) واعلم وانه قد يأخد بعض الوقت 1- ربط كل زر باسم الشيت الخاص به 2- عمل رقم سرى لكل زر عند الضغط عليه 3- عند مشاركة ملف العمل لايتم غلق اى من TABS مثل ( DATA FILTER - Conditional formatting…........ الخ ) من خلال VBA 4- عندفتح الملف فى كل مره يفتح على صفحة القائمة الرئيسية جزاكم الله خيرا وجعل كل ما تقدموه فى ميزان حسناتكم Data-2021.xlsm