kh34d

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

بارك الله فيك اخي... سلمت يمينك افكار جديده واكواد جديده... شكرا لك الكود ما شاء الله شغال 100% تسلم الايادي فيه حاجه بسيطه: 1- لو مفيش بيانات في الفاتورة الاصليه عند الترحيل...بيظهر رسالة no data كدا تمام... لكن شريط التقدم بيظل ظاهر عند 0% ولا يختفي ...المفروض يختفي؟؟ وكذلك تظهر الاعمدة المختفيه لا اعرف لماذا؟؟ 2- ولو هذا الشريط ... فيه زرار ok ,cancle لالغاء عمل الكود...علشان لو لقيت الفاتورة فيها غلط الغي الامر ...يكون افضل 3- لو انا غلطت ومنزلتيش كمية الصنف الاول ونزلت كمية الصنف التاني مثلا...وعملت ترحيل؟! ...يتم الترحيل وهذا خطأ. المفروض ان شرط الترحيل ان يكون التاريخ وكميات الاصناف موجوده (كل خانات الكميات اقصد). *****ا نا عارف ان طلباتي كتير وتعبت حضرتك....ان كانت في الامكان ...فجزاك الله خير ورزقك من حيث لا تحتسب... وان لم تكن ...فجزاك الله كل خير ايضا وذادك من علمه *****

ربنا يكرمك... انا اسمي خالد من مصر ارجو الانتظار لاني لم اختبر الملف بعد.. لانشغالي... عذرا لذلك. عندما اتأكد منه سأخبرك بإذن الله

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

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

في الواقع انا محتاج لشريط التقدم هنا في هذا الكود... ومحتاجه أيضا في كود آخر. كلا الكودين يأخذ حوالي دقيقه أو اكثر لإتمام التنفيذ. كود شريط التقدم موجود في عدة منتديات عربيه وأجنبية....لقد حصلت عليه ولكن لم أستطع تنفيذه مع اكوادي أو انا مش فاهم فكرته. عموما سأضع الكود الخاص بك في موضوع منفصل واطلب من الاخوه الأفاضل (طلب عمل دمج للكود مع كود شريط التقدم). عندي فكره ممتازه:- ايه رايك لو ارفق لك ملف شريط التقدم وحضرتك تحاول تدمجه مع الكود الخاص بك هنا؟؟؟

وربنا يكرمك يا رب انا الان في طريقي للبيت بإذن الله... وعندما اصل سوف اطبق الملف الجديد بتاع حضرتك. النقطه التاليه:- عمل شريط التقدم... بحيث عند تنفيذ هذا الكود لا تظهر شكل الساعه الرملية العاديه لتنفيذ الأمر.... ولكن يظهر progress bar من 1%حتي 100% ينتهي أو يصل ال 100%عند انتهاء تنفيذ أمر الكود.... فاهمني حضرتك ؟؟

نعم تم حل المشكله...شكرا لك النقطه التاليه هي:- 3- المدي المراد نسخه هو (a5:m27) ككل من الصفحه الاساسيه invoice مع العلم بان جزء من ذلك المدي ( h5:m27 )مخفي وبه بيانات واريد اظهارها هذه المره >>بعد الترحيل في الصفحه الثانيه recycle بعكس ما سبق بخصوص الصفوف المخفيه بمعني اخر :- ترحيل الظاهر فقط من الصفوف في المدي a5:f27 مع ترحيل المخفي من الصفوف في المدي h5:m27

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

استاذي العزيز ...الكود اكثر من رائع...بارك الله فيك ولكن استحملني معلش ...هناك بعض الملاحظات:- 3- المدي المراد نسخه هو (a5:m27) من الصفحه الاساسيه invoice <<< ( مع العلم بان الاعمدة من H وحتي M مخفيه وبها بيانات واريد اظهارها هذه المره >>بعد الترحيل في الصفحه الثانيه recycle بعكس ما سبق بخصوص الصفوف المخفيه 6- اظهار الصفوف الفارغه في الفاتورة بالصفحة الرئيسيه invoice <<<< (هذا الطلب لا يعمل.. فالصفوف مخفيه كما هي ولم تظهر في الصفحه الرئيسيه ) 8- طلب خاص:- اكون شاكر لو تم ادراج كود ( شريط التقدم).... يعمل اثناء تنفيذ الماكرو ككل ... VBA Progress Bar UserForm لاني حاولت اعمله لكن لم ينجح معي بان يكون نفس مدة تنفيذ الماكرو <<< ( هذا الطلب غير موجود بالكود) *** لم افهم هذا الجزء ( في ورقة العمل المسماة recycle اجعل عنوان أول فاتورة موجودة في الصف رقم 3 ) فانا اريد ارقام الفواتير في recycle كما هي بالتسلسل الطبيعي لها في عملي...لاني بعمل بحث بعد كدا علي ارقام الفواتير *** ارجوا ان لا اكون اثقلت عليك وشكرا جدا جدا علي تعبك معايا

شكرا لك

هل حضرتك شوفت الموضوع الجديد؟؟

شكرا لك ...ولا اعتذار بين الاخواه فمشاكل المنتدي ووالاعضاء كثيره انا عملت موضوع جديد هذا هو رابطه ..وارجو ان يكون الشرح وافيا

السلام عليكم اخواني الكرام بعد اذنكم انا عايز ارحل الفاتورة المرفقه من الصفحه الاساسيه ( invoice) والمخصصه لعمل الفواتير. الي الصفحه الثانيه( recycle) وهي صفحه اجمع فيها كل الفواتير السابقه توضيح:- الصفحه الرئيسيه بها( فاتورة واحده ثابته) بها 16 صف ثابتين لا يذيدوا ولا يقلوا ولكن لا يتم ملء جميع الصفوف بالطبع....فهذا حسب حالة البيع انا عندي كود للطباعه >>> يقوم باخفاء الصفوف الفارغه ثم يقوم بالطباعه المطلوب >>> كود للترحيل بالمتطلبات الاتيه :- بالترتيب الاتي 1- ان يكون الماكرو ( بداخل صفحة invoice ) ويقوم بفك الحمايه لصفحة الفاتوره ( invoice) برقم سري 11 2- لو فيه بيانات في خانة التاريخ او عمود الكميات يتم الترحيل وتظهر رساله تفيد ذلك ولو مش موجوده البيانات لا يتم الترحيل وتظهر رساله بذلك. 3- يتم نسخ الفاتورة كما هي ( جدول به البيانات فقط ) بدون نسخ الالوان او المعادلات>>> وبدون نسخ الصفوف المخفيه بل حذفها>>>هام جدا . الي الصفحه المرحل لها....علما بان المدي المراد نسخه هو (a5:m27) من الصفحه الاساسيه. 4- يتم اختيار خانه معينه ولتكن (a3) في الصفحه الثانيه ( المرحل اليها) ويتم النسخ فيها دائما بمعني ان تكون الفاتورة الجديده المرحله فوق الفواتير القديمه. 5- بعد ذلك يتم الوقوف في خانة (b26) في الصفحة الرئيسيه ثم مسح خانة (التاريخ وعمود الكميات) فقط....ثم ذيادة رقم الفاتورة + 1 6- اظهار الصفوف الفارغه في الفاتورة بالصفحة الرئيسيه . 7- حماية الورقه مره اخري برقم سري 11 8- طلب خاص:- اكون شاكر لو تم ادراج كود ( شريط التقدم).... يعمل اثناء تنفيذ الماكرو ككل ... VBA Progress Bar UserForm لاني حاولت اعمله لكن لم ينجح معي بان يكون نفس مدة تنفيذ المتكرو بيانات الملف المرفق:- الصفحه الاولي الرئسيه بها فاتورة واحدة فقط رقمها 4 علي سبيل المثال ...ويتم العمل عليها دائما ....والمراد ترحيلها الصفحه الثانيه بها 3 فواتير ارقام 1و2و3 ...الفاتورة رقم 3 هي الاحدث ... ولذلك فالفاتورة الاساسيه ذياده +1= 4 ارجوا ان اكون شرحت المطلوب شرحا وافيا ليس فيه لبس.... وجزاكم الله خيرا فاتورة.rar

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

بارك الله فيك اخي الكريم انا لم اشكك في علمك او قدرتك في عمل اي كود......ولكننا نتناقش سويا حتي نصل الي الهدف المطلوب وارجوا ان يتسع صدرك حتي يكون العمل علي اكمل وجه ..واجرك علي الله باذن الله الملاحظات:- اولا:- انا فهمت ان اول مشكله هي ان حضرتك قمت بعكس الاوراق invoce هي الورقه الاساسيه recycle هي الورقه الثانيه >>>>>>>المنقول اليها ...تجمع فيها كل الفواتير ( الفاتورة الجديدة فوق الفواتير القديمه) ثانيا :- المطلوب ان يكون في الورقه الاساسيه ((((( فاتورة واحده فقط))))) لا يوجد غيرها في الورقه ...وهذا غير موجود في ملف حضرتك بل تشرط انا اضع اكذا فاتورة لترحلها وعند عمل فاتورة في الورقه الاساسيه (اقوم بملئها ثم ترحيها ثم حذف بياناتها حتي اصدار فاتورة جديدة) كل ذلك من خلال نفس الكود. وانا سوف اقوم ببعض الزيادات علي الكود ( مثل ذيادة رقم الفاتورة تلقائيا في الورقه الاساسيه بعد ترحيلها وحذف بياناتها وحماية الورقه وغيرها من بعض الاضافات) ثالثا :- ارجو مسح هذا الشرط ( اذا لم يكن في احد الفواتير "فاتورة مبيعات رقم" او "الاجمالي" فإن الكود يمسح البيانات من ورقة invoice و يتوقف عن العمل) رابعا:- الكود يعمل بالفعل ولكن ينقصه بعد التعديلات كما ذكرت ....ولم يعمل قبل ذلك لاني مسحت الفاتوره المراد ترحيلها( لظني بعدم عكس الاوراق) ارجوا ان اكون أوضحت اكثر من كل مره

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

انا كنت ارفقت الكود اللي انا شغال بيه في المشاركه رقم 7 هو شغال كويس... يا ريت حضرتك تشوف طريقه النسخ أو الترحيل اللي انا اقصدها. المشكله اني كنت عايز أضيف جزء في هذا الكود لحذف الصفوف المخفيه عند ترحيلها... فبدأ يطلع رسايل خطأ.

شكرا لك... سأحاول للأسف ليس هذا هو المطلوب... كما أني عندما ضغطت على run لا يعمل... تركته فتره طويله ولا يتوقف عن التنفيذ (ساعه رمليه ) المطلوب أن تكون فاتوره واحده فقط في الصفحة الاولي.... وبعد كل مره ارحلها وترجع فاضيه تاني وهكذا

السلام عليكم ورحمة الله وبركاته انا رفعت ملف كمثال للمطلوب ... يا ريت الرد بعد اذنك... وشكرا لك

هذا هو الملف استاذي وبخصوص الصفوف الفارغه... هي فارغه في الفاتورة الاساسيه ولكنها مخفيه ولا أريد حذفها لاحتياجي لإظهارها مره اخرى فيما بعد... ولكن عند الترحيل اريد ان احذفها نهائي من الصفحه الثانيه لاني لم أعد احتاجها .. كما بالمثل المرفق Book10.rar

ردي علي الأستاذ ياسر... كنت اقصد به أن تكون الفاتورة الاصليه بها الصفوف فارغه كما هي لاملئها مره اخرى.. هذا صحيح. لكن ما كنت اقصده بكلامي إليك شيئ آخر وهو حذف الصفوف الفارغه بعد ترحيلها وليس في الفاتورة الاصليه بالنسبه لعمل ملف وهمي... سأقوم بعمله وارفعه لحضرتك .

شكرا لك استاذي.. ولكن هناك بعض التعديلات بعد اذنك. الأول.. هذا الكود مسح الفواتير المجمعه ووضع الفاتورةالجديده مكانهم. أريد أن يتم وضع الفاتورة فوق آخر فاتوره في الصفحه المنقول إليها بنفس البيانات والتنسيق. ثانيا.. بدلا من ترحيل الصفوف المخفيه كما هي... أريد أن يتم حذفها اصلا حتى اضمن أن يكون ملف العمل أقل حجما وهو هدفي من الأساس. ملاحظات.. اسم شيت الفاتورة هو invoice اسم شيت الفواتير المجمعه هو recycle المدى المراد نسخه(الفاتورة) هو a5:m27 سيتم نسخ الفاتوره إلى الخليه a3 في شيت الفواتير المجمعه وشكرا مقدما على تعبك معايا تحياتي

السلام عليكم استاذي الكريم من فضلك انا عامل كود ترحيل لجدول به بعض الصفوف المخفيه....وعند الترحيل تظهر تلك الصفوف فما الحل؟؟

مسح...