@LeoTaxi - helped me out a week or so ago with a similar issue. This time I need to create 1 row for each ID and copy over each item, quantity and add a blank column, then the next item, qty and blank column.
Attached is a sample workbook of the current format that shows what the data is in, and the desired format, that shows how I need the data formatted.
I appreciate any and all who assist
Hi Jo15765,
Please find your solution below
Sub Rearrange() Sheets("Current Format").Select RCount = Range("A:A").CurrentRegion.Rows.Count CCount = Range("1:1").CurrentRegion.Columns.Count Set CF = Sheets("Current Format") Sheets("Desired Format").Select For i = 2 To RCount Range("A" & i).Value = CF.Range("A" & i).Value k = 2 For j = 2 To CCount If CF.Cells(i, j).Value <> 0 Then Cells(i, k).Value = CF.Cells(1, j).Value Cells(i, k + 1).Value = CF.Cells(i, j).Value k = k + 3 End If Next j Next i End Sub
Ravikumar,
* Please Add Reputation if solved.
@fshbet -> this does not set-up the header information. Is there a way to also include the header info like I show in my sample workbook?
Hi jo15765,
You can add the column heading on you own based on you needs. It's fixed one.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks