do while loop problem

[amitkumarsharma]

i want to concatenate two columns
which are in between two yellow filled rows
but its concatenating for whole column till the end of column


Sub ConcatColumns()


Do While ActiveCellColor = NoFill 'Loops until the active cell is not coloured cell.



ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)


ActiveCell.Offset(1, 0).Select
Loop


End Sub

 

[amitkumarsharma]

one more failed try using

Sub ConcatColumns()


Do While ActiveCellColor <> RGB(255, 255, 0) 'Loops until the active cell is blank.


'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.


ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)


ActiveCell.Offset(1, 0).Select
Loop


End Sub

 

[amitkumarsharma]

again one more fail , this time i tried with colour index
and concatenate between red rows

Sub ConcatColumns()


Do While ActiveCellColorIndex = 3 'Loops until the active cell is red.


'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.


ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)


ActiveCell.Offset(1, 0).Select
Loop


End Sub