كود التأكد من الشيت النشط sheet active

[محمد الزريعي]

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

الاخوة الأعزاء ، عندي هذا الكود  الذي اريدة هو .

اذا لم تكن الورقة الأولى هي النشطة فإن  sa هي الورقة الثانية

IF sheets ("1").Active = True Then
                Set  sA = Sheets("1")
                      LR = Cells(Rows.Count, 1).End(xlUp).Row
             Else
                Set   sA = Sheets("2")
                       LR = Cells(Rows.Count, 1).End(xlUp).Row
   End If

لأنه عندي شيتات كثيرة في الملف ،، وأريد أنفذ الكود على أحد الشيتين فقط .

[سليم حاصبيا]

يجب ان يوضع الكود بهذه الصيغة

Sub set_active_sheet()
Dim sa As Worksheet
If ActiveSheet.Name = "sheet1" Then
 Set sa = Sheets("sheet1")
 Else
 Set sa = Sheets("sheet2")
 End If
 sa.Activate
 lr = ActiveSheet.Cells(Rows.Count, 1).End(3).Row
End Sub

 

[محمد الزريعي]

شكرا جزيلاً لك .  وجاري تجربة الكود الان

[محمد الزريعي]

الكود شغال 100 %  شكراً لك  وبارك الله فيك  اخي سليم