طباعة بشرط إخفاء تذييل بيان أسعار عند طباعة النسخة الاولى

[أبو سجده]

السلام عليكم ورحمته الله وبركاته

بالمرفق التالى بيان أسعار بطريقة التليحق

تم فى موضوع سابق بمعاونة زملائى الافاضل إخفاء المدى 

=فاتورة!$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

تم تعديل يناير 9, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الحبيب سعيد بيرم

كيف حالك وحال صحتك ؟ أرجو أن تكون بخير وفي أحسن حال

 

بالنسبة لطلبك اعذرني لم أكن متابعاً لك من البداية رغم أنه يشرفني أن أقدم لك ولو جزء بسيط من المساعدة ..

قرأت الموضوع واطلعت عليه وحاولت أن أفهم المطلوب ولكن ما زالت تنقصني بعض المعطبات لكي أحاول تقديم المساعدة قدر إمكانياتي المتواضعة

لقد ذكرت أنك تريد إخفاء تذييل بيانات بيان الأسعار....وسؤالي أليس هذا قد تحقق في عمود سعر الوحدة وبالفعل تم إخفائه ..

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

تقبل وافر تقديري واحترامي

[أبو سجده]

أخى الحبيب المحترم //  ياسر خليل ابو البراء " بارك الله فيكما "

السلام عليكم ورحمته الله وبركاته

الحمد لله تعالى فى نعمه والله 

لقد أثلجت قلبى ولاأدرى كيف أشكرك لمروركم العطر بهذا الموضوع

لكن كل ماأتمناه من قلبى أن تقبل منى ما أحمله اليكم من مشاعر أخوية نبيلة وطيبة

أسأل الله تعالى ان يكون هذا الموضوع فيه النفع والافاده

وأن يتقبل الله منا ومنكم ومن جميع السادة الزملاء صالح الاعمال

اولا أخى الحبيب فلنترك المرفق السابق جانبا

ولنترك عملية إخفاء التذييل هى الاخرى جانبا

نظرا لتحقق المطلوب بالامس وهو بصفة مبدئية حل مُرضى بالنسبة لتحقيق الهدف المرجو

حيث تم زيادة نطاق الـــ del_range من الـــ G8 الى J 65536  

حيث يحتوى هذا البيان فى بعض الاحيان الى أكثر من 100 صنف

فلاينبغى هنا العمل على نظام الفواتيرمحددة الاصناف كعدد 15 صنف او 20 صنف

وبالتالى لا يجوز تفقيط كل فاتورة على حدى حتى تصل الى الــ 100 صنف

وبقيت خطوة أخيرة " وهوالمطلوب "

لكى انهى هذة الجزئية الاولى من البرنامج

الا وهو تفقيط المبلغ فكيف يمكن عدم إظهار التفقيط عند طباعة النسخة الاولى

ومن ثم إظهاره مرة أخرى مع طباعة النسخة الثانية

علما بأن التفقيط هنا لا يتم اظهاره الا عند الطباعة

وفى نهاية بيانات الاسعار مهما كان عددها

بمعنى فرضا 

هناك اربعة بيانات تحتوى على 120 صنف فلا يتم طباعة التفقيط إلا فى نهاية البيان الرابع 

فأرجوعمل اللازم نحو إضافة أو تعديل أوربما ترتيب الكود الــ PRINT_ALL

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

برجاء الاطلاع على المرفق التالى

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

فاتورة مبيعات بنظام القرش والجنيه مع التفقيط +22.xlsb.rar

تم تعديل يناير 10, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

وعليكم السلام أخي وحبيبي في الله سعيد بيرم

أدام الله المحبة بيننا في الله

جرب الكود التالي حسب ما فهمت ..للأسف أنا لا أجيد الفهم في كثير من الأحيان .. ولكن حسب ما فهمت جرب الكود التالي

وقد تم التعديل على بعض أجزاء الكود ..

Sub Print_All()
    Dim Sh As Worksheet, LR As Long
    Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String
    Dim Texte1 As String, Texte2 As String
    
    Set Sh = Sheets("فاتورة")
    LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير"
    Texte1 = NoToTxt2(Cells(LR, "J"))
    Texte2 = NoToTxt2(Cells(LR, "I"))
    
    Range("del_range").NumberFormat = ";;;"
    ActiveSheet.PrintOut Copies:=1
    
    With Cells(LR + 1, "B")
        .Value = "إجمالى الفاتورة :  "
        .HorizontalAlignment = xlLeft
        
        If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2
        .HorizontalAlignment = xlRight
    End With
    
    Range("del_range").NumberFormat = "00"
    ActiveSheet.PrintOut Copies:=2
    Range(Cells(LR + 1, "B"), Cells(LR + 1, "C")) = ""
End Sub

تقبل تحياتي

 

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

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

تقبل تحياتي العطرة.

[أبو سجده]

أخى ابو البراء

السلام عليكم ورحمته الله وبركاته

الكيس من دان نفسه وعمل لما بعد الموت

وانا أدين لكم بالفضل بعد فضل الله علينا بهذا التعديل والاضافة القيمة

وكما تعودنا اخى الحبيب ان خير طريق للحل هو ايصال المعلومة

بشكل تفصيلى من شأنه التسهيل على السادة الزملاء فهم الموضوع

تم بفضل الله ثم بفضلكم تصويب مايجب تصويبه

واعتقد ان فى جعبتك الكثير نحو إخفاء التذييل حتى يكتمل الهدف بصورة نهائية

 فى انتظار ردكم الكريم **** زادكم الله وإيانا من علمه

وتقبل وافر تقديرى واحترامى

تم تعديل يناير 10, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الغالي سعيد

وعليكم السلام ورحمة الله وبركاته

الحمد لله أن تم المطلوب الأول على خير .. رغم أنني عانيت للوصول إلى فهم المطلوب ..

المشكلة في معظم الوقت لا تكون في حل المشكلة نفسها بل في فهم المشكلة بشكل مبدئي ، فأهم ما في الأمر أن تتضح الصورة ليستطيع الأعضاء تقديم المساعدة

فكم من موضوعات عانى فيها الأخوة الأعضاء مع طارح الموضوع بسبب عدم التوضيح ، وطالت الموضوعات وقدم الجميع حلولاً متنوعة ، ولكنها في النهاية لم تفي بالغرض .. وذهبت مساعداتهم أدراج الرياح ..

المقصد من قولي أنه يجب الالتزام بقواعد التوضيح

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

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

أرجو أن تكون وصلت فكرة التوضيح بالنسبة لكم وللجميع ، وأرجو ألا تنزعج من كثرة كلامي ..أو نصحي

تقبل وافر تقديري واحترامي

 

[أبو سجده]

اخى الحبيب //  ياسر ابو البراء

لا ياحبيب قلبى بالعكس ليس هناك انزعاج على الاطلاق

ولديك كل الحق فيما ذكرته فمن الاحرى والادق للوصول لحل أمثل

ان يتم عرض مشكلة السائل بطريقة تفصيلية قد تصيب البعض بالملل

ومن ليس لديه أى ملل لمن أراد المساعدة فمن حقه على السائل

فهم المشكلة اولا ومن ثم تقديم ما أتاه الله من فضله من حلول

وقد تكون حل المشكلة لدى السائل يسيره وأمام عينيه

ولكن ربما يوجد لديه حائل " دنيوى يحول دون الوصو لحل مشكلته " 

وعلى رأيك ينبغى على السائل ان يعرض عصفورا واحدا بدلا من ان يعرض مجموعة عصافير والنتيجة

انه لم يصل الى بلح الشام ولا حتى عنب اليمن " هههههههههه " وفى الاخير بشأن اخفاء التذييل 

 أقصد محتوى التذييل " القاطن بدير النحاس " ههههههههه " المتمثمل فى الصفوف الخمسة

التى تفصل بين الجدوال أو التى تفصل بين كل بيان أسعار علما بأن الصف الاول

منهم يظل فارغا حتى لايتعارض مع التفقيط  

فى انتظار ردكم الكريم بشأن هذا العصفور والذى من خلاله اكون انهيت الجزء الاول من البرنامج

وافر تقديرى واحترامى وجزاكم الله خيرا 

 

تم تعديل يناير 10, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

ممكن تحدد أرقام الصفوف المراد اخفائها بالضبط ..لكي يسهل الوصول لحل

تقبل تحياتي

 

[أبو سجده]

اخى الحبيب المحترم / ياسر " ابو البراء "

السلام عليكم 

بشأن الصفوف المعنية بالاخفاء ومن ثم ظهورها مرة اخرى مع طباعة النسخة الثانية

هى بداية من الصف 41 حتى 43 ثم من بعد ذلك كل 34 سطر " الاسطر المظلله باللون الرمادى "

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

على ان يتم ظهورها واخفاؤها مع التفقيط **** المرفق التالى يوضح التعديل المطلوب

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

فاتورة مبيعات بنظام القرش والجنيه مع التفقيط +333.xlsb.rar

تم تعديل يناير 12, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الحبيب سعيد بيرم

هو دا الكلام ..كدا أقدر أقدم المساعدة بقدر ما أعلم

إليك الكود التالي فيه ما تطلب إن شاء الله

جرب ومتنساش تدعي لي

Sub Print_All()
    Dim Sh As Worksheet, LR As Long, Cel As Range
    Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String
    Dim Texte1 As String, Texte2 As String
    
    Set Sh = Sheets("فاتورة")
    LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير"
    Texte1 = NoToTxt2(Cells(LR, "J"))
    Texte2 = NoToTxt2(Cells(LR, "I"))
    
    Range("del_range").NumberFormat = ";;;"
    For Each Cel In Range("A8:A" & LR)
        If Left(Cel.Value, 6) = "ماقبله" Then Cel.Offset(-3, 0).Resize(3).EntireRow.Hidden = True
    Next Cel
    Range("A" & LR).Offset(3, 0).Resize(3).EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    
    Range("A8:A" & LR + 5).EntireRow.Hidden = False
    With Cells(LR + 1, "B")
        .Value = "إجمالى الفاتورة :  "
        .HorizontalAlignment = xlLeft
        
        .Offset(1, 0).Value = "ما عدا السهو والخطأ"
        
        If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2
        .HorizontalAlignment = xlRight
    End With
    
    Range("del_range").NumberFormat = "00"
    ActiveSheet.PrintOut Copies:=2
    Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = ""
End Sub

تقبل وافر تقديري واحترامي

 

[أبو سجده]

اخى ابو البراء

تسمح لى أُقبل البراء ثلاث قبلات

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

الهى وانت جاهى ينورهالك يياسر ياأبن حواء وأدم

ويجعلك فى كل كود سلامة  " ههههههه "

ويباركلك فى بدنك وصحتك وأولادك

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

فلا تنسانى جزاكم الله خيرا **** انتهى الجزء الاول من البرنامج

تقبل وافر تقديرى واحترامى

تم تعديل يناير 12, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

بارك الله فيك أخي وحبيبي وأستاذي سعيد

وأسعد الله أيامك ولياليك .. وجزيت خيراً بمثل ما دعوت

أما بالنسبة للنسيان فإنت عارف الزهايمر ..أهم شيء التوضيح زي آخر مرة ..

اذكر كل شيء بمسماه مش بمسماك ..لأني أفهم لغة الإكسيل لا لغة المحاسبة والحسابات

تقبل تحياتي

[أبو سجده]

اخى ياسر ابو البراء

السلام عليكم

بعد هذا الحل الاكثر من رائع 

هل من إضافة أخرى بما أننا فى ذات الموضوع

الاضافة هى عبارة " نسخة للحفظ " على أن يتم إظهارها بالنسخة الثالثة فقط ومحلها بالخلية F1

علما بأنه على الوضع الحالى يتم طباعة نسختين فقط والمطلوب ثلاثة نسخ

وافر تقديرى واحترامى وجزاكم الله خبرا

[ياسر خليل أبو البراء]

أخي الحبيب سعيد

تهت مني تاني ..

بالنسبة الأول لعدد النسخ يتم من خلال التعديل في هذا الجزء

Copies:=2

بالنسبة للنسخة الثالثة هل ستكون كما هو الحال بالنسبة للأولى أم بالنسبة للثانية؟ أي هل سيتم إخقاء التفقيط والصفوف ؟ أم إظهار التفقيط والصفوف ..؟؟

[أبو سجده]

اخى الحبيب // ياسر ابو البراء

السلام عليكم

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

الاضافة بعيدة كل البعد عما ذكر ولكن بنفس فكرة أخفاء واظهار

التفقيط وكذا عبارة " ماعدا السهو والخطأ "

هى اضافة جديدة أريد ان تظهر عبارة " نسخة للحفظ " مع طباعة النسخة الثالثة دون غيرها 

على ان يكون محلها بالخلية F1  علما أخى الحبيب ان الخلية F1  تقع ضمن محتوى نطاق الــ Print_Titles بمعنى اخفاء بالنسختين الاولى والثانية ومن ثم اظهارها بالنسخة الثالثة

ارجو ان اكون وفقت فى شرح المطلوب ***** جزاكم الله خيرا ***** تقبل وافر احترامى

تم تعديل يناير 13, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

تفضل أخي الكريم سعيد بيرم

يتم إظهار العمود F ثم طباعة نسخة بما طلبت ثم إخفاء العمود مرة أخرى

أرجو أن يكون المطلوب

Sub Print_All()
    Dim Sh As Worksheet, LR As Long, Cel As Range
    Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String
    Dim Texte1 As String, Texte2 As String
    
    Set Sh = Sheets("فاتورة")
    LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير"
    Texte1 = NoToTxt2(Cells(LR, "J"))
    Texte2 = NoToTxt2(Cells(LR, "I"))
    
    Range("del_range").NumberFormat = ";;;"
    For Each Cel In Range("A8:A" & LR)
        If Left(Cel.Value, 6) = "ماقبله" Then Cel.Offset(-3, 0).Resize(3).EntireRow.Hidden = True
    Next Cel
    Range("A" & LR).Offset(3, 0).Resize(3).EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    
    Range("A8:A" & LR + 5).EntireRow.Hidden = False
    With Cells(LR + 1, "B")
        .Value = "إجمالى الفاتورة :  "
        .HorizontalAlignment = xlLeft
        
        .Offset(1, 0).Value = "ما عدا السهو والخطأ"
        
        If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2
        .HorizontalAlignment = xlRight
    End With
    
    Range("del_range").NumberFormat = "00"
    ActiveSheet.PrintOut Copies:=2
    Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = ""
    
    Columns("F:F").EntireColumn.Hidden = False
    Range("F1").Value = "نسخة للحفظ"
    ActiveSheet.PrintOut Copies:=1
    Columns("F:F").EntireColumn.Hidden = True
End Sub

تقبل تحياتي

 

[أبو سجده]

اخى الحبيب الغالى ياسر ابو البراء  

السلام عليكم

جارى تجربة الكود برجاء المتابعة

وافر تقديرى واحترامى

 

تم تعديل يناير 13, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الحبيب سعيد

بقالك ساعة بتجرب .. ربنا يستر وميحصلش انفجار في معمل التجارب ، وترجع تقول أنا السبب

يراعى أن تجرب الأكواد على نسخ احتياطيه من الملف ..

تقبل تحياتي

[أبو سجده]

اخى الحبيب الغالى // ياسر ابو البراء

السلام عليكم ورحمته الله وبركاته

المشكلة انى بكلمك من خارج المنزل منذ رفع الموضوع

نظرا لوجود عطل بالجهاز وجارى الان تحديثة بعد عدة محاولات لصيانته حتى الامس 

تم تجربة طباعة الملف وتبين الاتى

عدم ظهور التفقيط وعبارة ماعدا السهو والخطأ بالنسخة الثالثة

بشأن عبارة " نسخة للجفظ " تظل ثابتة بعد الطباعة والمطلوب إظهارها مع الطباعة

واخفاؤها كما بالتفقيط وعبارة ماعدا السهو والخطأ

بشأن إخفاء العمود F  يظل مخفيا بعد عملية الطباعة

واخيرا عدد النسخ التى طبعت فعليا هى 4 نسخ والمطلوب 3

 ارجو من الله العلى القدير أن ينير قلبك 

وافر تقديرى واحترامى وجزاكم الله خيرا 

 

 

تم تعديل يناير 14, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الكريم سعيد

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

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

ومعك ملف مرفق أخير للتجربة عليه وأي ملاحظات أنا تحت أمرك ..

Sub Print_All()
    Dim Sh As Worksheet, LR As Long, Cel As Range
    Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String
    Dim Texte1 As String, Texte2 As String
    
    Set Sh = Sheets("فاتورة")
    LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير"
    Texte1 = NoToTxt2(Cells(LR, "J"))
    Texte2 = NoToTxt2(Cells(LR, "I"))
    
    Range("del_range").NumberFormat = ";;;"
    For Each Cel In Range("A8:A" & LR)
        If Left(Cel.Value, 6) = "ماقبله" Then Cel.Offset(-3, 0).Resize(3).EntireRow.Hidden = True
    Next Cel
    Range("A" & LR).Offset(3, 0).Resize(3).EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    
    Range("A8:A" & LR + 5).EntireRow.Hidden = False
    With Cells(LR + 1, "B")
        .Value = "إجمالى الفاتورة :  "
        .HorizontalAlignment = xlLeft
        
        .Offset(1, 0).Value = "ما عدا السهو والخطأ"
        
        If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2
        .HorizontalAlignment = xlRight
    End With
    
    Range("del_range").NumberFormat = "00"
    ActiveSheet.PrintOut Copies:=1
    
    
    Columns("F:F").EntireColumn.Hidden = False
    Range("F1").Value = "نسخة للحفظ"
    ActiveSheet.PrintOut Copies:=1
    
    Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = ""
    Range("F1").Value = ""
    Columns("F:F").EntireColumn.Hidden = True
End Sub

تقبل تحياتي

 

 

فاتورة مبيعات بنظام القرش والجنيه مع التفقيط.rar

[أبو سجده]

هههههههههه

هههههههههههه

عليك عسل ياأبو البراء **** مبتفرقشى معايا أنذرات 

خليها كرت احمر وخلص فى الدور ماهيه راحت علينا والحمد لله على الصحة

تمام الله ينورعليك وعاشت ايديك

والله العظيم ياأبو البراء " وجود عطل بجهازى = وجود عطل فى تركيزى " داء بعيد عنك

أضف الى ذلك لا أكل ولا شرب

أستحلفك بالله لاتنسانى

فى موضوعى القادم وهو ذات صلة بهذا الموضوع

ولكن سيتم عرضه بموضوع منفصل

ولاتنسى

أن تُقبل يد البراء نيابة عن عمه سعيد

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

وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل يناير 14, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الغالي سعيد بيرم

مراحتش عليك ولا حاجة ..ربنا يديك الصحة والعافية وإن شاء الله نشوف منك إبداع محصلش قبل كدا ..

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

 

بالنسبة للأمانة لابني الحبيب البراء وصلت وقمت بتقبيل يديه نيابةً عنك وأخبرته بذلك ، فقال لي : إنت اللي أنا هبوس ايدك يا عمو (الكلام بدون زيادة أو نقصان كما قال البراء)

 

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

والحمد لله رب العالمين أن تم المطلوب على خير

تقبل وافر تقديري وتحياتي

[أبو سجده]

رسالتى هذة المرة للبراء ياسر خليل

حبيب قلب وعين عمك سعيد

ربنا يبارك فيك وفى والديك

جعلك الله تعالى حاملا لكتاب الله العزيز وتكون قرة عين لابويك

بلغ بابا يابراء ان عمك سعيد بقى على اده *** النظر من يمه وكبر السن من يمه وبيقولك انه بيتقّل عليك

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

أكن له كامل الحب والتقديروالعرفان **** مع تمنياتى لك بمسقبل باهر

مستقبل ترفع به رأس والديك الى عنان السماء

وفى الاخير تقبل وافر احترامى وتقديرى

أخى الحبيب الغالى ابو البراء

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

تم تعديل يناير 14, 2016 بواسطه سعيد بيرم

[ياسر خليل أبو البراء]

أخي الحبيب سعيد بيرم

قرأت رسالتك لابني البراء (وأنا مليش دخل باللي هيرد عليك بيه)

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

 

أما أنا خليني برا الحوار اللي بينكم ده .. وعلى رأي المثل : اللي ملكش فيه متدخلش فيه

تقبل تحياتي