Re: Group Customers in One Cell - with there orders(multiple) in another cell same ro
I ended up taking care of it this morning. I was missing the .xls to my workbook name, stupid little mistakes, grrrr.
Here is the final code for that part with lastrow identification so it pastes on the next available line.
Code
Dim TransposeDataHold As Range
Dim LastRow
LastRow = Workbooks("TransposeDataHold.xls").Worksheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Row 'Find last row.
Set TransposeDataHold = Workbooks("TransposeDataHold.xls").Worksheets("Sheet1").Range("A1:A" & LastRow)
With TransposeDataHold.Resize(TransposeDataHold.Rows.Count, 3).Cells(TransposeDataHold.Resize(TransposeDataHold.Rows.Count, 3).Cells.Count).Offset(1, 1)
.NumberFormat = "General"
.Value = CStr(strCustomIDs)
.Offset(, 1).Value = strMonth
.Offset(, 2).Resize(1, 1 + UBound(Split(strOrderIDs, "|"))).Value = Split(strOrderIDs, "|")
End With