Hi all,
I would like to create a macro that copies a column from one sheet ("master") to another ("copied") then clears the data in the "master" sheet. The column that needs to be copied is B20 through B34, and the data that needs to be cleared is B3 through D17. I want the data to be copied to a new column in "copied" each time, starting in column B. I have little to no experience in macro programming, so I don't even know where to begin. Does anyone have any suggestions?
Thanks,
avanir151
Sub copymaster() With Sheets("Master") .Range("B20:B34").Copy Sheets("copied").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1) .Range("B3:D17").ClearContents Application.CutCopyMode = 0 End With End Sub
Last edited by AB33; 01-27-2014 at 06:45 PM.
AB33 this code copies the data correctly but there is a #REF! error when it puts the numbers on the new sheet. I tried to do a Data Validation so that both of the boxes were formatted to accept a decimal, but it still didn't work. Do you have any suggestions to fix this?
EDIT: The #REF! error is occurring because the cells I am copying are set equal to formulas. Is there any way to paste special --> values for the cells in this code?
Thanks
Last edited by avanir151; 01-28-2014 at 10:19 AM.
Sub copymaster() With Sheets("Master") .Range("B20:B34").Copy Sheets("copied").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial xlValues .Range("B3:D17").ClearContents Application.CutCopyMode = 0 End With End Sub
Thank you, that was very helpful!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks