get command in the active x section

[kerm007]

hello all
i have this command in the form control button

Option Explicit

Sub cpyPaste()

Dim i As Integer
Dim j As Integer

j = 2

For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Sheets("Players").Range("D" & i).Value = "x" Or Sheets("Players").Range("D" & i).Value = "X" Then
        Sheets("Players").Range("D" & i).Offset(0, -3).Copy Sheets("PlayingTN").Range("A" & j)
        j = j + 1
    End If
 
Next i

End Sub

how can i transpose this in a active X button control ?
Thanks

 

[JoeMo]

A quick way is to go into Design mode, double click the active-x button and insert this one line:

Private Sub CommandButton1_Click()
Call cpyPaste
End Sub

Then delete the forms control button, but not the macro cpyPaste assigned to it.

 

[kerm007]

hello i try but its not doing anything maybe i miss something
cheers