Note: The other languages of the website are Google-translated. Back to English
Log in Register

How to create a Command Button to copy and paste data in Excel?

Supposing you need to frequently copy a range of cells to other place after changing the data, the manually copy and paste method will be fussy and time-consuming. How to make this copy and paste affair running automatically? This article will show you how to use a command button to copy and paste data with only one click.

Create a Command Button to copy and paste data with VBA code

Create a Command Button to copy and paste data with VBA code

Please do as follows to copy and paste data automatically when clicking a Command Button.

1. Insert a Command Button by clicking Developer > Insert > Command Button (ActiveX Control). See screenshot:

2. Draw a Command Button in your worksheet and right click it. Select View Code from the context menu.

3. In the popping up Microsoft Visual Basic for Applications window, please replace the original code in the Code window with below VBA code.

VBA code: Use Command Button to copy and paste data in Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Note: In the code, CommandButton1 is the name of your inserted Command Button. A1:C17 is the range you need to copy, and J1:L17 is the destination range to paste data. Please change them as you need.

4. Press Alt + Q keys to close the Microsoft Visual Basic for Applications window. And turn off the Design Mode under the Developer tab.

5. Now click the Command Button, all data in range A1:C17 will be copied and pasted into range J1:L17 without the cell formatting.

Related articles:

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (48)
No ratings yet. Be the first to rate!
Dom
Dom
This comment was minimized by the moderator on the site
I have used this function in my workbook. I am using active x buttons to copy and paste data within the same sheet on multiple sheets. However there are sheets without active x buttons or macros that get pasted data from the respective fields on the sheet which I don't want. Help?
Reply
Razvan Gaina
Razvan Gaina     Dom
This comment was minimized by the moderator on the site
Can I have the code that will copy range I4:L26 from Sheet2(called TransferSheet)(button will be on this sheet) to Sheet1(called JobsToDo) on C row(1st line that is blank since this will have data added constantly please
Reply
Jason
Jason
This comment was minimized by the moderator on the site
How can you alter the code to paste the results to another page with in the workbook? and how do you get the insert a row before putting the new data in so it does not overwrite it
Reply
crystal
crystal     Jason
This comment was minimized by the moderator on the site
Hi Jason,
If you want to paste the results to another worksheets within the workbook, please try the below VBA code.

Private Sub CommandButton1_Click()
Dim xSheet, xDWS As Worksheet
Dim xFNum As Integer
Dim xSRg As Range

On Error Resume Next
Set xSRg = Application.InputBox("Please select cell to paste the range:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then Exit Sub

Application.ScreenUpdating = False
Range("A1:C17 ").Copy
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True

End Sub
Reply
Report
Azam as
Azam as
This comment was minimized by the moderator on the site
how is the formula for us to copy files
then paste it to the next sheet. and paste the next one make a space or keep going down without deleting the previous paste.
Reply
Report
crystal
crystal     Azam as
This comment was minimized by the moderator on the site
Good day,
The below VBA code can help you solve the problem. Please have a try. Thank you.

Private Sub CommandButton1_Click()
Dim xSheet, xDWS As Worksheet
Dim xFNum As Integer
Dim xSRg As Range

On Error Resume Next
Set xSRg = Application.InputBox("Please select cell to paste the range:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then Exit Sub

Application.ScreenUpdating = False
Range("A1:C17 ").Copy
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True

End Sub
Reply
Report
Magnus
Magnus
This comment was minimized by the moderator on the site
What if I would like to make a paste queue?
To explain further. I click CommandButton1 then it copy A1. When I have used paste, the copy from A1 - Then I want to copy A2 without clicking another button, so that I can paste A2 right away, somewhere else. Then When I have used paste, the copy from A2 then copy A3. If that is possible? Can this also work in the background when use a normal Excel sheet, and try to do this action where I copy from Excel, and then paste in a completely different program like a internet browser, another program, word, txt file, and so on?

This article was anyway extremely helpful, thank you so much!
Reply
crystal
crystal     Magnus
This comment was minimized by the moderator on the site
Hi Magnus,
Sorry can't help you with that. Thanks for your comment.
Reply
Report
Jeff McCollum
Jeff McCollum
This comment was minimized by the moderator on the site
I would like to expand this one step... After pasting the actual values not formulas... I need to copy the new cell and paste in another program that's not excel, should simply I need to click the button copy the formula from a specific cell and past the actual value in another, then copy that new value to windows clipboard to past in another app. Hope this make sense, and appreciate your help in knowing how to add the new code... I know what I want it to do, just not familiar with how to code it...
Thanks
Reply
Report
crystal
crystal     Jeff McCollum
This comment was minimized by the moderator on the site
Hi,
The code has been updated in the article, please have a try. Thank you for your comment.
Reply
Report
Adam
Adam
This comment was minimized by the moderator on the site
Would it be possible to for the command button to instantly paste the selected range to a specified sheet (in the next empty cell) rather than having to input each time where you want to paste the data?
Reply
crystal
crystal     Adam
This comment was minimized by the moderator on the site
Hi Adam,
The below VBA code can help you solve the problem.
You need to replace the "Sheet4" and "A1:C17" in the code with your specified sheet and range.

Private Sub CommandButton1_Click()
Dim xSWName As String
Dim xSheet As Worksheet
Dim xPSheet As Worksheet
Dim xIntR As Integer
xSWName = "Sheet4"
On Error Resume Next
Application.ScreenUpdating = False
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
Set xPSheet = Worksheets.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Reply
Report
Mohamed shoman
Mohamed shoman     crystal
This comment was minimized by the moderator on the site
very good , i need to copy and paste many time is it possible to make a choice to paste a row of data to 3 rows or 5 rows whatever i like ?
Reply
Report
crystal
crystal     Mohamed shoman
This comment was minimized by the moderator on the site
Sorry can't help you with that
Reply
Report
MangkaNorr
MangkaNorr
This comment was minimized by the moderator on the site
sir how to copy the range of the cell in current worksheet then paste to another worksheets ?
Reply
crystal
crystal     MangkaNorr
This comment was minimized by the moderator on the site
Hi,
The below VBA code can help you solve the problem.
You need to replace the "Sheet4" and "A1:C17" in the code with your specified sheet and range.

Private Sub CommandButton1_Click()
Dim xSWName As String
Dim xSheet As Worksheet
Dim xPSheet As Worksheet
Dim xIntR As Integer
xSWName = "Sheet4"
On Error Resume Next
Application.ScreenUpdating = False
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
Set xPSheet = Worksheets.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Reply
Report
Robbert
Robbert
This comment was minimized by the moderator on the site
If I want to Copy this not in the current workbook but into another workbook (which is still not opened) in excel. How do I change this VBA code accordingly?
Reply
crystal
crystal     Robbert
This comment was minimized by the moderator on the site
Hi Robbert,
Sorry can't help you with that. Thanks for commenting.
Reply
Report
Jim
Jim
This comment was minimized by the moderator on the site
I have a qusrion I have sheet 1 with a column of date b3:b33 and I want that to be copied to sheet 2 B33:b63 its text but I need the same format for text ie colour size
Reply
Kyaw Ye Min
Kyaw Ye Min
This comment was minimized by the moderator on the site
Hi Author,

The article you mentioned above is very helpful to me. I am not used to excel code and command. I still need to know rather than this article. I am ok with the copy and paste into next sheet. But I still need to know "how to paste and add into new line in next sheet every time I press the button". Otherwise, my data on next sheet will be replaced every time. I would really be grateful and looking forward to see your reply.
Reply
crystal
crystal     Kyaw Ye Min
This comment was minimized by the moderator on the site
Hi Kyaw Ye Min,
Sorry for replying so late. Follow the steps and replace the code with the below. In the code, Sheet4 is the destination worksheet you will copy data into, please change it and the copied range A1:C17 as you need. Thanks for your comment.

Private Sub CommandButton1_Click()
Dim xSWName As String
Dim xSheet As Worksheet
Dim xPSheet As Worksheet
Dim xIntR As Integer
xSWName = "Sheet4"
On Error Resume Next
Application.ScreenUpdating = False
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
Set xPSheet = Worksheets.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Reply
Report
Chris
Chris     crystal
This comment was minimized by the moderator on the site
Hi there please help. I require the same as above but i just need to paste whatever the active cell is into a new line (if possible above previous entries) in a different worksheet. Really appreciate any help with this. Best Regards
Reply
Yesaya
Yesaya
This comment was minimized by the moderator on the site
hi, help my case, i want have a button to generate macro where i have excel and export the data where in the <" "> to word, thanks
Reply
crystal
crystal     Yesaya
This comment was minimized by the moderator on the site
Hi,
Sorry I didn't get your point. Would be nice if you could explain with more details of what you are trying to do.
Reply
Report
Ted Jillett
Ted Jillett
This comment was minimized by the moderator on the site
I'm looking for some help on that a user can click on a row number and then hit the command button that it will make a copy of that row and insert it into the row below it.
Reply
crystal
crystal     Ted Jillett
This comment was minimized by the moderator on the site
Good day,
Sorry can help you with that yet. Thanks for your comment.
Reply
Report
angela
angela
This comment was minimized by the moderator on the site
master bagaimana jika berbeda sheet dan copy data yg diinginkan
contoh sheet1 hanya data kolom B & kolom D copy ke sheet2
terimakasih
Reply
S J
S J
This comment was minimized by the moderator on the site
please send VBAcode for copy single cell content using commmand button click without using text box so tha will be able to paste in any application like notepad,msword
Reply
Report
Lexi
Lexi
This comment was minimized by the moderator on the site
Is it possible to make a button that just copies one selected cell on one sheet to another sheet? Thanks!
Reply
crystal
crystal     Lexi
This comment was minimized by the moderator on the site
Hi lexi,
The below VBA code can help you solve the problem. Please change "Sheet3" to the sheet name as you need.
Select a cell and press the command button to make it work.

Private Sub CommandButton1_Click()
Dim xSWName As String
Dim xSheet As Worksheet
Dim xPSheet As Worksheet
Dim xIntR As Integer
xSWName = "Sheet3"
On Error Resume Next
Application.ScreenUpdating = False
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
Selection.CurrentRegion.Select
Selection.Copy
Set xPSheet = Worksheets.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Reply
Report
Jonas
Jonas
This comment was minimized by the moderator on the site
Hello!
Is there a way to make a code so i can have a button copy a range (lets say A1:D5).
And then paste it to A6:D10.

And if i press the button once more it will copy A1:D5 to A11:D15.

And so on?
Reply
crystal
crystal     Jonas
This comment was minimized by the moderator on the site
Hi Jonas,
Sorry can't help you for that. Thank you for your comment.
Reply
Report
Abi
Abi
This comment was minimized by the moderator on the site
This is fab - i've adapted for my s.sheet but I need it to be more dynamic and use labels rather than hard code the cell locations.
I.e in the range of A2-A6 find the name 'Jamie' and then find the name in Column K2 and paste

I also need each click to +1 and run the same copy and paste but to the next column i.e.

click 1 - pastes into Q1, Click 2 - paste into Q2 etc

Example:

Column A Column B ...... Column K Column L
1. Name Hrs worked Name Q1 Q2 Q3 Q4
2. Jamie 22 Sammy <Paste here>
3. Sammy 40 Judith <Paste here>
4. Judith 18 Jamie <Paste here>
5. Tammy 16 Keith <Paste here>
6. Keith 42 Tammy <Paste here>


Any help would be greatly appreciated.
Reply
Teddie
Teddie
This comment was minimized by the moderator on the site
how to code for copying cell from range a1 to a5 to paste into c1 and to next available cell sequentially?
Reply
Teddie
Teddie
This comment was minimized by the moderator on the site
and also, copy and paste cell one at a time..
Thank you for your help!
Reply
ryan
ryan
This comment was minimized by the moderator on the site
Hi guys. this needs some help, please. I need to create a 10*button in my worksheet(Sheet1) that will copy 3 cells, Example: Sheet1, A1, B1, C1. then paste that in Sheet2 A1, B1, C1. then if I click button 4, example: Sheet1, A4, B4, C4, I need this to past in Sheet2, A2, B2, C2. If I click Button 2 then it must pass in Sheet2, A3, B3, C3. I hope this makes sense.
Reply
Report
There are no comments posted here yet
Load More
Leave your comments
Guest
Posting as Guest
Login
×
Rate this post:
Reset
0   Characters
Suggested Locations