أكاديمية الصقر للتدريب
(نسخة قابلة للطباعة من الموضوع)
http://excel-egy.com/forum/t5490
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

كود لجميع الشيتات
علي بطيخ سالم 05-11-2020 12:38 صباحا
السلام عليكم ورحمة الله وبركاته
كيفية وضع هذا الكود في حدث الشيت بحيث يعمل على جميع الصفحات بدلاً من الصفحة (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)
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
أكاديمية الصقر للتدريب

Powered by PBBoard ©Version 3.0.3