VBA or MACRO to copy table into another worksheet

[bunl]

I had this orginally posted in formula category, but maybe Excel Programing /VBA / Macro is much more appropriate.

This might be harder to explain...but I'll try my best.


I need help copying data from one table (tab "Raw Data) to another (Tab "Sheet 1). The tricky part is that sometimes the data isnt the same in regards to column and rows. I tried to color code what needs to go where. Please let me know if there is i need to elaborate some more.

[Mumps1]

Try:

Please Login or Register  to view this content.

[bunl]

Okay...I tried to be slick about it and only show portion of my Workbook. My plan was to take the codes and change the values in the code to make it work in the orginal workbook and it didnt work. So what did I do wrong?


Here is what I chnaged in the code from what you provided, but didnt work. As you can see the tab name for the "Copy Sheet" changed from "Sheet1" to "Industry View" and where I wanted it to paste changed from "A1" to "B82" etc...

Sub CopyCols()
Application.ScreenUpdating = False
Sheets("Raw Data").Columns("A").Copy Sheets("Industry View").Range("B82")
Sheets("Raw Data").Columns("B:D").Copy Sheets("Industry View").Range("I82")
Sheets("Raw Data").Columns("E:U").Copy Sheets("Industry View").Range("L82")
Application.ScreenUpdating = True
End Sub

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[bunl]

Maybe:

Please Login or Register  to view this content.

Didnt work...Mumps1 code worked...but im trying to change the value to work for the orginal workbook.

[JOHN H. DAVIS]

Worked for me when I tested it on your sample?

[bunl]

A few columns worked, but then I recieved an error that VBA is out of memory

[bunl]

Sub CopyCols()
Application.ScreenUpdating = False
Sheets("Raw Data").Columns("A").Copy Sheets("Industry View").Range("B82") Looks like the problem is changing the row.Becasue B1 would work, but changing it to B2 or any number(row) from 1 would give me an error.
Sheets("Raw Data").Columns("B:D").Copy Sheets("Industry View").Range("I82")
Sheets("Raw Data").Columns("E:U").Copy Sheets("Industry View").Range("L82")
Application.ScreenUpdating = True
End Sub

[JOHN H. DAVIS]

A few columns worked, but then I recieved an error that VBA is out of memory

FWIW:

Please Login or Register  to view this content.

[bunl]

FWIW:

Please Login or Register  to view this content.

That worked....but it does need to be tweak a tad bit. As the year goes on, there will be months added/deleted as well as rows expanding or shrinking. Is there a way to it search for last entry? I also need it to starting the past in B81