طلب إضافة على كود تفقيط

[أبو سجده]

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

السادة الزملاء

برجاء الاطلاع على المرفق التالى ***** ربما هناك ماأغفو عنه

الاضافة المطلوبة من داخل المرفق

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

طلب إضافة.xlsb.rar

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

أخي الكريم

هل لك علاقة بالأخ الحبيب سعيد بيرم ؟!

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

تقبل تحياتي

[أبو سجده]

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

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

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

المطلوب ببساطة اننى حاولت فى هذا الجزء من الكود Print_All لاظهار واخفاء السطرين المراد اضافتهم

    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

دون جدوى وقد يكون الامر يسير ولكن لم أتحقق من الامر جيدا نظرا لصغر البنط فى محرر الاكواد

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

بشأن عمل سريال نمبر لهذا البيان أريد هنا عمل سريال نمبر يعمل تلقائيا بعد اعطاء أمرالطباعة

مثالا على ذلك سنبدأ السريال للبيان أو الفاتورة  برقم 1 فى أى خلية تحددها وليكن الخلية C2  

بعد الانتهاء من عملية الطباعة يتم تغيير الرقم الى 2 وهكذا على ان يكون السريال نمبرغير محدد العدد

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

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

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

طيب أنتظر حد من الأخوة اللي فهموا الطلب يفهمني عشان أنا مش فاهم

قمت بتنفيذ الأمر ويقوم بطباعة الأوراق الثلاثة .. في النسخة الثانية والثالثة تظهر العبارات المطلوبة .. يبقا فين المشكلة؟!!

ممكن حضرتك ترسل صورة لشكل المطلوب أو شكل النتائج المتوقعة ..

يسر علينا يسر الله عليك

 

[أبوبسمله]

  في 22‏/3‏/2016 at 22:47, ياسر خليل أبو البراء said:

طيب أنتظر حد من الأخوة اللي فهموا الطلب يفهمني عشان أنا مش فاهم

قمت بتنفيذ الأمر ويقوم بطباعة الأوراق الثلاثة .. في النسخة الثانية والثالثة تظهر العبارات المطلوبة .. يبقا فين المشكلة؟!!

ممكن حضرتك ترسل صورة لشكل المطلوب أو شكل النتائج المتوقعة ..

يسر علينا يسر الله عليك

 

Expand  

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

هنا بيقول فى لاظهار واخفاء السطرين المراد اضافتهم

فما هما هذان السطران ؟

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

[أبو سجده]

حبيبى وحبيب قلبى ابو البراء

الملف شغال ميت فل واربعة عشر مافيش فيه اى مشكلة بشأن طباعة الثلاث نسخ

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

     ' المطلوب هنا اضافة سطرين اسفل عبارة ماعدا السهو والخطأ
      'السطر الاول
        .Offset(2, 0).Value = "استلمت البضاعة الواردة بحالة جيدة"
      'السطر الثانى
        .Offset(3, 0).Value = "تحريرا فى /"

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

بالتفقيط وعبارة ماعدا السهو والخطأ وللتأكيد برجاء حذف  محتوى الخليتين B 41  و B 42 بالورقة " بيان "

ومن ثم تنفيذ  الكود Print_All  ستلاحظ أن السطرين المراد اضافتهم ظلوا ثابتين دون إخفاء

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

 

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

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

شايف الرقم 2 في السطر التالي

Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = ""

غيره خليه 4 وجرب وشوف

 

[أبو سجده]

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

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

أنار الله قلبك وبصرك وبصيرتك **** قبلاتى للبراء

ومتقوليش ارفع موضوع أخر بشأن إضافة السريال نمبر

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

يدوبك هسيبك قيمة ست سبع تمن دقايق " ههههههههههه "

احلى ابتسامة لاأحلى ابو البراء

واشكر الاستاذ الفاضل /  أحمد الفلاحجى لمروره المبارك 

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

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

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

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

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

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

تصبح على السرير وعلى خير إن شاء الله

تقبل تحياتي

جرب تضع هذا السطر في نهاية الكود في آخر سطر قبل End Sub

Range("C2").Value = Range("C2").Value + 1

أرجو أن يكون المطلوب إن شاء الله

[أبو سجده]

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

السلام عليكم

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

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

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

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

وعليكم السلام أبا عبد الرحمن

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

انتبه انتبه : أعرفت لما أكرر التأكيد على التوضيح والتفصيل للمسألة ؟! لأنه يمكن حل أصعب المشكلات بأبسط الحلول إذا استوعبنا المشكلة بشكل جيد

فالتوضيح يمثل 80 % من الحل ..

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