Lists - Probably Easy ?

  • Thread starter Thread starter momtoaj
  • Start date Start date
M

momtoaj

So I have multiple lists, Column C may have 5 items, Column D may have 3
items, Colume E may have 12 items. How do I consolidate all of the items
listed in C, D & E into one list? Once that is done, I would like to then
resort the one list into an alphabetical list. Perhaps with a macro & a
button on the screen to activate the macro?

Let me know.

Thanks!
 
Try this. Moves all in col e & col f to col D. If you want row 1 chg
cells(2,i) to cells(1,i)

Sub consolidatecols()
For i = 5 To 6
dlr = Cells(Rows.Count, 4).End(xlUp).Row + 1
Cells(2, i).Resize(Cells(Rows.Count, i). _
End(xlUp).Row).Cut Cells(dlr, 4)
Next i
End Sub
 
So does this make the list & then re-sort it as well? What if I want to take
all of the data from these columns & put it all into column A? Right now my
columns C, D & E (actually there are more than that) are formulas to pull
over the lists from other sheets. So I need to put the new consolidated list
into its own column. Hope that helps. I didn't follow any of the macro at
all but am willing to give it a try.

Thanks!
 
Try it this way. Just change the 5 column number
Sub consolidatecols()
For i = 3 To 5 'last column number
dlr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(1, i).Resize(Cells(Rows.Count, i). _
End(xlUp).Row).Copy Cells(dlr, 1)
Next i
'sort a
Range("A1").Sort Key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
dataOption1:=xlSortNormal
End Sub
 
Back
Top