Good afternoon all,
I am trying to develop a simple macro to on button click transfer the data on sheet1 (for example called "Notes") to the first open row on sheet2(for example called "Log"). Below is where I am at right now, which gives me the result after clicking where I can see it shifts to the Log page but doesn't past values in the open row under the header. I also see when going back to Notes that it did select and copy.
I also wouldn't mind "cutting" the data from Notes so it is empty after the transfer.
Sub Button1_Click() Dim NextRow As Range
Set NextRow = Range("a" & Sheets("Log").UsedRange.Rows.Count + 1)
Sheets("Notes").Range("a2:g6").Copy
Sheets("Log").Activate
NextRow.PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Set NextRow = Nothing
End Sub
<tbody>
</tbody>
Any guidance is much appreciated, I don't know where I'm astray.
Regards,
Spencer
I am trying to develop a simple macro to on button click transfer the data on sheet1 (for example called "Notes") to the first open row on sheet2(for example called "Log"). Below is where I am at right now, which gives me the result after clicking where I can see it shifts to the Log page but doesn't past values in the open row under the header. I also see when going back to Notes that it did select and copy.
I also wouldn't mind "cutting" the data from Notes so it is empty after the transfer.
Sub Button1_Click() Dim NextRow As Range
Set NextRow = Range("a" & Sheets("Log").UsedRange.Rows.Count + 1)
Sheets("Notes").Range("a2:g6").Copy
Sheets("Log").Activate
NextRow.PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Set NextRow = Nothing
End Sub
Data1 | Data2 | Data3 | Data4 | Data5 | Data6 | Data7 |
123 | x | aaa | 111 | a | 5 | 543 |
123 | y | aaa | 222 | b | 6 | 453 |
123 | x | bbb | 333 | a | 8 | 765 |
123 | y | bbb | 444 | c | 4 | 543 |
123 | y | aaa | 555 | a | 2 | 234 |
<tbody>
</tbody>
Any guidance is much appreciated, I don't know where I'm astray.
Regards,
Spencer