Ali Mohamed Ali

تفضل 123-1.xlsx

وعليكم السلام تفضل تم الحل بمعادلات الصفيف بعد عمل القائمة المنسدلة التعديل الرابع.xlsm

اخى الكريم أحمد هناك اكثر من كود كما ان هناك أثر من 4 يوزرفورم لا ينفع نقلهم جزاك الله كل خير

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

اهلا بك اخى الكريم فى المنتدى اجعل دائما عنوان المشاركة دليل على ما تحتاج وتريد يمكنك ضغط الملف ورفعه او ممكن تقوم بتحميل هذا البرنامج وتسطيبه لفك كلمة سر الملف Passware Kit Forensic 13.5

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

على الرغم انك لم تقم برفع ملف فجرب هذا الملف لعله يفيدك قائمة منسدلة بدون تكرار مع إمكانية البحث داخل القائمة.xlsx وهذا ملف اخر ومع فيديو للشرح https://www.youtube.com/watch?v=TYSxuXtp1B0 البحث بمجرد كتابة اول حرف فى القائمة المنسدلة.xlsx

أولا هتقوم بالضغط على Alt F11 هتفتح لك شاشة اختر من قائمة Insert Module ثم بعد ذلك قم بلصق هذا الكود به Sub UNHIDE_BLANK() ActiveSheet.Range("$B$4:$K$33").AutoFilter Field:=1 Selection.AutoFilter Range("B4").Select End Sub ثم بعد ذلك اذهب لصفحة الإكسيل ومن قائمة Developer اختر Insert ثم بعد ذلك اختر شكل Command Button ثم بعد ذلك عمل دبل كليك عل هذا الشكل ووضع هذا الكود بالصفحة التى ستفتح Private Sub CommandButton2_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False ActiveSheet.PrintPreview UNHIDE_BLANK Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub

قمت بالتعديل على هذا الكود بناءا على رأى حضرتك فى ان اهم صفحة هى صفحة الخزينة ولا يهم الأحتفاظ بالبيانات فى باقى الصفحات بارك الله فيكم

أخى الكريم انت تختار الإسم من قائمة منسدلة بجميع الأسماء

وعليكم السلام اخى الكريم تفضل لك كل ما طلبت تركات تعديل.xlsm

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

تفضل لك ما طلبت ترحيل من عدة شيتات الى شيت واحد2.xlsm

وعليكم السلام تفضل لك ما طلبت ايرادات الروضة معدل.xlsx

تم عمل كود بصفحة Data لجلب التاريخ كما انه تم عمل كود ايضا للطباعة فى صفحة Search2 ,وبهذا اعتقد ان كل الطلبات تمت ولا يوجد شيء اخر بحث3.xlsm

يمكنك مراجعة نسخة الأوفيس لديك فالملف يعمل عندى بكفاءة

اخى الكريم أحمد الكود يعمل تمام لدى الكل تأكد من نسخى الأوفيس لديك فالمشكلة من عندك انت جزاك الله كل خير

هذه المشكلة يمكن تكون من نسخة الأوفيس عندك بارك الله فيك

تفضل استاذى الكريم كود استاذنا الكبير سليم يعمل بكل دقة وبكفاءة عالية له منا كل المحبة والإحترام ترحيل من الفورم الى ملف الإكسيل.xlsm

أخى الكريم لا داعى للقلق من وجودها فوجودها من قبل الكود والدليل على ذلك لو قمت بمسحها فانها تعمل ايضا عند كتابى البيانات جزاك الله كل خير

تفضل لك ما طلبت وهذا هو الكود المستخدم Sub x() Range("F7:F1000").Formula = "=IF(A7<>0,SUM(E7*C7),"""")" End Sub ويوضع كود اخر فى حدث ورقة fatoura وهو Private Sub Worksheet_change(ByVal Target As Range) Call x End Sub وتفضل الملف بعد وضع الأكواد به fatoura7.xlsm

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

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

تم التعديل اللازم كما تريد ليأخذ اى احتواء او ما يشمل هذه العبارة بحث2.xlsm

وعليكم السلام اخى الكريم تفضل هذا الملف لعله المطلوب تفقيط عربى وانجليزى.xlsm