get command in the active x section

kerm007

Board Regular
Joined
Mar 16, 2019
Messages
67
Office Version
  1. 365
Platform
  1. Windows
hello all
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
 

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

JoeMo

MrExcel MVP
Joined
May 26, 2009
Messages
17,907
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
A quick way is to go into Design mode, double click the active-x button and insert this one line:
VBA Code:
Private Sub CommandButton1_Click()
Call cpyPaste
End Sub
Then delete the forms control button, but not the macro cpyPaste assigned to it.
 

kerm007

Board Regular
Joined
Mar 16, 2019
Messages
67
Office Version
  1. 365
Platform
  1. Windows
hello i try but its not doing anything maybe i miss something
cheers
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,141
Messages
5,835,645
Members
430,373
Latest member
swartzfeger

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top