أبو سجده

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

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

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمته الله وبركاته أشكر حضراتكم لحسن تعاونكم مع جميع السادة الاعضاء المرفق التالى يوضح المطلوب بحول الله تعالى الطلب الاول إضافة كود كما هو موضح بصفحة " المصروفات " الطلب الثانى تعديل الكود المبين بالموديول كما هو موضح بصفحة " الفواتيرالصادرة " تقبلوا وافر تقديرى واحترامى *** وجزاكم الله خيرا ترحيل الفواتير الصادرة والمصروفات.xlsb.rar

اخى الحبيب الغالى // ابو البراء على الرحب والسعة جارى اعداد ملف سيتم رفعه مساءا بحول الله تعالى وجزاكم الله خيرا

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

اخى الخلوق المحترم // ابو البراء السلام عليكم ورحمته الله وبركاته نعم حبيب قلبى لقد أدركت المطلوب تماما نأتى بحول الله تعالى ومن بعد إذنك للجزء الثانى من المطلوب الا وهو تعديل الكود المبين بالمرفق التالى وهو من احد روائعك " يعنى مبجبشى حاجة من عندى " حيث يرحل الكود من صفحة " الفواتير الواردة " الى صفحة " حركة الوارد والصادر " دون مشاكل وحسب ما أريد ولكن يحتاج الكود الى بعض التعديلات المبينه من داخل المرفق برجاء الاطلاع والافادة بإذن الله تعالى بارك الله فيكم وفى البراء **** تقبل وافر احترامى وتقديرى **** وجزاكم الله خيرا ترحيل الاصناف الفعلية من الواردات والصادرات+333.rar

اخى الحبيب المحترم // ابو البراء السلام عليكم بداية بارك الله فيكم لصبركم و إصراركم على مساعدتى فى هذا الموضوع بشأن صفحة " القائمة العامة للمخازن " العمود B الخاص بالاصناف هذة الاصناف ثايته والمطلوب التعديل ليتم ترحيل الكمية الواردة وسعر الشراء بدلالة اسم الصنف ايا كان موقعه تقبل وافر احترامى مع قبول اعتذارى لهذا الخطأ الغير مقصود جزاكم الله خيرا

اخى الحبيب // ياسر ابو البراء نعم هو كذلك وافر تقديرى واحترامى

أخى الحبيب ياسر السلام عليكم ورحمته الله وبركاته مزيدا من التوضيح والتفصيل معلوم ان لكل شركة مُصنعة عدد محدد من الاصناف التى تقوم بإنتاجها ومن المعلوم أيضا أنه ليس شرطا أساسيا ان تطلب كتاجر أو موزع جميع ماتنتجه تلك الشركة كلما تم الطلب وربما تطلب عدد معين من الاصناف اوربما جميعها حسب الاحوال " بس قول يارب **** وحسن السوق ولا حسن البضاعة " المطلوب بإذن الله تعالى فى هذا الجزء من المطلوب اولا ترحيل محتويات الفواتير الواردة من العمود B و حتى العمود D بداية من الخلية B8 الى صفحة " القائمة العامة للمخازن " على أن يتم ترحيل الاصناف الواردة قرين كل صنف " بدلالة أسم الصنف " كما هو مبين بالمرفق التالى ثانيا بشأن الكود التالى Sub Tarhil() Dim Ws As Worksheet, Sh As Worksheet Dim LRWS As Long, LRSH As Long Dim X As Long, I As Long Set Ws = Sheets("الفواتيرالواردة"): Set Sh = Sheets("حركة الصادر والوارد والمصروفات") LRWS = Ws.Cells(39, 1).End(xlUp).Row X = Application.WorksheetFunction.CountA(Ws.Range("A8:A" & LRWS)) Application.ScreenUpdating = False For I = 1 To X LRSH = Sh.Cells(Rows.Count, 2).End(xlUp).Row + 1 Sh.Cells(LRSH, 2).Value = Ws.Range("b6") Sh.Cells(LRSH, 3).Value = Ws.Range("c3") Sh.Cells(LRSH, 4).Value = Ws.Cells(7 + I, 2).Value Sh.Cells(LRSH, 5).Value = Ws.Cells(7 + I, 3).Value Sh.Cells(LRSH, 6).Value = Ws.Cells(7 + I, 4).Value Next I MsgBox "الترحيل لصفحة حركة الوارد والصادروالمصروفات", vbInformation, "YasserKhalil" Application.ScreenUpdating = True End Sub فهو يعمل على ترحيل الفواتير الواردة الى صفحة " حركة الصادر والوارد " ولكن هناك تعديلا من شأنه ترحيل محتويات الفوتير الورادة مع تجاهل الصفوف التى ليس بها كميات واردة مع مراعة ذكر أسم الشركة مرة واحدة وكذا تاريخ ورود الفاتورة وافر تقديرى واحترامى ***** وجزاكم الله خيرا ترحيل الاصناف الفعلية من الواردات والصادرات+111.rar

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمته الله وبركاته المرفق التالى يوضح المطلوب صفحة الفواتير الواردة المطلوب بإذن الله تعالى ترحيل الاصناف الواردة فعليا قرين كل صنف بصفحة " القائمة العامة للمخازن " تعديل الكود الاول Tarhil ليتم ترحيل كامل الاصناف الورادة بصفحة " حركة الصادر والوراد" على التوالى وبدون فواصل ليصبح الترحيل ترحيلا مزدوجا وفى أن واحد من صفحة الفواتير الواردة الى صفحتى " القائمة الرئيسية للمخازن + حركة الصادر والوراد " هذا هو الجزء الاول من المطلوب تقبلوا وافر تقديرى واحترامى *** وجزاكم الله خيرا ترحيل الاصناف الفعلية من الواردات والصادرات.rar

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

هههههههههه هههههههههههه عليك عسل ياأبو البراء **** مبتفرقشى معايا أنذرات خليها كرت احمر وخلص فى الدور ماهيه راحت علينا والحمد لله على الصحة تمام الله ينورعليك وعاشت ايديك والله العظيم ياأبو البراء " وجود عطل بجهازى = وجود عطل فى تركيزى " داء بعيد عنك أضف الى ذلك لا أكل ولا شرب أستحلفك بالله لاتنسانى فى موضوعى القادم وهو ذات صلة بهذا الموضوع ولكن سيتم عرضه بموضوع منفصل ولاتنسى أن تُقبل يد البراء نيابة عن عمه سعيد أسعد الله قلبك كما اسعدتنى بهذة المشاركات القيمة بقيمتكم وقامتكم العالية وافر تقديرى واحترامى وجزاكم الله خيرا

اخى الحبيب الغالى // ياسر ابو البراء السلام عليكم ورحمته الله وبركاته المشكلة انى بكلمك من خارج المنزل منذ رفع الموضوع نظرا لوجود عطل بالجهاز وجارى الان تحديثة بعد عدة محاولات لصيانته حتى الامس تم تجربة طباعة الملف وتبين الاتى عدم ظهور التفقيط وعبارة ماعدا السهو والخطأ بالنسخة الثالثة بشأن عبارة " نسخة للجفظ " تظل ثابتة بعد الطباعة والمطلوب إظهارها مع الطباعة واخفاؤها كما بالتفقيط وعبارة ماعدا السهو والخطأ بشأن إخفاء العمود F يظل مخفيا بعد عملية الطباعة واخيرا عدد النسخ التى طبعت فعليا هى 4 نسخ والمطلوب 3 ارجو من الله العلى القدير أن ينير قلبك وافر تقديرى واحترامى وجزاكم الله خيرا

اخى الحبيب الغالى ياسر ابو البراء السلام عليكم جارى تجربة الكود برجاء المتابعة وافر تقديرى واحترامى

اخى الحبيب // ياسر ابو البراء السلام عليكم لا توهان ولا شيىء الامور تسرى على مايرام " شوية لخبطة فى الجهاز وتم احتواء الموقف " الاضافة بعيدة كل البعد عما ذكر ولكن بنفس فكرة أخفاء واظهار التفقيط وكذا عبارة " ماعدا السهو والخطأ " هى اضافة جديدة أريد ان تظهر عبارة " نسخة للحفظ " مع طباعة النسخة الثالثة دون غيرها على ان يكون محلها بالخلية F1 علما أخى الحبيب ان الخلية F1 تقع ضمن محتوى نطاق الــ Print_Titles بمعنى اخفاء بالنسختين الاولى والثانية ومن ثم اظهارها بالنسخة الثالثة ارجو ان اكون وفقت فى شرح المطلوب ***** جزاكم الله خيرا ***** تقبل وافر احترامى

اخى ياسر ابو البراء السلام عليكم بعد هذا الحل الاكثر من رائع هل من إضافة أخرى بما أننا فى ذات الموضوع الاضافة هى عبارة " نسخة للحفظ " على أن يتم إظهارها بالنسخة الثالثة فقط ومحلها بالخلية F1 علما بأنه على الوضع الحالى يتم طباعة نسختين فقط والمطلوب ثلاثة نسخ وافر تقديرى واحترامى وجزاكم الله خبرا

اخى ابو البراء تسمح لى أُقبل البراء ثلاث قبلات بارك الله فى البراء وفيكم وجزاكم الله خيرا الهى وانت جاهى ينورهالك يياسر ياأبن حواء وأدم ويجعلك فى كل كود سلامة " ههههههه " ويباركلك فى بدنك وصحتك وأولادك اخى ياسر للموضوع بقيه ولكن بموضوع أخر مرتبط بهذا الموضوع سبتم رفعه فى حينه فلا تنسانى جزاكم الله خيرا **** انتهى الجزء الاول من البرنامج تقبل وافر تقديرى واحترامى

اخى الحبيب المحترم / ياسر " ابو البراء " السلام عليكم بشأن الصفوف المعنية بالاخفاء ومن ثم ظهورها مرة اخرى مع طباعة النسخة الثانية هى بداية من الصف 41 حتى 43 ثم من بعد ذلك كل 34 سطر " الاسطر المظلله باللون الرمادى " هذه واحدة اما الاخرى أريد فضلا منك اخى الحبيب إضافة عبارة " ماعدا السهو والخطأ " اسفل التفقيط " المظلله باللون الاصفر" على ان يتم ظهورها واخفاؤها مع التفقيط **** المرفق التالى يوضح التعديل المطلوب ارجو بأن لاأكون مثقلا عليك **** زادكم الله أدبا وعلما *** تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا فاتورة مبيعات بنظام القرش والجنيه مع التفقيط +333.xlsb.rar

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

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

أخى الحبيب المحترم // ياسر خليل ابو البراء " بارك الله فيكما " السلام عليكم ورحمته الله وبركاته الحمد لله تعالى فى نعمه والله لقد أثلجت قلبى ولاأدرى كيف أشكرك لمروركم العطر بهذا الموضوع لكن كل ماأتمناه من قلبى أن تقبل منى ما أحمله اليكم من مشاعر أخوية نبيلة وطيبة أسأل الله تعالى ان يكون هذا الموضوع فيه النفع والافاده وأن يتقبل الله منا ومنكم ومن جميع السادة الزملاء صالح الاعمال اولا أخى الحبيب فلنترك المرفق السابق جانبا ولنترك عملية إخفاء التذييل هى الاخرى جانبا نظرا لتحقق المطلوب بالامس وهو بصفة مبدئية حل مُرضى بالنسبة لتحقيق الهدف المرجو حيث تم زيادة نطاق الـــ del_range من الـــ G8 الى J 65536 حيث يحتوى هذا البيان فى بعض الاحيان الى أكثر من 100 صنف فلاينبغى هنا العمل على نظام الفواتيرمحددة الاصناف كعدد 15 صنف او 20 صنف وبالتالى لا يجوز تفقيط كل فاتورة على حدى حتى تصل الى الــ 100 صنف وبقيت خطوة أخيرة " وهوالمطلوب " لكى انهى هذة الجزئية الاولى من البرنامج الا وهو تفقيط المبلغ فكيف يمكن عدم إظهار التفقيط عند طباعة النسخة الاولى ومن ثم إظهاره مرة أخرى مع طباعة النسخة الثانية علما بأن التفقيط هنا لا يتم اظهاره الا عند الطباعة وفى نهاية بيانات الاسعار مهما كان عددها بمعنى فرضا هناك اربعة بيانات تحتوى على 120 صنف فلا يتم طباعة التفقيط إلا فى نهاية البيان الرابع فأرجوعمل اللازم نحو إضافة أو تعديل أوربما ترتيب الكود الــ PRINT_ALL ليعمل على عدم إظهار التفقيط عند طباعة النسخة الاولى ومن ثم اظهاره عند طباعة النسخة الثانية برجاء الاطلاع على المرفق التالى تقبل وافر تقديرى واحترامى وجزاكم الله خيرا فاتورة مبيعات بنظام القرش والجنيه مع التفقيط +22.xlsb.rar

السلام عليكم ورحمته الله وبركاته بالمرفق التالى بيان أسعار بطريقة التليحق تم فى موضوع سابق بمعاونة زملائى الافاضل إخفاء المدى =فاتورة!$F$8:$J$37;فاتورة!$A$38:$J$38 عند طباعة النسخة الاولى ومن ثم إظهاره بداية من النسخة الثانيه فهل من سبيل لتعديل الكود المبين بالموديل رقم 3 بهذا الجزء من الكود End With Application.Goto Reference:="del_range" Selection.NumberFormat = ";;;" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Application.Goto Reference:="del_range" Selection.NumberFormat = "00" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False Range(Cells(lr + 1, "B"), Cells(lr + 1, "C")) = "" End Sub ليشمل إخفاء تذييل بيانات بيان الاسعار "الذى يتم نسخة من الورقة data " واجمالى ماقبله على ان يتم اخفاؤهم عند طباعة النسخة الاولى ومن ثم إظهارهم مرة أخرى بداية من النسخة الثانية او كما يترأى لحضراتكم من تعديل وذلك كلما فتحنا بيان جديد وذلك بالضغط على F2 بالاضافة الى 2 انتر " الاولى لنسخ التذييل والثانية لنسخ الجدول " أرجو بأن لاأكون مثقلا على حضراتكم ولله الأمرمن قبل ومن بعد وافر تقديرى واحترامى وجزاكم الله خيرا طباعة بشرط إخفاء تذييل بيان أسعار عند طباعة النسخة الاولى.xlsb.rar

للرفع

اخى الاستاذ الفاضل // ابراهيم ابو ليلة السلام عليكم ورحمته الله وبركاته جزاكم الله خيرا وبارك فيكم والله أنتم جميعا اللى ليكوا وحشة ظروف صحيه منعتنى من المشاركة خلال الفترة الماضية اخى ابراهيم لحين الرد على سيادتكم بعد عودتى من العمل يرجى التفضل بالاطلاع على المرفق فاتورة مبيعات بنظام القرش والجنيه مع التفقيط.xlsb.rar حيث أنه المنوط بالتعديل المطلوب ***** جزاكم الله خيرا **** تقبل وافر تقديرى واحترامى

للرفع