أبو حنــــين

السلام عليكم بالنسبة للكود يصبح هكذا Sub marey() x = Range("c10000").End(xlUp).Row + 1 For t = 3 To x If Cells(t, 3) = "ديسمبر" Then Cells(t + 1, 3).Value = "الإجمالي" Next End Sub

مثال مثال.rar

السلام عليكم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) LastRow = Cells(Rows.Count, "c").End(xlUp).Row + 1 If Target.Column = 11 Then Cancel = True Cells(LastRow, 3) = Target Cells(LastRow + 1, 3) = Target End If End Sub

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

العفو أخي : / أيو تميم

اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub

لو ارسلت مثالا لكان اسهل لانني لا اعرف اين الخلل في ملفك

بدون اي نقاش اخي حاجي عمل في منتهى الاتــقان

************************* *** أخي الحبيب : / جمال دغيدي *** ******************************** الله يكرمك و يعطيك الصحة و العافية و يبارك لك في ما اعطاك **************************************** و جزاك الله كل اخير على هذا الشعور النبيل ******************************************

العفو أخي

لارسال ملف قم بضغطه في برنامج ضعط مثل WinRAR ثم ارسله

مرحبا أنظر الصورة صورة.rar

جزاك الله خيرا اخي الحبيب : أبو أنس حاجب

استعمل هذا Private Sub CommandButton1_Click() Dim cl As Range, Rn As Range Set Rn = Range("A1:S30") For Each cl In Rn If cl.Value = "TOTAL" Then cl.Offset(1, 0).ClearContents Next End Sub

العفو أخي atob

صع هذا الكود في صفحة : NT Private Sub Worksheet_Change(ByVal Target As Range) Dim LastRow As Long, t As Integer If Target.Column = 2 Then LastRow = ورقة2.Range("B65535").End(xlUp).Row For t = 1 To LastRow If ورقة2.Cells(t, 2).Value = Target.Value Then Target.Offset(0, 1) = ورقة2.Cells(t, 3) Target.Offset(0, 2) = ورقة2.Cells(t, 4) End If Next End If If Target.Value = "" Then Target.Offset(0, 1) = "" End Sub

استعمل هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) Range("C5").Formula = "=SUM(A:A)" End Sub

جزاك الله خيرا أخي أبو أحمد على مروركم

العفو أخي رعد العزاني العفو أخي flash012

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

اخي يوسف جرب المرفق المعادلة.rar

اخي احمد اخي محمد يحياوي فهمت القصد لكنني لم استطع الوصول اليه فالأخ أحمد يقول التالي : الإيجار من 1991/01/01 الى 1997/01/07 هو 1500 و بالتالي لو فرضنا ان المدة المطلوب حسابها هي من : 1991/01/01 الى 1997/02/07 يكون الايجار هو 79 شهر بسعر 1500 و شهر بسعر 1700 لاننا تجاوزنا المدة الاولى بشهر و هذا الشهر يدخل في التسعيرة الثانية اما طريقة الحساب فهي : A = الايجار × 30 % B = الايجار + A المجموع = عدد الاشهر × B مثل : مدة الايجار هي : من 1991/01/01 الى 1997/02/07 ـ 1 ) فرق التاريخ هو : 79 + 1 79 ---------> بسعر 1500 1---------> بسعر 1700 1500 × 30 % = 450 1700 × 30 % = 510 الناتج : ( 1500 + 450 ) × 79 = 154050 ( 1700 + 510 ) × 1 = 2210 المبلغ الذي يجب دفعه هو 154050 + 2210 = 156260 هذا الذي فهمته و لم اصل اليه

الكود يعمل الآن بشكل طبيعي حسب ما طلبت لكن المشكلة اذا وسعنا المدى يكون العمل بطيئ نوعا ما الآن المدى الموجود هو 300 سطر يوسف 2.rar

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

السلام عليكم فرز كتب.rar