مساعدة في كود زر

[Bshar]

السلام عليكم ورحمة الله ,,,

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

كيف لي ان اقوم بأعادة قيمة خلايا  عامودين  اجمالي الدخل ومبالغ الدخل الى (صفر) بكسة زر ,, 

مرفق مثال

 

1919.xlsx

تم تعديل مارس 20, 2025 بواسطه Bshar
اعادة رفع المرفق

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

Option Explicit
Sub ResetColumns()
    Dim lr&, i&
    Dim WS As Worksheet: Set WS = ActiveSheet
    
    lr = 15 'WS.Columns("A:B").Find(What:="*", _
    SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    
    For i = 3 To lr
        WS.Range(WS.Cells(i, 1), WS.Cells(i, 2)).Value = 0
    Next i
End Sub

 

1919.xlsm

تم تعديل مارس 20, 2025 بواسطه محمد هشام.

[Bshar]

اشكرك جزيل مهندس هشام ,, جزاك الله كل خير وبارك الله في رزقك

[Bshar]

اخي @محمد هشام.   هل هناك طريقه  ان يعمل  الكود على الشيت اكسل التي اعمل عليها فقط ,,  وليس على جميع الصفحات 

 لانه اواجه خطاء عند نسخ الكود وتعديل ارقام الاعمده والصفوف  يتم التحديث على جميع ملفات الكسل الاخرى ,, شكرا لك

[محمد هشام.]

الكود يتم تنفيده على الورقة النشطة 

Dim WS As Worksheet: Set WS = ActiveSheet

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

    Dim WS As Worksheet: Set WS = Sheets("Sheet1") 'اسم ورقة العمل

 

[Bshar]

كل الاحترام والتقدير لك مهندس @محمد هشام.