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

وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.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([اسم الصنف])"

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

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

تفضل هذا المثال للتوضيح تصدير و استيراد.accdb

السلام عليكم تفضل اخي الكريم .. تعديل-حذف بشرط 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

اخي العزيز لو ارفقت ملفا موضحا فيه طلبك سيكون التفاعل اكبر ولكن جرب الملف التالي وبه توزيع الطلبة حسب العدد الذي ترغبه من ابداعات عبدالله باقشير توزيع الفصول باختيار النوع وبتساوي الدرجات.xls

اخى الكريم يمكنك اضافة معادلة if على معادلة استاذ بن علية والمعادلة هى -ولكن هذه المعادلة لا تقوم بحساب المعادلة الا بعد اكتمال الأربع اختبارات واذا كان هناك خلية واحدة فارغة لا تقوم المعادلة بحساب المعادلة واذا لم تريد هذا فيمكنك استبدال كلمة or فى المعادلة ب and =IF(OR(C6="",D6="",E6="",F6=""),"",SUM(C6:F6)/5)

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

اهلا بك اخى الكريم بالمنتدى-حل هذه المشكلة بهذا الفبديو : https://www.youtube.com/watch?v=lJ4bzIUporE

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

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

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

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

.

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

تفضل ولكن ظهور مثل هذه الرسائل وذلك لإحتواء الملفات على فيروس فهذا منطقى لظهور هذه الرسالة فالطبيعى ان تفتح الملفات مباشرة بمجرد الضغط على الهايبر بارك الله فيك index2.xlsm

تفضل تجربة.xlsx

تفضل index2.xlsm

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

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