Ali Mohamed Ali

تفضل يمكنك استخدام هذا الكود Private Sub CommandButton2_Click() Dim str As String Dim i As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then If str <> vbNullString Then str = str & ", " str = str & ListBox1.List(i) End If Next TextBox2.Text = TextBox2.Text & " " & str End Sub ليست بوكس.xlsm

أحسنت أستاذ عبد اللطيف بارك الله فيك وزادك الله من فضله وكل عام وانتم بخير

بارك الله فيك أستاذ أحمد وكل عام والأمة الإسلامية بخير وعيد أضحى سعيد أعاده الله علينا جميعا بالخير واليمن والبركات

بارك الله فيك استاذ خيرى وكل عام وانتم بخير وعيد أضحى سعيد ادام الله علينا جميعا هذه الأيام بالخير واليمن والبركات

الأمر بسيط تم التعديل على الملف واستخدام هذه المعادلة =IF(F4="","",(TODAY()-F4)+1)

عليك برفع الملف حتى تستطيع الأساتذة معاينة المشكلة عن قرب بارك الله فيك وكل عام وانتم بخير

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

بارك الله فيك أستاذ إبراهيم عمل رائع وهذا فيديو لشرح الطريقة https://www.youtube.com/watch?v=aLCCxoVDRfo وهذا أيضا موقع به شرح الطريقة https://www.extendoffice.com/ar/documents/excel/2439-excel-drop-down-list-search.html

تم التعديل على المعادلة والملف السابق

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF(AND(C1="",D1=""),"",IF(C1=D1,"متزن","غير متزن")) دالة if بأربع شروط.xlsm

طالما لم تقم برفع ملف اكسيل مع شرح كل المطلوب بكل دقة فيمكنك الإستعانة بهذا الرابط https://www.officena.net/ib/topic/91873-مساعدة-في-عهدة-مخزون-تسليم-واستلام-وتقارير/?tab=comments#comment-575657

وعليكم السلام-تفضل رواتب موظفين شهر 8.xlsx

وعليكم السلام تظهر معك هذه الرسالة لعدم حفظ الملف بصيغة XLSM

الأمر في غاية البساطة عليك بعمل الخطوة التي تراها بالصورة

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

أحسنت أستاذ مجدى بارك الله فيك ورحم الله والديك

وده اللى انا قلته لك من الأول تجنبا لعدم اهدار الوقت فعليك برفع الملف نفسه طالما لم توفق في الكود المرسل لك

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =IFERROR(VLOOKUP(A2,'رقم الموظف'!$A$1:$G$130,5,0),"") Pay-aht_moustafa-20190802-040908.xlsx Pay-mttks_magdi-20181011-082233-2019 - Copy.xls

تفضل لك ما طلبت وزيادة تم عمل كود ووضعه في حدث الصفحة لحماية الصفحة الرئيسية _ وكلمة السر 123 Private Sub Worksheet_Activate() Sheets("Main").Protect Password:="123", UserInterFaceOnly:=True End Sub Book1.xlsm

تفضل 1الأثاث.xlsm

كان عليك من البداية رفع الملف لكى تكون المساعدة أدق ولكن مثلا ضع هذا الكود في كوماند بوتن Enter في الفورم Private Sub CommandButton2_Click() UserForm1.Hide Application.Visible = True Sheets("Sheet8").Select End Sub

تفضل لك ما طلبت نسب العلاوة.xls

تفضل -عن طريق عمل تنسيق لهذا العمود كما بالصورة 1.xlsx

وعليكم السلام-تفضل لك ما طلبت Map12.xlsm

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