المطلوب عند التحديث تظهر كلمة " الإجمالي " نهاية البيانات فى شيت " marey"

[مرعى السيد]

السلام عليكم وكل عام وانتم بخير

المطلوب عند التحديث تظهر كلمة " الإجمالي " نهاية البيانات فى شيت " marey"

هذا الكود يجعل حساب المعادلات يدوى ارجو تعديله ليفضل دائما اوتماتيكا

ظهور كلمة الأجمالي بعد اخر صف به بيانات.rar

[الـعيدروس]

السلام عليكم

بيكون الكود بهذا الشكل

Sub jana()

Dim Calcu As XlCalculation

Calcu = Application.Calculation

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

'========================

Addliste Range("data").Columns(3), "marey"

With Sheets("marey")

	 .Range("G" & .Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row) = " الإجمـــالي"

End With

'========================

Application.ScreenUpdating = True

Application.Calculation = Calcu

End Sub

[مرعى السيد]

شكرا جزيلا اخى / عباد

بارك الله فيك

[مرعى السيد]

اخى / عباد

ظهرت معي مشكلة عند حذف البيانات الموجودة فى data تظهر كلمة الأجمالى فى شيت marey دون ان تحذف

والمطلوب عند حذف البيانات فى الداتا تحذف بالكامل البيانات الموجودة فى شيت marey

[الـعيدروس]

السلام عليكم

تفضل هذا التعديل

Sub jana()

Dim R As Range

Dim A%

Dim Calcu As XlCalculation

Calcu = Application.Calculation

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

'========================

On Error Resume Next

Set R = Range("data")

Addliste R.Columns(3), "marey"

If Val(Application.WorksheetFunction.CountA(R.Value)) > 2 Then

With Sheets("marey")

		 .Range("G" & .Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row) = " الإجمـــالي"

End With

Else

End If

'========================

Application.ScreenUpdating = True

Application.Calculation = Calcu

End Sub

[مرعى السيد]

الكود يعمل نفس عمل الكود السابق

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

وايضا عند الضغط على زر تحديث مرتين او ثلاث لم يتم تكرار كلمة الأجمالى

والمرفق موضح ذلك

وأسف على الأطالة وشكرا على حسن تعاونكم

ظهور كلمة الأجمالي بعد اخر صف به بيانات.rar

[الـعيدروس]

السلام عليكم

ظهور كلمة الأجمالي بعد اخر صف به بيانات_1.rar

تم تعديل أكتوبر 23, 2012 بواسطه عباد

[مرعى السيد]

الله يفتح عليك

أخى واستاذنا / عباد

اللهم اجعل هذا العمل فى ميزان أستاذنا / عباد ، وفى ميزان كل اساتذة المنتدى