Nov 26 2020 03:24 AM
Hi,
I am trying to write a VBA to embed into a source workbook (this gets renamed for each job), which copies the same row each time (Row 5 on the Data Worksheet) and adds it into the next available row on the Machine Schedule workbook.
So far this code works the first time that you run it. But when you run it a second time, it re-writes row 5, and adds other information on the next available row down, pulled from different sheets on the source workbook. They're not at all mentioned in the code, so I can't understand why it would do this.
Any help would be greatly appreciated.
Nov 26 2020 05:23 AM
Here something on the fast untested (but should work):
Sub copy()
With Sheets("1")
.Range(.Cells(6, 2), .Cells(Rows.Count, 5)
.End(xlUp)).copy End With Sheets("2")
.Activate lastrow = Cells(Rows.Count, 2)
.End(xlUp).Row Range("B" & lastrow + 1)
.Select Selection.PasteSpecial xlPasteValues = xlPasteValues
End Sub
You can probably find what you're looking for here:
https://www.rondebruin.nl/win/s9/win005.htm
I would be happy to know if I could help.
Nikolino
I know I don't know anything (Socrates)
* Kindly Mark and Vote any reply if it helps please, as it will be beneficial to more Community members reading here.
Nov 26 2020 05:30 AM
Thank you so much for your response. I have just managed to get it working by specifying the PasteSpecial as PasteValues, as you have mentioned below. It turns out that it was quite an easy fix in the end!
Thanks again.
Nov 26 2020 06:50 AM
You are welcome :)
It has give me joy to be able to help you
Wish you a nice day.
Nikolino
I know I don't know anything (Socrates)