حتّى لا يضيع الــ Commond Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه
فأنه يتبعك اينما ذهبت بواسطة هذا الكود
لا أعلم ما الذي يظهر زيادة في نافذة الكود (سؤال برسم الاداريين)
في السطر الاول منه امسح كل شيء حتى كلمة Option Explicit وامسح ايضاً أخر سطرباللون الأزرق (بعد End Sub)
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col%: col = Target.Columns.Count
Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col)
Application.EnableEvents = False
With Me.Shapes.Range(Array("SALIM_BTN"))
.Left = lastcel.Left + lastcel.Columns.Width + 5
.Top = lastcel.Top
.Width = 130
.Height = 28
End With
Application.EnableEvents = True
End Sub
Try This File