A L M A I S T R O

UP

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

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

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

اريد معادلة او كود 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 & "# "