A L M A I S T R O

ممكن حضرتك تصححلى الكود السابق من فضلك

ممكن مثال توضيحى بالمعادلات

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

ليس هذا ما اريدة عموما وجدت الحل الحمد لله

السلام عليكم كيف لى عند النقر المذدوج على الخلية "+" يتم فتح تفاصيل الصنف ويتم ملء البيانات بشكل اتوماتيكى من شيت اخر بمثابة قاعدة البيانات Book1.xlsm

الله يفتح عليك حذفت الصفر فعلا وخليت الخلية TEXT وظبطت معايا الف الف مليون شكر ا/محمد صالح

انا اسف لتعبك معايا عند البحث بالموبايل والفاتورة معا تأتى النتيجة مطبوطة تمام وعند البحث بالموبايل فقط تأتى ايضا مظبوطة تماما ولكن عند البحث برقم الفاتورة فقط لا تأتى اى نتائج

اليك مثال مرفق اخى محمد صالح Desktop.rar

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

ا/محمد صالح ما ظبتت معى Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# And #" & stopdt & "#" & _ IIf("G1" = "" And [G2] = "", "", " And ([fdName16] = " & "G1" & " Or [fdName1] = " & [G2] & ")") & ";" يرجى المساعدة

لما خليته يبحث عن شرط واحد فقط اشتغل Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf([inv] = "", "", " AND ([fdName1] = " & [inv] & ")") & ";" حقل الموبايل فى الاكسيس نصى وحقل الفاتورة فى الاكسيس رقمى

وضعت هذا الاستعلام كما ذكرت mobi = Sheets("Find").Range("G1") invois = Sheets("Find").Range("G2") Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf(mobi = "" And invois = "", "", " AND ([fdName16] = " & mobi & " OR [fdName1] = " & invois & ")") & ";" علمان بان الخلية G1 هى رقم الموبايل والخلية G2 هى رقم الفاتورة .. ولكن لا تعطى اى نتائج

الف شكر ... تمت بنجاح ا/محمد صالح ... لى سؤال اخر لو تسمحلى عايز اعدل فى الكود التالى لاضافة اكثر من اختيار للبحث بقاعدة البيانات بحيث اقدر اخلى المستخدم يبحث برقم الهاتف ورقم الفاتورة علما بان اسم الحقل الخاص برقم الفاتورة اسمه fdname1 واسم الحقل الخاص برقم الموبايل fdname16 وسيتم فى ورقة الاكسيل كتابة رقم الفاتورة فى الخلية مثلا A1 ورقم الموبايل فى الخلية A وفى حالة كانت الخلية A1 و A2 فارغه يجعل البحث كما هو بين التاريخين Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# And #" & stopdt & "# "

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

السلام عليكم السادة الافاضل لدى كود للبحث فى اكثر من قاعدة بيانات اكسيس من داخل الاكسيل المشكلة ان الكود يقوم بالبحث فى اول واخر قاعدة بيانات فقط ولا يبحث فى القواعد بالترتيب علما بانهم حوالى 6 قواعد بيانات For r = 2 To 18 'Sheets("Settings").[B18].End(xlUp).Row DBFullName = Application.ActiveWorkbook.Path & "\" & Sheets("Settings").Cells(r, "B").Value '"\Database#01.accdb" ' Open the connection Set Connection = New ADODB.Connection Connect = "Provider=Microsoft.ACE.OLEDB.12.0;" Connect = Connect & "Data Source=" & DBFullName & ";" Connection.Open ConnectionString:=Connect Set Recordset = New ADODB.Recordset With Recordset ' Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "# ORDER BY [fdName4]" Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" ' Source = "SELECT * FROM Table2 WHERE [fdName2] BETWEEN " & startdt & " AND " & stopdt & " ORDER BY [fdName2]" .Open Source:=Source, ActiveConnection:=Connection For Col = 0 To Recordset.Fields.Count - 1 ' Range("A2").Offset(0, Col).Value = Recordset.Fields(Col).Name Next Range("A5").Offset(1, 0).CopyFromRecordset Recordset End With '//------------------------End Conditioanl 1 ------------------------------------------- Next r ' ActiveSheet.Columns.AutoFit Set Recordset = Nothing Connection.Close Set Connection = Nothing End If

up

الاخ الفاضل ابو اكرم بعد التحية لدى ملف DLL واريد كسر حمايتة فهل لى ان تدلنى على بداية الطريق اكون شاكر جدا

الموضوع سهل جدا عليك باختيار Protect and share workbook ثم قم بوضع كلمة مرور ثم موافق وكذلك احمى محرر VBA ثم احفظ الملف واغلقة بس خلاص

الاداة بالمرفق تترجم كل شيء وبأى لغة ارجوا ان يكون هذا ما تريد تحياتى،،، Translation Names.rar

اخ عباد اشكرك شكرا جزيلا على مجهودك جزاك الله خيرا

بسم الله والصلاة والسلام على رسول الله صلى الله عليه وسلم اما بعد ،،، ما اريدة هو نموذج خاص بالبحث شبيه لبرنامج ا/ عبدالله (خبور خير) ولكن اريد البرنامج ان يبحث عن كلمة او جملة معينة داخل ملفات اكسيل عديدة بمعنى آخر : لدى مجلد رئيسي وليكم مثلا اسمة Main وبداخل هذا المجلد 12 مجلد فرعى وبداخل الـــ 12 مجلد بداخل كل مجلد منهم 30 ملف اكسيل انا اريد ان اختار فى نموذج البحث المجلد الرئيسي Main فيتم البحث عن الكلمة التى اريدها او الجملة بداخل كل ما هو بداخل كل هذة المجلدات . اتمنى ان اكون شرحت جيدا ما اريدة وشكرا على وقتكم جميعا .

نعم سافعل واشكرك كثيرا على وقتك تحياتى،،،

اعتقد اننى لم اشرح ما اريد بالتحديد انا لدى مجلد وبداخلة 12 مجلد وبداخل كل مجلد حوالى 30 ملف اكسيل وما اريدة البحث بداخل كل هذة المجلدات مرة واحدة وشكرا لوقتكم ،،،

up

هل يمكن استبدال مسار البحث ليكون مسار البحث عن ملفات الاكسيل الموجودة مثلا فى المحرك C:\ ارجوا ان اجد اجابة