أبو سجده

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

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

وعليكم السلام ورحمته الله وبركاته أخى ونور عينى واستاذى الفاضل // بن عليه حاجى كل عام انتم بخير وبارك الله فيكم وأمد فى عمركم والله ياأخى ثم والله لقد أقشعر بدنى أمام هذا السخاء وهذا الكرم الذى لم يأتى من اقرب المقربين وانما أتى من أعز وأحب الرجالات الى قلبى احبكم جميعا فى الله **** ولا تحرمنى مشاركتكم القادمة تقبل وافر تقديرى واحترامى وجزاكم الله خيرا اخيكم الذى يحبكم حبا جما / سعيد عامر بيرم هيه القلوب مسلمة فرق 5 دقائق بين المشاركتين