اريد تحويل معادلتين لكود

[abouelhassan]

الاخوة الاساتذة الافاضل

برجاء التكرم بعمل كود

يعمل بدون زر

لاضافة المعادلتين

.[B4].Formula = "=I3-I4"

.[I4].Formula = "=I3-SUMPRODUCT(($B$5:$B$25003<>""الاجمالى"")*($E$5:$H$25003))"

لكل اوراق العمل

اى فى الحدث This workbook

كل الاحترام من اخيكم

ملحوظة المعادلة للاستاذ بن علية بارك الله فيه وانعم عليه امين

[الـعيدروس]

السلام عليكم

هل هكذا تقصد

Private Sub Workbook_Open()

Application.ScreenUpdating = False

Application.EnableEvents = False

If sheet1.Cells(1, 256).Value = Empty Then

sheet1.Cells(1, 256).Value = "1"

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

With sh

.[B4].Formula = "=I3-I4"

.[I4].Formula = "=I3-SUMPRODUCT(($B$5:$B$25003<>""الاجمالى"")*($E$5:$H$25003))"

End With

Next sh

Exit Sub

End If

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

تم تعديل ديسمبر 20, 2011 بواسطه alidroos

[abouelhassan]

استاذنا ابو نصار اغرقنا كرمك

بميزان حسناتك ان شاء الله

باحترام من اخيك