محمد مصراوى

اين انتم اخوتى

اشكرك اخى على سرعة استجابتك لى ولكن نفس المشكلة debug فى سطر الاخفاء وسوف ارفق الملف لكى يظهر لك وشكرا لك اخى t.rar

السلام عليكم اخوتى يوجد عندى ملف به معادلات كثيرة ومن ضمن هذة المعادلات قيم تخرج (بصفر) فاردت اخفاء هذة الخلية من الورقة لان قيمتها تساوى صفر فبحثت ووجد معادلة وعند تطبيقها لايمكن لتوقف عمل الكود وهذا هو الكود Private Sub Worksheet_Calculate() Application.ScreenUpdating = False For Each cell In Range("k10:k49") If cell.Value = 0 Then cell.EntireRow.Hidden = True End If Next cell Application.ScreenUpdating = True End Sub فماذا افعل برجاء افادتى فى هذا الكود " ملحوظة " هل المعادلات تؤثر على الكود ام لا لاننى شيلت المعادلات وخليت قيمة الخلية تساوى صفر فاشتغل الكود وشكرا

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

بصراحة تسلم ايدك وجزاك الله خيرا

جزاك الله خيرا قاعدة if الشرطية جميلة

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

جزاك الله خيرا لى طلب ارجو افادتى فية شرح الاكواد التى قمت بعملها Application.ScreenUpdating = False For E = 19 To 25 If Cells(E, 1).Value > 0 Then Y = Y + Cells(E, 1).Count End If Next With Sheets("ÍÝÙ ÇáÈíÇäÇÊ") N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 T = 18 For R = 1 To 7 For M = 1 To Y .Cells(N - 1 + M, R) = myRng1.Areas® .Cells(N - 1 + M, 8) = Cells(T + M, 7) .Cells(N - 1 + M, 9) = Cells(T + M, 3) .Cells(N - 1 + M, 10) = Cells(T + M, 5) .Cells(N - 1 + M, 11) = Cells(T + M, 1) .Cells(N - 1 + M, 11 + R) = myRng2.Areas® Next Next End With لانى محتاج فعلا افهم الترحيل ولكنى لست دارس لل v.b هذا لينتفع به جميع الاخوة

بصراحة عمل رائع جزاك الله خيرا وياريت تتفضل بشرح عملية الترحيل بالتفصيل فى مشاركة منفصلة لانة مهم جدا

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

جزاك الله خيرا

جزاك الله خيرا وبارك الله فيك وغفر لوالديك وادخلهم جنتة شكرا

شكرا اخى هادى على تعبك ويارب دائما نستفيد منك جزاك الله خيرا

كل عام وانتم جميعا بخير وعيد سعيد على كل المسلمين Masrawy_online@hotmail.com

جزاك الله خيرا وتسلم ايدك ياباشا

جزاك الله خيرا

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

جزاك الله خيرا

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

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

جزاك الله خيرا

هل من مغيث

ياريت حد يشوف حل يا اخوتى

اين انتم

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