كيف تجعل زر الأمر يتحرك

حتّى لا يضيع الــ Commond Button  أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه

فأنه يتبعك اينما ذهبت بواسطة هذا الكود

لا أعلم ما الذي يظهر زيادة في نافذة الكود (سؤال برسم الاداريين)

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