changing rows for columns
 

This peice of code goes all the way across the workbook an changes white
blank columns to white columns with IN written on it.

Can anyone adapt this code so that it goes down a column rather than
across a row, i tried changing the words Row to Column but that didn't
work!


VBA:

Sub Macro_In()
Dim c As Range

For Each c In Range(Cells(ActiveCell.Row, 4), Cells(ActiveCell.Row,
56))
If c.Interior.ColorIndex = 2 Or c.Interior.ColorIndex < 0 And
Len(c) = 0 And c.FormulaR1C1 = "" Then
c = "IN"
End If

Next c

End Sub


--
alymcmorland
------------------------------------------------------------------------
alymcmorland's Profile: http://www.excelforum.com/member.php...o&userid=27652
View this thread: http://www.excelforum.com/showthread...hreadid=477143

changing rows for columns
 

Hi,

You are close to the wanted code:

Sub Macro_In()
Dim c As Range

For Each c In Range(Cells(4, ActiveCell.Column), Cells(56,
ActiveCell.Column))
If c.Interior.ColorIndex = 2 Or c.Interior.ColorIndex < 0 And
Len(c) = 0 And c.FormulaR1C1 = "" Then
c = "IN"
End If
Next c

End Sub


Hoop That Helps,


Wouter Magré

changing rows for columns
 

Coll, that works well good, but is there a way instead of it always
being cell 4 to cell 56 that gets changed is there a way to declare the
first cell as the active cell and then do it from there until cell 56?

So if i was on E25 and i ran the macro i'd want all the cells below
E25, so up to E56 to change but i'd have to declare that cell E25 was
the start cell.

Is this possible? and if so how would i go about altering the code to
incorporate it?


--
alymcmorland
------------------------------------------------------------------------
alymcmorland's Profile: http://www.excelforum.com/member.php...o&userid=27652
View this thread: http://www.excelforum.com/showthread...hreadid=477143

changing rows for columns
 

For Each c In Range(Cells(4, ActiveCell.Column), _
Cells(56,ActiveCell.Column))

would become

For Each c In Range(AcitiveCell, Cells(56, _
ActiveCell.Column))

--
Regards,
Tom Ogilvy

"alymcmorland"
wrote in message
news:alymcmorland.1x3v2i_1129651567.1657@excelforu m-nospam.com...

Coll, that works well good, but is there a way instead of it always
being cell 4 to cell 56 that gets changed is there a way to declare the
first cell as the active cell and then do it from there until cell 56?

So if i was on E25 and i ran the macro i'd want all the cells below
E25, so up to E56 to change but i'd have to declare that cell E25 was
the start cell.

Is this possible? and if so how would i go about altering the code to
incorporate it?


--
alymcmorland
------------------------------------------------------------------------
alymcmorland's Profile:
http://www.excelforum.com/member.php...o&userid=27652
View this thread: http://www.excelforum.com/showthread...hreadid=477143