Hey all,
I've got data in columns C,F,I,K,L,O and P and can't for the life of me figure out how to copy them into a new workbook, so they're then all side by side in the new book.
I thought this would've been really easy to find the answer to, but seems not to be the case, alas. Column K then needs to be on the right of column L and O on the right of P.
I can't attach the sheet that it actually needs doing on as the data is confidential, but I've mocked up a very quick dummy sheet for example.
Thanks in advance!
This is what I have at current, as well
Sub CreateReport_step1()
Dim nDate$
Dim FileName_IMM$
Dim FileName_BATML$
nDate = Format(Now, "yyyymmdd")
FileName_IMM = "Master Report " & nDate & ".xls"
FileName_ML = "Master List " & nDate & ".xls"
Windows("MAster Report - " & nDate & ".xls").Activate
'Selects the daily report
Sheets(1).Select
'Selects the relevant Sheet
Range("C" & "F" & "I" & "K" & "L" & "O" & "P").Copy
'Selects the columns with the data we need for the Master List
Workbooks.Add
Range("A1").Select
ActiveCell.PasteSpecial (xlPasteColumnWidths)
Selection.Paste
End Sub
Bookmarks