Hi, I currently have this formula
Private Sub CommandButton2_Click()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim DestRow As Long
Set ws1 = Sheets("Month Template")
Set ws2 = Sheets("Development Plan Log")
DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
ws1.Range("x3").Copy ws2.Range("A" & DestRow)
ws1.Range("p27").Copy ws2.Range("B" & DestRow)
End Sub
However it pastes the formulas and I just want it to paste the values. Can you please advise how I would achieve this?
Thanks
Hayley
or
ws1.Range("x3").Copy ws2.Range("A" & DestRow).PasteSpecial xlValues
Change the other line in your code the same way.ws2.Range("A" & DestRow).Value = ws1.Range("x3").Value
Your 2nd option worked perfectly! Thank you so much!!!
Hayley
I'm not on computer at the moment (on the iPad) but I think this should get you the values only
Private Sub CommandButton2_Click() Dim ws1 As Worksheet, ws2 As Worksheet Dim DestRow As Long Set ws1 = Sheets("Month Template") Set ws2 = Sheets("Development Plan Log") DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1 ws1.Range("x3").Copy ws2.Range("A" & DestRow).PasteSpecial xlPasteValues ws1.Range("p27").Copy ws2.Range("B" & DestRow).PasteSpecial xlPasteValues End Sub
Happy with my advice? Click on the * reputation button below
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks