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

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

أخي الكريم عبد الله جرب المعادلة التالية في الخلية B1 باعتبار أنك قمت بالإدخال في الخلية A1 =TIMEVALUE(REPLACE(A1,LEN(A1)-1,0,":")) وإليك الملف المرفق (مش هبخل عليك زي ما بخلت في المشاركة الأولى بإرفاق الملف) Convert Numeric Values To Time YasserKhalil.rar

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

بارك الله فيك أخي الحبيب رجب جاويش وجزيت خير الجزاء على مساهماتك القيمة جداً أخي الكريم أناناس يرجى وضع الأكواد بين أقواس أكواد ..كما يرجى إرفاق الملف لتسهيل العمل على إخوانك فالكود بدون ملف مرفق يجعل من يريد تقديم المساعدة ينشيء ملف ويضع بيانات تتناسب مع النطاقات الموجودة في الكود ليستطيع حل المسألة ، فلما لا تقوم بإرفاق الملف بحيث يكون العمل أسرع وتقديم المساعدة يكون بشكل أدق .. بالنسبة لسؤالك ذكرت أنك تريد القفز 2 4 6 8 ... فيمكن أن يفهم الكلام على منطقين الأول كما قدمه أستاذنا الكبير رجب وهو أن يتم القفز بخطوات ثابتة أي 2 في كل مرة (وأرجو أن يكون المطلوب) والمنطق الثاني هو أنه في كل مرة يتزايد أي يتضاعف مرات القفز ( ورغم أنه احتمال بعيد ولكنه يظل احتمال قائم والملف المرفق يوضخ المطلوب أكثر) تقبلوا تحياتي

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

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

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

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

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

أخي الكريم الساحر 2010 أهلاً بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى كما يرجى تغيير اسم الظهور ليكون باللغة العربية اطلعت على ملفك والملف يفتقر للبيانات التي يمكن الاعتماد عليها في المعادلة ... عموماً ننتظر ملف مرفق آخر مع شرح المطلوب (ليس داخل الملف فقط ولكن الشرح يكون بالمشاركة أيضاً) تقبل تحياتي

بارك الله فيكم إخواني الكرام لسؤالكم عني أنا بخير والحمد لله وقد كنت منشغلاً في بعض الأمور .. وإن شاء الله سأكون معكم جزيتم خيراً لسؤالكم عني تقبلوا تحياتي

تفضل أخي الكريم ملف الاستقطاعات.rar

جرب الكود التالي لعملية الدمج (يتم تنفيذ الكود مرة واحدة فقط) .. حاول ترفق شكل النتائج المتوقعة .. Sub MergeDataWithBlankCellsBelow() Dim Col As Range, Ar As Range On Error Resume Next Application.DisplayAlerts = False For Each Ar In Range("A2:A" & Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas Ar.Offset(-1).Resize(Ar.Rows.Count + 1).Merge Next Ar For Each Ar In Range("B2:B" & Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas Ar.Offset(-1).Resize(Ar.Rows.Count + 1).Merge Next Ar Application.DisplayAlerts = True End Sub أعرف أن هذا ليس طلبك الأخير ولكني لاحظت الطلب في الملف المرفق فعملت عليه كبداية ..

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

أخي الكريم الطلب الأول جرب المعادلة التالية =COUNTIF($C$1:$C$300,">="&A4) الطلب الثاني جرب المعادلة التالية =COUNTIF($D$1:$D$300,">"&0) إذا صادفتك أي مشكلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

أخي الكريم حدد أي خلية في النطاق الذي تريد رسم مخطط بياني له من التبويب Insert انقر على الأمر Recommended Charts واختر أول خيار في النافذة Clustered Columns

أخي الكريم أحمـ د .. إليك الملف المرفق عله يكون المطلوب .. تم الاستعانة بأعمدة مساعدة لتحقيق المطلوب ملف الاستقطاعات.rar

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

أفضل إرفاق ملف آخر غير الأول ..ملف طازة زي ما هو جالك من الإدارة .. وواحدة واحدة عليا عشان متوهش منك ..ركز في حاجة واحدة بس عشان نقدر نحل المشكلة (امسك المشكلة واحدة واحدة) تقبل تحياتي

تصدق إني مش مصدق عيني .. عوداً حميداً أخي الغالي الغائب عن العين الحاضر في القلب خالد الرشيدي والله زمااااااااااااااااااااااااااان يا مستر خالد

أخي الكريم يرجى تغيير اسم الظهور للغة العربية أولاً حدد الـ ComboBox1 وغير الخاصية BoundColumn من 2 إلى 1 .. ثانياً : قم بحذف هذا الجزء من الكود Private Sub TextBox16_Change() TextBox16.Value = ComboBox1.Value End Sub ثالثاً ضع الكود التالي في حدث الفورم بالطبع Private Sub ComboBox1_Change() On Error Resume Next TextBox16.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row), 2, 0) End Sub تقبل تحياتي

أخي الكريم أحمد جرب المعادلة التالية في الخلية I3 =INDEX($B$1:$B$100,MATCH(""&$H3&"",$A$1:$A$100,0)) والمعادلة التالية في الخلية J3 .. =INDEX($D$1:$D$100,MATCH(""&$H3&"",$A$1:$A$100,0)+COLUMN()-10) ثم قم بسحبها عبر الأعمدة .. ولكن يجب أن تكون البنود بنفس الترتيب لا كما رأيت من أن هناك بنود زائدة في بعض الموظفين وبنفس الاسم !! إذا كان ولابد من هذه البنود لما لا تجعلها ثابتة مع كل الموظفين و تغير بند منهم للتمييز بينها؟!

أخي الكريم إذا لم تكن المعلومة واضحة فقم بإرفاق مثال أو مثالين ..بشرح طريقة كيفية التعامل مع الملف أو إرفاق النتائج المتوقعة

أخي الكريم مرسال لما لا تقوم بتوزيع طلبك على عدة موضوعات لتجد استجابة أكثر .. لاحظ الموضوع منذ 19 يناير وإلى الآن لم يتم الوصول لنهاية في الموضوع (راجع التوجيهات بارك الله فيك) بالنسبة لجمع أيام الجمع إليك الحل ..قم بوضع الدالة المعرفة التالية في موديول جديد من لوحة المفاتيح Alt + F11 ومن قائمة Insert اختر الأمر Module وضع الدالة المعرفة التالية Public Function SumFriday(M As Long, Y As Long, DayRange As Range, CountRange As Range) As Long Dim D As Date Dim Cell As Range Dim X As Long For Each Cell In DayRange X = X + 1 D = DateSerial(Y, M, Cell.Value) If Month(D) <> M Then Exit Function If Weekday(D, vbSunday) = vbFriday Then SumFriday = SumFriday + CountRange(X).Value End If Next Cell End Function ستقوم بتغيير المدخلات في الخلية C2 بدلاً من يناير اجعلها رقم 1 أو أي رقم يشير للشهر المطلوب التعامل معه .. دعك من النص يناير فبراير .. سيكون العمل على رقم الشهر والسنة كما هي في الخلية D2 قم بوضع المعادلة التالية في الخلية AM4 لجمع أيام الجمع في الشهر المحدد .. =SumFriday($C$2,$D$2,G$3:AK$3,G4:AK4) ثم قم بوضع المعادلة التالية في الخلية AL4 لجمع بقية الأيام =SUM(G4:AK4)-AM4 أرجو أن يفي بالغرض إذا صادفتك مشكلة في المعادلات قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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