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

الان تقدر تحذف زر في نموذج الفرعي الزر الاحمر يقوم بعمل زر النموذج الفرعي البرنامج.rar

تفضل A_B.rar

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

السلام عليكم ورحمة الله وبركاته مرفق قاعدة بيانات احتاج فقط فيها الى مايلى 1- عند ضغط زر بحث فردى بالنموذج Temp يظهر نموذج search وعند البحث تظهر النتائج اما بطريقة تصاعدية او منوعة وانا اريد ان تظهر نتائج البحث بطريقة تنازلية مثل الفرز التنازلى عندما تضغط ماوس يمين على حقل التاريخ مثلا وتختار فرز تنازلى ..انا اريدها ان تظهر تنازلى تلقائيا دون الحاجة الى خاصية الفرز التنازلى او التصاعدى 2- احتاج فى نفس نموذج search الى زر طباعة لنتيجة البحث يعنى انا بحثت باسم عمر تظهر النتائج ثم اطبعها باسم عمر فقط ملاحظة : عند فتح نموذج search يظهر اسم ماجد مثلا والحقول مرتبة تمام لكن عندما ابحث ياسم عمر ترجع تتلخبط الحقول واضطر الى ماوس يمين واختار فرز تنازلى كذلك عندما ارجع ابحث باسم ماجد اضطر الى عمل فرز تنازلى يدوى وانا مثل ماقلت لكم اريدها فرز تنازلى تلقائى او مثل مايقولون اوتوماتك طبعا الفرز يكون بحسب احدث تاريخ عملية ...وانت نازل شاكر ومقدر تعاونكم ت1426.rar

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

أخي @حسن احمد التميمي أولاً عطل الماكرو من مركز التوثيق ثانياً اضغط مفتاح شيفت أثناء فتح القاعدة فتفتح بوضع التصميم عندها تستطيع القيام بالمطلوب سؤال .. هل عمل لديك كود الأخ أبو ياسين كما تفضل به؟ هل عمل لديك الكود بعد التعديل الذي قدمته ؟ السؤال بغرض المعرفة و اكتساب الخبرة فقد نجح معي التعديل في برنامج سابق مصمم بالإكسل لا أدري إن كان سيؤدي الغرض بالأكسس ملاحظة: When running in 64-bit version of Office Declare statements must include the PtrSafe keyword https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/ptrsafe-keyword

شكراً أستاذ @Shivan Rekany جزاك الله كل خير فعلاً مبدع .. بارك الله لك و بعلمك حاولت تنفيذ الفكرة و لكن لم أصب كبدها لنقص حاد بالمعلومات و عدم معرفة مفتاح البحث المناسب ... حتى مددت لي أيادي العون أستاذ @Shivan Rekany مع الأخوة في هذا المنتدى و خصوصاً .. @AlwaZeeR @kaser906 لقد كانت رحلة طويلة ... استغرقت مني أكثر من أربعة أشهر من البحث و التجريب و السؤال يومياً ...حتى تبلورت طريقة العمل و كيفية تنفيذها و لولا مشاركتكم و عونكم كانت غير ممكنة الآن صرت من محبي Recordset و recordsetclone ههههههه فلولاهما لما تمكنت من الوصول إلى هذه النقطة بعد أن فشل الاستعلام ... لن تصدق الآن أني أشعر و كأني لاجئ يهرب من الشرطة المقدونية و اليونانية و العصابات الأفغانية ... و الآن وصل لحدود ألمانيا ..... شكراً لكم و ألف شكر .. لكم السلام في الدنيا و في الحياة الأُخرى..

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

انت رائع يا استاذ علي وان عاجز عن شكرك تحياتي لك استاذي الفاضل

تفضل

تفضل سباق2.xlsm

تسلم بارك الله فيك

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

سباق.xlsm سباق.xlsm

صحيح ياباشا لو افترضنا ان البيان يكون من كلمة واحدة ولا يوجد مسافة ؟ لان القيمة الافتراضية مسافة واخذها كمعيار وبالصدفة ان جميع البيان لديك بها مسافة ؟ والفشل هنا لو البيان فاضي او كلمة واحدة ؟؟ وهنا انا جايك وشوية بس !!

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

استبدل السطرين السابقة بالسطرين التالية وان شاء الله تكون تمام TempVars.Add "xv", InputBox("ادخل جزء من البيان", , " ") If TempVars!xv = "" Then MsgBox "تم الالغاء": cancel = True

لديك فلترتين : البيان والتاريخ ؟ ام يلغي جميع الفلتره ؟

تفضل سباق.xlsm

السلام عليكم اخي @Khalf الغرض من اضافتهم هو لادخال مواد الى المستودع ممكن للتصنيع او تسويات جردية او اخراج البضائع التالفة و .. و ..

متابع ابحث عن نفس الموضوع

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

الماكرو المطلوب مبدئياً انقل الداتا الى صفجة مستقلة (انشاء صفحة جديدية) نفذ عليها ها الماكرو (يجب ان تيدأ البيانات من الخلية B4 قي المعادلة التي كتبتها انا يوجد * يجب وضعها حتى تعمل الدالة بشكل جيد لان الدالة (عند اسنعمال &) نتظر الى الرفمين 211 و 55 ( 55211) و تنطر الى الرقمين 11 و 552 (55211) اي نفس الشيء بنما عند استعمال النجمة يصبحون هكذا (211*55) و (11*552) مختلفين Option Explicit Sub Del_row() Dim i As Long Dim lr As Long: lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Range("k4") = "salim" Range("k5:k" & lr).Formula = "=SUMPRODUCT(--(c5&d5&e5&f5&g5&h5=$c$5:c5&$d$5:d5&$e$5:e5&$f$5:f5&$g$5:g5&$h$5:h5))" Range("k5:k" & lr).Value = Range("k5:k" & lr).Value Range("M2").Formula = "=K5<>1" Range("k5:k" & lr).AdvancedFilter xlFilterInPlace, criteriarange:=Range("M1:M2") Range("k5:k" & lr).SpecialCells(12).EntireRow.Delete On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Range("k4:k" & lr).Clear: Range("m2").Clear End Sub

السلام عليكم لانشاء البرنامج يجب عليك انشاء الجداول التالية 1- جدول العملاء : لتسجيل اسماء العملاء فيه 2- جدول المواد : ويحوي اسماء المواد المخصصة للبيع ومع الوحدات الخاصة بكل مادة 3- جدول مستودعات : يحوي المستودع الرئيسي والمناديب 4- جدول رأس الفوايتر لتسجيل بيانات الفواتير الثابتة 5- جدول بنود الفواتير لتسجيل بنود و اقلام الفواتير والكميات والاسعار ثم تحتاج الى نماذج ادخال الى الجداول السابقة 1- نموذج تعريف عميل 2- نموذج تعريف مادة 3- نموذج تعريف مستودع او مندوب 4- نموذج فاتورة شراء 5- نموذج فاتورة بيع 7- نموذج فاتورة ادخال وهذا استخدامه قليل ولكن ضروري وجوده 7- نموذج اخراج مواد وهذا ايضا استخدامه قليل ولكن ضروري وجوده 8- نموذج مناقلة بين المستودعات وهو ضروري جدا لعملك 9- نماذج الاستعراضات والكشوفات

أهلا بك اخ كريم فى المنتدى عليك برفع الملف

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