أبو سجده

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

أخى الحبيب ياسر السلام عليكم ورحمته الله وبركاته مزيدا من التوضيح والتفصيل معلوم ان لكل شركة مُصنعة عدد محدد من الاصناف التى تقوم بإنتاجها ومن المعلوم أيضا أنه ليس شرطا أساسيا ان تطلب كتاجر أو موزع جميع ماتنتجه تلك الشركة كلما تم الطلب وربما تطلب عدد معين من الاصناف اوربما جميعها حسب الاحوال " بس قول يارب **** وحسن السوق ولا حسن البضاعة " المطلوب بإذن الله تعالى فى هذا الجزء من المطلوب اولا ترحيل محتويات الفواتير الواردة من العمود 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 حيث أنه المنوط بالتعديل المطلوب ***** جزاكم الله خيرا **** تقبل وافر تقديرى واحترامى

للرفع

أخى الفاضل الاستاذ القدير // بن علية حاجى أخى الفاضل الاستاذ القدير // سليم حاصبيا السلام عليكم ورحمته الله وبركاته المرفق التالى يوضح مزيدا من تعديل النطاق del_range المرجو تحقيقه حيث أن النطاق هنا متعير وليس ثابتا بالموديول رقم 3 كود الـــ PRINT_ALL أضفت الكود الخاص بسيادتكم مرة والكود الخاص بالاستاذ الفاضل // سليم حاصبيا وكلاهما أدى الغرض ولكن أريد هنا بعد إذن حضراتكم تعين نطاق الــ del_range ليشمل الصغوف من F8 الى J37 بالاضافة الى النطاق من A38 الى J 44 حيث يشمل هذا النطاق جملة الكشف الاول + " تذييل الفاتورة " يتم نسخة من الورقة " data " علما بأن الفاتورة بنظام القرش والجنيه مع نظام تلحيق اجمالى الفاتورة ولكل 30 صنف برجاء الضغط على مفتاح F2 المطلوب بحول الله تعالى عدم إظهار النطاقات المذكورة مع طباعة النسخة الاولى وإظهارها مرة أخرى مع طباعة النسخة الثانية والثالثة وافر تقديرى واحترامى وجزاكم الله تعالى عنى خير الجزاء فاتورة مبيعات بنظام القرش والجنيه مع التفقيط.xlsb.rar

للرفع

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

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

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

السلام عليكم بعد إذن إخوانى الافاضل الاستاذ القدير / ابو خليل والاستاذ القدير / احمد يعقوب والاستاذ القدير / ياسر العربى وبعد هذه الحلول الرائغة اسمحوا لى بهذة الاضافة على الاخ / ناصر ان يضع كود التنسيق لآخى القدير الحاج / احمد يعقوب فى بداية كود استدعاء البيانات ليتم استدعاؤها على النحو المطلوب ليصبح الكود هكذا Sub MACRO1() 'äÓÎ ÊäÓíÞ æÑÞÉ 2 Çáì ßá ÇæÑÇÞ ÇáãáÝ Dim RN1 As Range, SH, ER ' Sheets("æÑÞÉ2").Select Sheets("æÑÞÉ2").Range("A9:J9").Copy For SH = 2 To Sheets.Count ER = Sheets(SH).UsedRange.Rows.Count Set RN1 = Sheets(SH).Range("A8:J" & ER) RN1.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False RN1.PasteSpecial Paste:=xlPasteColumnWidths Next SH Application.CutCopyMode = False End Sub Sub test() Dim Col As New Collection, Arr, i As Long, J As Long On Error Resume Next Arr = Sheet1.Range("A7:J" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row).Value For i = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Col.Add Key:=J & Chr(2) & Arr(i, 1), Item:=Arr(i, J) Next J Next i With Sheet2.Range("A7:J" & Sheet2.Cells(Rows.Count, "A").End(xlUp).Row) Arr = .Value For i = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Arr(i, J) = Col(J & Chr(2) & Arr(i, 1)) Next J Next i .Value = Arr End With End Sub Sub Bring_Data() Dim i As Long Dim K As Long Dim LastRow As Integer Dim SourceSheet As Worksheet Set SourceSheet = ThisWorkbook.Sheets("sheet3") LastRow = SourceSheet.Range("e" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("E7").Select K = 0 For i = 8 To LastRow + 8 Step 20 SourceSheet.Range("E" & i & ":V" & i + 19).Copy Range("A" & K + i).Select ActiveSheet.Paste K = K + 7 Next Application.ScreenUpdating = True End Sub Sub Clear_Data() Dim LastRow As Integer LastRow = Range("a" & Rows.Count).End(xlUp).Row Range("A8:V" & LastRow).Clear End Sub Sub Clear_Sheet2_Data() Dim LastRow As Integer LastRow = Sheet2.Range("a" & Rows.Count).End(xlUp).Row Sheet2.Range("B8:J" & LastRow).Clear End Sub Sub Call_All() Dim myConfirm myConfirm = MsgBox("åá ÊÑíÏ äÓÎ ÇáÊäÓíÞÇÊ", vbYesNo) If myConfirm = vbYes Then MACRO1 myConfirm = MsgBox("åá ÊÑíÏ ÇÓÊÏÚÇÁ ÇáÈíÇäÇÊ", vbYesNo) If myConfirm = vbYes Then test myConfirm = "" myConfirm = MsgBox(" åá ÊÑíÏ ÊÑÍíá ÇáÈíÇäÇÊ", vbYesNo) If myConfirm = vbYes Then Sheet5.Select Bring_Data Sheet2.Select End If myConfirm = "" myConfirm = MsgBox("åá ÊÑíÏ ãÓÍ ãÍÊæíÇÊ äØÇÞ ÇáÈíÇäÇÊ", vbYesNo) If myConfirm = vbYes Then Clear_Sheet2_Data myConfirm = "" myConfirm = MsgBox("åá ÊÑíÏ ÇáÈÏÁ Ýì äÞá ÇáÈíÇäÇÊ áØÈÇÚÉ ÇáßÔæÝ", vbYesNo) If myConfirm = vbYes Then StartTimer End Sub أرجو أن أكون قد وفقت فى تقديم مايصبوا اليه أخى الفاضل ناصر المصرى تقبلوا جميعا وافر احترامى وجزاكم الله خيرا

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