Group all different cells value into one column

[Jan Kalop]

I have all over columns in various cells data which I would like to consolidate into one column and running consecutive rows without empty cells.

Sample In column A rows 2,5,7,13,21,25,31 data all as a digit from 2 to 7 digit in one

In column B rows 3,6,8,12,23,27 data all as a digit from 2 to 7 digit in one

How I get that all data in column C running from both column A and B without blank cells

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG17Jun33
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Rw = ActiveSheet.UsedRange.Rows.Count
[COLOR="Navy"]Set[/COLOR] Rng = Range("A:B").SpecialCells(xlCellTypeConstants)
[COLOR="Navy"]For[/COLOR] Ac = 1 To 2
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
        [COLOR="Navy"]If[/COLOR] Dn.Column = Ac [COLOR="Navy"]Then[/COLOR]
            c = c + 1
            Cells(c, 3) = Dn.Value
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]Next[/COLOR] Ac
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Jan Kalop]

Try:-

[COLOR=Navy]Sub[/COLOR] MG17Jun33
[COLOR=Navy]Dim[/COLOR] Rw [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] Rng [COLOR=Navy]As[/COLOR] Range, Dn [COLOR=Navy]As[/COLOR] Range, c [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] Ac [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long[/COLOR]
Rw = ActiveSheet.UsedRange.Rows.Count
[COLOR=Navy]Set[/COLOR] Rng = Range("A:B").SpecialCells(xlCellTypeConstants)
[COLOR=Navy]For[/COLOR] Ac = 1 To 2
    [COLOR=Navy]For[/COLOR] [COLOR=Navy]Each[/COLOR] Dn [COLOR=Navy]In[/COLOR] Rng
        [COLOR=Navy]If[/COLOR] Dn.Column = Ac [COLOR=Navy]Then[/COLOR]
            c = c + 1
            Cells(c, 3) = Dn.Value
        [COLOR=Navy]End[/COLOR] If
    [COLOR=Navy]Next[/COLOR] Dn
[COLOR=Navy]Next[/COLOR] Ac
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]

Regards Mick

do I have to create module ? and how I can run it

 

[Jan Kalop]

or maybe I try to show it in different way:




in cell A1 -2345
in cell A5 -35678
in cell A17 -176552
different vale in the cells can go up to row 100


then


in cell B9 -4526
in cell B13 -245577
in cell B34 -179


different vale in the cells can go up to row 100


and now I would like to tranfer that data into one C cloumn to look like:


in cell C1 - 2345
in cell C2 - 35678
in cell C3 -176552
in cell C4 - 4526
in cell C5 - 245577
in cell C6 - 179




It is possible to do that.....please help