rocksoliddigital
New Member
- Joined
- Mar 29, 2013
- Messages
- 2
Hey guys! Maybe you can assist me with a macro...
When a button is pushed, I am trying to copy an entire row from one sheet and paste it into another sheet's first blank row. I would like this to happen whenever the button is pressed.
I found this, but I haven't had any luck incorporating it in my worksheets. When I try to adjust it to fit my sheets it doesn't work. I'm kind of a macro newbie.
Sub CpyAct()
ActiveCell.EntireRow.Copy Destination:=Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Date
End Sub
A bit more info on what I'm trying to accomplish. I have a quote generating form. Those inputs all go to a single row. I want to be able to copy that row's information to a separate data list. So you enter one quote, copy the info over, enter another quote, copy the info over to the next row, and so on. So the end of the day it could have a dozen separate quotes all accounted for.
The copy from row is sheet is "Quote_Data" Row 1. Can be whole row but A-AP is where the info is.
Paste to row is sheet "Quote_List" and can start at A1 and continue down.
Thanks for your help!
When a button is pushed, I am trying to copy an entire row from one sheet and paste it into another sheet's first blank row. I would like this to happen whenever the button is pressed.
I found this, but I haven't had any luck incorporating it in my worksheets. When I try to adjust it to fit my sheets it doesn't work. I'm kind of a macro newbie.
Sub CpyAct()
ActiveCell.EntireRow.Copy Destination:=Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Date
End Sub
A bit more info on what I'm trying to accomplish. I have a quote generating form. Those inputs all go to a single row. I want to be able to copy that row's information to a separate data list. So you enter one quote, copy the info over, enter another quote, copy the info over to the next row, and so on. So the end of the day it could have a dozen separate quotes all accounted for.
The copy from row is sheet is "Quote_Data" Row 1. Can be whole row but A-AP is where the info is.
Paste to row is sheet "Quote_List" and can start at A1 and continue down.
Thanks for your help!