hello all
i have this command in the form control button
how can i transpose this in a active X button control ?
Thanks
i have this command in the form control button
VBA Code:
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