mahbob

السلام عليكم أعضاء ومشرفين منتدانا الغالى ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ الرجاء من سيادتكم شرح لى هذا الكود وذلك بعد إذن أستاذى الفاضل \ ياسر خليل الذى أنشأ لى هذا الكود ، ولكن لأنى أعلم أنه مشغول فرجاء من حضراتكم مساعدتى بدلاً منه فى شرح لى هذا الكود وما يحتويه من أوامر ولكم منى جزيل الشكر والتقدير Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set WBK = Workbooks.Open(ThisWorkbook.Path & "\ حسابات العملاء .xlsx") For Each SH In ThisWorkbook.Sheets If SH.Name <> "الفهرس" Then SH.Range("C6:F99,H6:I99").ClearContents For Each WS In WBK.Sheets If WS.Name <> "الفهرس الرئيسى" Then With WS If IsEmpty(.Range("A6")) Then GoTo 1 For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If Month(Cell.Value) = MonthNumber(SH.Name) And Year(Cell.Value) = 2015 Then SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value End If Next Cell 1 End With End If Next WS End If Next SH WBK.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

أستاذى الفاضل / ياسر خليل لك منى كل الشكر والتقدير بس انا بالنسبة للتعامل مع الاكواد لسه مبتدئ ولكن بمساعدتكم سأتعامل معها ف القريب العاجل إن شاء الله أما بقى لرد الجميل مش يستاهل بس فردة كاوتش دا يستاهل فردتين كاوتش ههههههههههههه طبعاً كان نفسك أقولك عربية مرسيدس أقل حاجه هههههههههههه دا انا غلبان أنا لا أملك إلا أن أدعو لك بصلاح أحوالك وجزاك الله كل الخير على ما تقدمه لخدمة الجميع تقبل تحياتى وتقديرى :fff: :fff:

زادك الله علماً نافعاً وقلباً خاشعاً لك كل التقدير و الإحترام أستاذ ياسر

أستاذى العزيز \ ياسر بعد التحيه ... أنا فتحت الملف وشاهدت مجهودك العظيم الذى فعلته من أجلى ومن أجل الجميع لأنه موضوع يستحق المشاهده للإستفاده منه لجميع الأعضاء وليس أنا فقط ولكن هناك بعض الملاحظات : حضرتك بحثت أو رحلت بطريقه البحث عن الشهر فقط لو حضرتك نظرت فى ملف الأقساط الشهرية هتلاقيه لسنه 2015 فقط بمعنى إن كل السنوات التاليه إترحلت أيضا مع أقساط الشهور لهذا العام فى ملف الأقساط الشهرية لسنه 2015 ما أريده إن أقساط الشهور لسنه 2015 فقط تترحل فى هذا الملف لأنى سأنشئ ملفات آخرى خاصه لكل سنة على حدى تقبل تحياتى وأأسف للإطاله على حضرتك

تحية وتقدير بدايةً أسعدنى مرورك قبل مشاركتك فأما الشكر لك فأنا أعجز عن تقدير تعبك ومجهودك لمساعدتى وفققك الله لكل ما يحبه ويرضاه تقبل شكرى وتقديرى أستاذنا العزيز \ ياسر :fff: :fff: :fff:

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

وإياكم أستاذ صلاح أسعدنى مرورك تقبل تحياتى

الشكر لله وحده أستاذ زيزو وشكراً لمرورك الجميل دمت فى صحه وعافيه تقبل تحياتى :fff: :fff:

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

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

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

شكراً أستاذ مختار لمرورك الرائع وسوف يتم إرفاق ملف قريباً إن شاء الله تقبل تحياتى

السلام عليكم ورحمة الله وبركاته ـــــــــــــــــــــــــــــــــــــ اليوم أقدم لكم موضوع ليس بالمهم لكثير من الأعضاء ولكن أظن أنه سيفيد بعض الأعضاء الحديثى التعامل مع الإكسل ولى الفخر أنى أنتمى إليهم لأنى ليس عندى إلا القليل لأقدمه لخدمة من يرغب بتعلم برامج الأوفيس فلن أطيل عليكم بالحديث الموضوع بإختصار هو عمل قائمة منسدلة بطريقة سهله ومبسطه شاهد الصور ( 1 ) ( 2 ) ( 3 ) ( 4 ) وهنا ينتهى الدرس و يا رب ينول إعجابكم ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ خيركم من تعلم العلم وعلمه

السلام عليكم إخوانى الأعزاء فضلاً من حضارتكم إفادتى لإتمام الملف يوجد بالمرفقات ملف يحتوى على حساب عملاء لكل عميل اقساط معينه شهرياً وأريد ترحيل هذه الأقساط لكل عميل فى ملف الأقساط الشهرية 2015 بمعنى ان هناك أكثر من عميل لهم أقساط فى شهر يناير مثلاً أريد ترحيل كل عميل له قسط فى هذا الشهر وذلك مع باقى الشهور لكل عميل لمعرفه الأقساط المستحقه لكل عميل فى شهر معين من هذه الشهور ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ وأيضا هناك ملف بإسم ( مشتريات السيارات ومصروفاتها ) وأريد عمل كشف حساب يبين سعر كل سيارة والمصروف لها وهل من الممكن عمل قائمة منسدلة لهذه السيارات بمعنى أنى لو اخترت نوع السيارة التى أريد معرفه كشف حسابها من هذه القائمة المنسدلة يبين لى كشفها اوتوماتيكياً ، بحيث أن لا أعمل لكل سيارة صفحه خاصه لكشف حسابها ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ولكم منى جزيل الشكر والتقدير ، وإن لم يتم الرد أو المساعده وجزاكم الله كل الخير وزادكم الله علماً وإيماناً دائماً أبدا ملف.rar

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

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

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