نجوم المشاركات

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

وعليكم السلام-بارك الله فيك وجزاك الله كل خير

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

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

تفضل الأمر سهل وبسيط يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=JOGUVtuJAQ4

استادي سليم الف الف تحية اخي لا يمكن لي كتابة مثل هذا الماكرو مازلت مبتدءا في الاكسيل ومعرفتي في الميدان محدودة ، انتم اساتذتنا تعلمنا منكم وما زلنا ماكرو رائع كعادتك دائما وابدا نستمتع بأعمالك جزاك الله خيرا وحفظك وزادك علما . تحياتي لجميع الاساتدة في المنتدى اخوكم في الله حسين مامون من المغرب

تفضل هذا الاقتراح برنامج ارشفه.accdb

لأن الأسماء المركبة في الدالة ("سيف", "عبد", "أبو", "ابو", "عز", _ "صدر", "نور", "فضل") فأي اسم من هذه الأسماء يأتي معه الاسم الذي يليه يمكنك حذف كلمة سيف إذا أردت

جرب هذا za-font style and align-LAST.mdb

اتفضل اتمنى يكون المطلوب za-font style and align-LAST.mdb

بعد اذن استاذ عبدالله الصارى جرب هذا المرفق لعله يفى بالغرض وهو بالمعادلات فصل الاسم الأخير.xlsx

بارك الله فيك أستاذ عبدالله وجزاك الله كل خير

بارك الله فيك استاذى الكبير بن علية ولإثراء الموضوع هناك معادلة اخرة وهى معادلة صفيف -اى يجب الضغط على Ctrl+Shift+Enter وليس Enter فقط وهذه هى معادلة الكمية بالطن-وعليك سحبها للأسفل SUM(IF(($B$16:$B$10000>=$H$2)*($B$16:$B$10000<=EOMONTH($H$2,0))*($C$16:$C$10000=$C5),$H$16:$H$10000,"")) اما معادلة عدد النقلات لكل سيارة فهى : SUM(IF(($B$16:$B$10000>=$H$2)*($B$16:$B$10000<=EOMONTH($H$2,0))*($C$16:$C$10000=$C5),$F$16:$F$10000,"")) بارك الله فيكم جميعا

أخى ابو زاهر هذه محاولة أخرى ولكن عن طريق الماكرو أرجو أن تفيد ضع ملف الإكسيل فى ال \:D NWBANY.accdb XX.xlsx

السلام عليكم استخدم هذا الكود DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164" DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])"

العفو أخي كلنا نخطئ و نصيب

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

السلام عليكم تفضل اخي الكريم .. تعديل-حذف بشرط M.S.rar

Me.HdihSr = Nz(DSum("[PriceSB]", "00KashfTodayRsdCkdm","(Movement ='هدية' or Movement ='تالف' or Movement ='مفقود')") لم اجرب الكود

جرب هكذا Me.HdihSr = Nz(DSum(" [PriceSB] ", "00KashfTodayRsdCkdm", "[Movement] = 'هدية' or 'تالف' or 'مفقود' and [ItemAAID] = 110 and [OutDate] Between forms!KashfToday_F!Date1 And forms!KashfToday_F!Date2"), "0") 'Private Declare Sub apiZeroMemory Lib "kernel32" _

معذرة الأستاذ / ليث ليث المرفق بعد التعديل الأخير مندوبي المبيعات بعد التعديل.rar

السلام عليكم و رحمة الله و بركاته في المثال المرفق آلة حاسبة بمميزات رائعة الة حاسبة.rar

@Ali Mohamed Ali و إياكم أستاذي الكريم علي .. كل الاحترام و التقدير لحضرتك

بارك الله تعالى فيكم إخواني الكرام في ميزان حسناتكم عمل جداً رائع هو المطلوب ما قصرتم .

ما شاء الله شئ جميع بارك الله فيكم

شوف عملت لك توسط وحفظ لون الخط كمل الباقي لان وقتي والله مايسمح هي نفس الفكرة za-font style and align-LAST.mdb

اخي العزيز حسين أرى انه لا ضرورة لحلقة تكرارية من ثاني صف في العامود C الى ان تجد ما نفتش عنه (ممكن ان يكون الرقم في الصف رقم 5000 مثلاً اذا كانت البيانات كثيرة) يكفي ان نستعمل دالة Find في VBA لايجاد الرقم بسرعة اكبر بكثير ، لان هذه الدالة تضع يدها على الصف المطلوب مباشرة باستعمال هذا الماكرو Sub Find_Me() Dim rng, r% On Error Resume Next With Sheets("Sheet1") .Range("H2") = vbNullString If .Range("G2") = "" Then End Set rng = .Range("c2", Range("c1").End(4)) r = rng.Find(.Range("G2"), lookat:=1).Row If r > 0 Then .Range("H2") = .Cells(r, "D") End With End Sub

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

إضغط هنا >>>----->>يا باغى الخيــر أقبل 6 دقائق تأخذك الى الفردوس الأعلى لا تبخل على نفسك<<-----<<< إضغط هنا

وذلك تعديل جديد لعرض الشعار فى كل زوايا القاعدة imgLogo.Picture = MyLogo() على ان يتم استبدل كلمة imgLogo باسم عنصر التحكم الخاص بالصورة كما تسميه انت Logo Company (Up 3).mdb

الله يسلم حضرتك استاذى الجليل واخى الحبيب استاذ @محمد صلاح1 جزاكم الله خيرا

تفضل لك ما طلبت ربط قائمة منسدلة بأخرى.xlsm

السلام عليكم ورحمة الله و يمكنك ايضا ان تجرب هذا الملف ربما يفيدك توزيع رغبات2.xlsm

احسنت استاذى الكريم بارك الله فيك

بارك الله فيك استاذى الكريم بن علية وهذه طريقة لإخفاء المعادلات Select the range of cells whose formulas you want to hide. ... Click Home > Format > Format Cells. On the Protection tab, select the Hidden check box. Click OK. Click Review > Protect Sheet. Make sure the Protect worksheet and contents of locked cells check box is selected, and then click OK.

وعليكم السلام تفضل Attendance Report.xlsx

وعليكم السلام نشاط ملحوظ استاذى الكريم ومجهود رائع مبذول فى البرنامج جعله الله فى ميزان حسناتك وغفر لك ورحم الله والديك

عمل ممتاز بارك الله فيك وجزاك الله كل خير

فى الملف ثانية أسماء المستخدمين موجودة فى العمود AB من الصف الرابع فى الصفحة الرئيسية -والعمود التالى وهو AC عمود كلمة المرور ,ويمكنك تغيير هذا الى ما تريد وهذا موضع بالصورة ونفس الحكاية موجودة فى الملف الأخر ملف اولى من صفحة Main مع نفس ارقام الأعمدة والصفوف

اهلا بك اخى الكريم بالمنتدى تفضل 2.xlsx

وعليكم السلام تفضل لك ما طلبت ثانية.rar اولى - ت.rar

تفضل اخى الكريم المشكلة من عندك تم تطبيق المعادلة بملفك بارك الله فيك مديونية.xlsx

وعليكم السلام اهلا بك اخى الكريم فى المنتدى نظرا لأنك لم ترفع ملف بالمطلوب فعليك بفتح مديول جديد ووضع هذا الكود به وعمل زر بصفحة الإكسيل لربطه بالكود Sub FORM() Userform1.Show End Sub

تفضل تجربة.xlsx

تفضل index2.xlsm

وعليكم السلام-تفضل find date Total général.xlsm

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

تفضل اخى الكريم بسم الله1.xlsm

وعليكم السلام تفضل ارشيف.rar

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