أكاديمية الصقر للتدريب
موضوع بعنوان :كود لجميع الشيتات
الكاتب :علي بطيخ سالم


السلام عليكم ورحمة الله وبركاته
كيفية وضع هذا الكود في حدث الشيت بحيث يعمل على جميع الصفحات بدلاً من الصفحة (Main) فقط بمجرد وضع البيانات بدلاً من وضع زر لها

Sub tahweel()
Application.ScreenUpdating = False
Dim my_rg
Dim i%
Dim my_st: my_st = Chr(201)
Set my_rg = Sheets("Main").Range(Range("b2"), Range("b2").End(4))
    
 For i = 1 To my_rg.Rows.Count
    With my_rg.Cells(i)
        If .Value = "انثى" Then
           .Offset(, 1).Value = IIf(my_rg.Cells(i).Offset(, 1) = "مسيحى", "مسيحي", my_rg.Cells(i).Offset(, 1)) & my_st
         Else
          .Offset(, 1).Value = IIf(my_rg.Cells(i).Offset(, 1) = "مسيحى", "مسيحي", my_rg.Cells(i).Offset(, 1))
        End If
     End With
 Next
 Application.ScreenUpdating = True
    End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب