Microsoft
Software
Hardware
Network
Question : Get data from a table into individual rows. Excel macro, VBA
Hi,
I got some great help off here before and I’m hoping that somebody can help again.
I have one workbook with two worksheets, a ‘DataSheet’ and a ‘Control Sheet’, I have attached a workbook to demonstrate what I want to get to.
I am wanting a macro which will populate the control sheet with data from the datasheet but I’m not sure how to do it:
The result I want is quite simple, the data is in a table with Product going down the rows and names going across the columns and data in the centre.
I am wanting to list this table as a series of rows so on the example attached,
Product A – Name B – 10
Product A – Name C – 20
Etc
Etc
On the control sheet is the output I am wanting to get to, however if the row or column have a ’skip’ next to it (row) or above it (column) I do not want to include that data, I have noted this as red text on my example.
There are going to be about 40 columns of data and about 300 rows (static numbers once confirmed) but not sure how to go about it to get the best speed as it will produce around 12,000 rows.
I am restricted to using Excel for this so cannot look at an Access route.
Thanks :-)
Attachments:
ExampleWorkbook.xls
(28 KB)
(File Type Details)
Example Workbook
Related Solutions:
Add new columns into array. VBA Excel
Answer : Get data from a table into individual rows. Excel macro, VBA
At the bottom, replace
Sheets(2).Range("F6").Resi
ze(rows.Co
unt * cols.Count, 3) = PasteArray
with wherever you want to put the result, e.g.
Sheets("Control Sheet").Range("A1").Resize
(rows.Coun
t * cols.Count, 3) = PasteArray
Random Solutions
Outlook not attack shortcut (lnk) attach directly the file
Word 2003 - working with tables, rows, and cells
redirecting the Notes email into custom email database (not into default Notes email database)
detect registry change windows ce
transfering a directory with multiple files in parallel
Exchange 2010. Install Failed, now can't uninstall
Change Username on SBS2008
ant ftp error
Raid 1 Rebuild Failed - Adaptec 1210SA
Xquery assign datetime variable