Related:
- Macros write a macro from sheet 1 to copy data when selected
- Macro active sheet ✓ - Forum - Excel
- Excel - A macro to perform calculation and save data on another sheet - How-To - Office Software
- Excel macro new sheet - How-To - Excel
- Excel macro copy sheet and rename based on cell value ✓ - Forum - Excel
- Excel run macro when sheet is selected ✓ - Forum - Excel
1 reply
vcoolio
- Posts
- 1260
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- February 3, 2020
Hello Ruincontrl,
Try the following code in a standard module assigned to a button:-
Select the row of data that you wish to transfer to Sheet2 then click on the button and that row will be transferred to Sheet2 and deleted from Sheet1.
I hope that this helps.
Cheerio,
vcoolio.
Try the following code in a standard module assigned to a button:-
Sub TransferData()
Dim Confirm As String
Confirm = MsgBox("The selected row will be copied to Sheet2 and deleted from Sheet1.", vbOKCancel, "Copy Entire Row")
If Confirm = vbCancel Then Exit Sub
Selection.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Selection.EntireRow.Delete
MsgBox "Data transfer complete!", vbExclamation
Sheet2.Select
End Sub
Select the row of data that you wish to transfer to Sheet2 then click on the button and that row will be transferred to Sheet2 and deleted from Sheet1.
I hope that this helps.
Cheerio,
vcoolio.
Subscribe To Our Newsletter!
