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

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

اخى ونور عينى بن عليه حاجى

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

بداية أعتذر لعدم الرد فى حينه لسفر مفاجىء

مافهمته هو عين الصواب ولكن هذة ليست المشكلة حيث يمكن التحكم فى عرض الاعمدة

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

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

فهل يمكن تحديد كامل الجدوال كنطاق للطباعة من A 1 الى AG وحتى أخر صف مدون به بيانات ومن ثم إخفاء الاعمدة الغير معنية بالطباعة

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

ولنا لقاء سابق بشأن موضوع تحجيم نطاق الطباعة وهو لذات الملف

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

سأشير بعد إذنك أخى الحبيب الى الرابط الخاص به ربما تصل الى مالم أصل اليه حيث اننى حاولت دون جدوى

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

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

اخى ونور عينى بن عليه حاجى

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

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

بقيت مشكلة واحدة فقط الا وهى ظهورهوامش الصفحات حيث لايوجد إتاحة لتحجيم الصفحة بعد إضافة جميع الحلول

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

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

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+3333.rar

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

اخى ونور عينى بن عليه حاجى

بارك الله فيكم وأعطاكم الله تعالى الصحة والعافية  

بهذا التعديل المميز تم طباعة ورقة العمل حال تحقق الشرط وعدم الطباعة حال عدم تحققه 

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

فكلما غيرت  الــ normal size الى 100% ومع تجربة الطباعة

يتغير الــ normal size  الى 31% مع ظهور هذة المرة هوامش الصفحات 

هذه واحدة اما الاخرى فهى عن إهتزازت الشاشة فضلا عن ظهور رسالة Varible not defind

اعتقد أن هذة الرسالة للإعلان عن المتغيرات  Option Explicit فهل من سبيل أخى وحبيبى

برجاء الاطلاع على المرفق التالى والافادة بحول الله تعالى

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

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+222.xlsb.rar

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

اخى ونور عينى بن عليه حاجى

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

مجهود عظيم من أخا خلوق وصديقا وفيا ذو قيمة وقامة عظيمة

هناك مشكلتان الاولى فواصل الصفحات فهل من سبيل لتحجيم فواصل الصفحات

 أما الثانية فتتعلق حال عدم تحقق الشرط بالعمود J

 بعد إذنك أخى وحبيبى يرجى مسح محتويات العمود J ولاحظ عمل الملف

اما عن تجاهل الصفوف التى تفصل بين الجدوال بما فيهم صفين جملة الكشف وجملة ماقبله فلا أرغب فى إظهارهما

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

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

كما هو مبين بورقة النتائج لذا يرجى الاطلاع على المرفق التالى

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

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+111.xlsb.rar

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

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

فلا تحرمونا أحبتى فى الله من صالح أعمالكم

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

للرفع

بسم الله الرحمن الرحيم

وبه نستعين

السلام عليكم ورحمته الله وبركاته *** تقبل الله منا ومنكم صالح الاعمال

وكل عام انتم جميعا بخير بمناسبة حلول عيد الفطر المبارك

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

الموضوع

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

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

وذلك وفقا للشرط المبين بخلايا العمود J مع تجاهل الصفوف التى تفصل بين الجدوال على اعتبار أنها تخص توقيعات السادة المسؤلون

 بمعنى انه فى حالة تحقق الشرط المبين بخلايا العمودJ   تتم عملية الطباعة وان لم يتحقق الشرط فلا طباعة

علما بأن الاعمدة المعنية بالطباعة هى الاعمدة الملونة باللون الرمادى

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

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية.xlsb.rar

السلام عليكم

ضع هذة المعادلة بالخلية a2 واسحب الى اسفل

=IF($B2="منتدى اوفسينا";$C2;$D2)

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

اخى وحبيبى فى الله // ابو البراء

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

جزاكم الله تعالى عنى خير الجزاء

وجزى أخى وحبيبى فى الله / بن عليه حاجى خير الجزاء

اسأل الله تعالى أن يمتعكم بالصحة والعافية وان يتقبل منا ومنكم صالح الاعمال

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

اخى وحبيبى فى الله // ياسر خليل

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

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

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

 For i = 2 To 11

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

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

أخى وحبيبى فى الله // ابو البراء 

بداية جزاكم الله خيرا وبارك فيكم  وتقبل الله منكم صالح الاعمال الخالصة لوجهه الكريم

وبارك لكم فى نجلكم البراء " اللى انت مش قده واللا تقدر تكح ههههههههه "

أدرك ان إنشاء كود من بدايته أهون عليك بكثير من تعديل أكواد سابقة تمت على اكمل وجه

تم دمج الكودين معا بهذا الشكل

Sub Test1()
  Dim arrData, arrSheet, i As Long, j As Long, r As Long, rngHeader As Range
  ReDim arrSheet(1 To Worksheets.Count, 1 To 2)
  With Sheets("Data")
    Set rngHeader = Intersect(.Rows("1:7"), .Columns("A:L"))
    For i = 1 To Worksheets.Count
        arrSheet(i, 1) = Worksheets(i).Name   'Set sheet's name
        Set arrSheet(i, 2) = rngHeader        'Set header
    Next i
    arrData = .Range("A1:L" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    For i = 6 To UBound(arrData, 1)
        For j = 1 To UBound(arrSheet, 1)
            If arrSheet(j, 1) = arrData(i, 12) Then
               Set arrSheet(j, 2) = Union(arrSheet(j, 2), Intersect(.Rows(i), Columns("A:L")))  'For matched item, union this row with previous value
               Exit For
            End If
        Next j
    Next i
    For i = 1 To UBound(arrSheet, 1)
        If arrSheet(i, 2).Address <> rngHeader.Address Then
           arrSheet(i, 2).Copy Worksheets(arrSheet(i, 1)).Range("A1")  'Copy to corresponding sheet
        End If
    Next i
  End With
    For i = 2 To 11
        With Worksheets(i)
            r = .Range("A7").CurrentRegion.Rows.Count + 5
            .Range("A7").CurrentRegion.Offset(2).Sort Key1:=.Range("F8:F" & r), Order1:=xlAscending, Header:=xlNo
        End With
    Next i
End Sub

ولكنه أصبح مترنحا بين عمله بشكل جيد تاره وتارة أخرى رسالة Debag بهذا السطر من الكود

Set arrSheet(j, 2) = Union(arrSheet(j, 2), Intersect(.Rows(i), Columns("A:L")))

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

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

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

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

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

أخى وحبيبى فى الله // بن عليه حاجى

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

اليكم اساتذتى الآجلاء التوضيح

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

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

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

 ليشمل ترتيب الاسماء أبجديا  بالعمود F من الورقة data لجميع أوراق العمل حسب المقتضيات استنادا على العمود L 

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

 Transfer data Based On Column.xlsb.rar

اخى ونور عينى // بن عليه حاجى

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

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

 وزاد إطمئنانى أكثر بمشاركة أخى وحبيبى فى الله // ياسر خليل " ابو البراء "

فبارك الله فيكم وفى أخى ابو البراء وبارك له فى البراء " اللهم أمين "

وتقبل الله منا ومنكم ومن الجميع صالح الاعمال

مشاركتى القادمة بحول الله تعالى لمزيد من التوضيح ولكن فاصل ونواصل

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

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

بسم الله الرحمن الرحيم

وبه نستعين

كل عام وانتم جميعا بخير وبكامل الصحة والسعادة

برجاء الاطلاع والافادة بحول الله تعالى بشأن المرفق التالى

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

من ورقة الاول حتى ورقة العاشر اعتمادا على اسماء اوراق المصنف

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

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

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

ترتيب أبجدى للعديد من الاوراق.xlsb.rar

اخى وحبيبى ونور عينى // بن عليه حاجى

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

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

جزاكم الله عنى خير الجزاء وبارك فيكم وتقبل الله منكم صالح الاعمال والطاعات

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

اخى الاستاذ / زياد عبد الجليل

السلام عليكم 

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

فلك أن تحتفظ بما يروق لك من حل دون ذكر أسماء  وتذكر أن مايتم عرضه من حلول 

انما يقدموه ابتغاء مرضاة الله ***** تقبل وافر تقديرى واحترامى

اخى وحبيبى ونورعينى // بن عليه حاجى

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

منذ الوهلة الاولى لرؤيتى الى وجهكم البشوش ومشاركتى هذا الموضوع

أيقنت ان الخير أت لامحالة *** جارى التجربة والافادة

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

اخيكم المحب الى الابد / سعيد بيرم

بسم الله الرحمن الرحيم

وبه نستعين

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

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

من الشهر التالى للتاريخ المدون بالخلية A2 فى سبيل بعد انقضاء الثلاثة أشهر المحددة تصبح النتيجة بخلايا العمود I فراغ بطريقة تلقائية

مثالا على ذلك

التاريخ المدون بالخلية  A2 هو 2017/4/1 إذن نريد ان يتم الحساب من شهر مايو وحتى يوليو

فى سبيل عند وصول تاريخ الويندوز الى اول اغسطس يصبح الناتج بخلايا العمود I فراغ تلقائيا

مزيدا من التوضيح يرجى الاطلاع على المرفق التالى والافادة بحول الله تعالى

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

 جمع نطاق معين لاكثر من شرط.rar

اخى وحبيب قلبى ونور عينى // بن عليه حاجى

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

سبحان الله ولا إاله الا الله لقد طلبت فى بداية الموضوع 

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

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

الله أسأل أن يعطيكم الصحة والعافية وأن يتقبل منا ومنكم ومن الجميع صالح الاعمال والطاعات

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

اخى ونور عينى استاذى الفاضل // بن عليه حاجى

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

اليك أخى الجزء الاخير من الموضوع الذى نوهت عنه

بمشاركتى السابقة بالمرفق التالى مع التوضيح

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

الجزء الاخير.rar

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

اخى ونور عينى اللى بشوف بيها // بن عليه حاجى

والله ياأخى هو قلة تركيز نتيجة الجهد المبذول الذى يتعدى احيانا الى اكثر من 48 ساعة 

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

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

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

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

أخى ونور عينى // بن عليه حاجى

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

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

مزيدا من التوضيح برجاء الاطلاع على المرفق التالى

تقبل الله منا ومنكم صالح الاعمال 

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

دالة معرفة UDF +44.rar

أخى ونور عينى استاذى الفاضل // بن عليه حاجى

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

ارجو الاطلاع على المرفق التالى **** لقد غفوت سهوا فى اضافة اخرى

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

دالة معرفة UDF +33333333.rar

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

اخى ونورعينى بن عليه حاجى

وتقبل الله منا ومنكم صالح الاعمال والطاعات

الامور حتى الان تسرى على مايرام والحمد لله

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

أما انا لو بصيت لمعادلتى اقع وعجبى **** ههههههههههه

وهناك جزءان أخيران جارى الان العمل عليهما بإذن الله تعالى من خلال إسهامتكم الطيبة المباركة

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

اخى ونور عينى استاذى الفاضل // بن عليه حاجى

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

صعوبة معادلاتك فى سهولتها فهى حقا تحتاج الى وقت كبير لدراستها

لانها على طريقة السهل الممتنع **** فجزاكم الله تعالى عنى خيرا

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

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

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

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

دالة معرفة UDF +2.rar