Ali Mohamed Ali

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

وعليكم السلام-جرب هذا الملف به طلبك الفاتورة_MZM.xlsm

تفضل استاذ حميد ولحسن عمل الكمبوبوكس يمكنك إضافة هذا الكود Private Sub ComboBox1_DropButtonClick() lrw = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row ComboBox1.List = Sheets(2).Range("D1:D" & lrw).Value End Sub تعبئة القوائم المنسدلة1.xlsm

وعليكم السلام -يمكنك تحميل هذا من هنا فلا يحتاج الى تفعيل https://www.4shared.com/rar/vx1cv9Hxca/KutoolsforExcel1650.html وهذا رابط اخر http://www.mediafire.com/file/xcvjc4oywbvonda/Kutools.for.Excel.16.50.rar/file

بارك الله فيك وزادك الله من فضله

اهلا بك فى المنتدى شرفتنا,شرح هذه الدالة كالتالى: وهى دالة معرفة وهذا هو الكود المرافق للدالة لحسن عملها Function VLOOKON(ParamArray My_Arg()) As Variant Dim Max As Integer Dim Index As Integer Dim FindOK As Boolean Dim MyFind As String Dim CIndex As Integer MyFind = My_Arg(0) CIndex = My_Arg(1) Max = UBound(My_Arg) FindOK = False For Index = 2 To Max If FindOK Then Exit For VLOOKON = My_Arg(Index).Name R = Range(VLOOKON).Rows.Count C = Range(VLOOKON).Columns.Count If CIndex > C Then VLOOKON = "#REF!": Exit Function For MyR = 1 To R If LCase(Range(VLOOKON)(MyR, 1)) = LCase(MyFind) Then VLOOKON = Range(VLOOKON)(MyR, CIndex) Exit Function End If Next MyR Next Index VLOOKON = "#N/A" End Function وهذا ملف ايضا به مثال يبين تطبيق الدالة لحسن استخدامها VLOOKON With No Limitation.xls

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

وعليكم السلام-جرب هذه الفيديوهات https://www.youtube.com/watch?v=EN18dfR2mhw https://www.youtube.com/watch?v=BIkzEM3i-tA وكمان هذا الرابط من داخل المنتدى جعل ملف الأكسل مشترك على اكثر من جهاز

وعليكم السلام -يمكنك استخدام هذه المعادلة لجعل نطاق القائمة المنسدلة مطاطية وبدون فراغات وتكون جاهزة لزيادة اى بيانات جديدة =OFFSET($D$6,,,COUNTIF($D:$D,"?*"),1) كما انه يمكن ايضا استخدام هذه المعادلة لتسمية نطاق لإستخدامه فى الكمبوبوكس كما ترى بالصور تعبئة القوائم 1المنسدلة.xlsm

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

وعليكم السلام -اهلا بك فى المنتدى -تم عمل واضافة قائمة منسدلة فى عمود المادة من صفحة الوصل بما تحتويه كل أسماء المواد من الصفحة الأخرى ويمكنك اضافة مواد كما تريد بصفحة سعر وصل1.xlsm

اهلا بك فى المنتدى وذلك بإستخدام هذه المعادلة =SUMIFS(INDIRECT("'"&F$1&"'!$F:$F"),INDIRECT("'"&F$1&"'!$D:$D"),$D2,INDIRECT("'"&F$1&"'!$E:$E"),$E2) نموذج1.xlsx

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

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

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

بارك الله فيك وجزاك الله خير الثواب ورحم الله والديك

بارك الله فيك استاذ بن علية حاجي بعد اذن حضرتك ولإثراء الموضوع هذا حل اخر Sallary.xlsx

بارك الله فيك وزادك الله من فضله

تفضل يمكنك استخدام هذه المعادلة =IF(G7="","",VLOOKUP(G7,$A$1:$B$150,2,0)) تغيير الرقم 1لنص.xlsx

بارك الله فيك وزادك الله من فضله

تفضل لك ما طلبت الحسابات1.xlsx

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

بارك الله فيك وزادك الله من فضله

تفضل تم تغيير معادلتك نهائياً فهى لا تعمل المشتريات1.xlsx

جزاك الله خير الثواب وبارك الله فيك استاذ مجدى