السلام عليكم ورحمة الله وبركاته ،،
الاخوة الأعزاء ، عندي هذا الكود الذي اريدة هو .
اذا لم تكن الورقة الأولى هي النشطة فإن 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
لأنه عندي شيتات كثيرة في الملف ،، وأريد أنفذ الكود على أحد الشيتين فقط .