اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

رابط هذا التعليق
شارك

أخي الكريم

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

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

المطلوب ببساطة اننى حاولت فى هذا الجزء من الكود 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 وهكذا على ان يكون السريال نمبرغير محدد العدد

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

تم تعديل بواسطه ابو عبدالرحمن بيرم
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

10 دقائق مضت, ياسر خليل أبو البراء said:

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

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

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

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

 

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

     ' المطلوب هنا اضافة سطرين اسفل عبارة ماعدا السهو والخطأ
      'السطر الاول
        .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 وجرب وشوف

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه ابو عبدالرحمن بيرم
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information