عبدالله باقشير

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

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

انت لم تفهم الغرض من الموضوع عنوان الموضوع: عدم ظهور نافذة ملف الاكسل في حالة تعطيل الماكرو وفي حالة تعطيل الماكرو لا يمكن تشغيل اي كود فهمت ما نرمي اليه ؟؟

السلام عليكم بارك الله فيك اخي الحبيب طارق فكرة ولا اروع جزاك الله خيرا تقبل تحياتي وشكري

السلام عليكم Private Sub TextBox1_AfterUpdate() If IsNumeric(Me.TextBox1.Value) Then Me.TextBox1.Value = Me.TextBox1.Value & "%" End If End Sub

السلام عليكم لو قرات موضوع هذا الكود ستعرف الفكرة التي اردتها من الكود وهي فرع معين من الحماية لغرض معين وليست حماية كاملة. في امان الله

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

السلام عليكم Workbook_Open Auto_Open هما نفس الحدث للدخول ضع الاكواد في واحد منهم فقط ولازم توضع اوامرك بترتيب الاحداث لان اكوادك تعمل على نافذة الاكسل ايضا والافضل ان تستغني عن احدهم في امان الله

السلام عليكم بارك الله فيك وجزاك خيرا قبل اي كلام بالنسبة للخلل باعتقادي انه يتعلق بمكتبة الاكواد لانه ظهر عندي ايضا الذي يعانون من الخلل عندهم شي غير موجود في المكتبة من الذي يحتاجها الملف للتشغيل كما في الصورة والله اعلم تقبل تحياتي وشكري

الاخ الفاضل بارك الله فيك الرجاء قراءه قواعد المشاركه في المنتدى و الالتزام بها http://www.officena....s/Questions.htm موضوع مخالف يغلق

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

حمل المرفق الذي في المشاركة 1 في هذا الموضوع

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

السلام عليكم حل رائع اخي عبدالله ولكن يجب ان يتغير معه كود حذف سجل لكي لا يحذف الصف كله لانه سيحذف قيمة من القائمة تقبلوا تحياتي وشكري

احسنت اخي احمد كود ذكي جدا جزاك الله خيرا والشكر واصل للاخ ابو انصار تقبلوا تحياتي وشكري

السلام عليكم هذا مثال لما اوردته باستخدام في مشاركتي السابقة عن استخدام سلكت كوس غير معطياتك كعميل او مورد Sub kh_AddItem(nSh As String) Dim MyRng As Range Dim R As Integer Dim ContRow As Long, i As Long Dim tFindNum As String Dim dt1 As Date, dt2 As Date '------------------------- On Error GoTo 1 '------------------------- Set MyRng = Sheets(nSh).Range(MyTopColmnRng) '------------------------- With MyRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With If ContRow = 0 Then Exit Sub '------------------------- ' اسم الحساب المطلوب tFindNum = LCase(saad1.ComboBox1.Value) '------------------------- ' التواريخ dt1 = CDbl(CDate(saad1.ComboBox2)) dt2 = CDbl(CDate(saad1.ComboBox3)) '------------------------- With MyRng.Offset(1, 0) For R = 1 To ContRow Select Case .Cells(R, dColmn).Value2: Case dt1 To dt2 If LCase(.Cells(R, MyColmnFind)) Like tFindNum Then '''''''''''''''''''''''''''''''' 'مثلا هذه الاعمدة مطلوبة في كل الحسابات Cells(ii, "B").Resize(1, 6).Value = .Cells(R, 1).Resize(1, 6).Value ' المعيار اسم الورقة Select Case .Worksheet.Name 'باقي الاعمدة وهي اربعة نختار فيها مانريده Case "مشتريات", "م.مبيعات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, "", .Cells(R, 9).Value) Case "مبيعات", "م.مشتريات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, .Cells(R, 9).Value, "") Case "خزينة" Cells(ii, "H").Resize(1, 4).Value = Array("", "", .Cells(R, 7).Value, .Cells(R, 8).Value) End Select '''''''''''''''''''''''''''''''''''' ii = ii + 1 End If End Select Next End With '------------------------- 1: Set MyRng = Nothing End Sub المرفق 2003 تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar

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

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

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

هذا العمل اصدار قديم لا يمكن التعديل عليه

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

جزاك الله خيرا تفضل التعديل التالي هدية مني: http://www.officena.net/ib/index.php?showtopic=43916

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

السلام عليكم ورحمة الله وبركاته تقرير حساب بين فترات مأخوذ من عدة اوراق مع امكانية الفرز حسب عمود مختار طلب للاخ سعد عابد في الموضوع: http://www.officena.net/ib/index.php?showtopic=43872 جعلته هنا لتعم الفائدة المرفق 2003_2007 تقرير حساب بين فترات مأخوذ من عدة اوراق.rar