i need a macro to read blank cells
 

i need a macro to check all blank cells in column E then move what is in
column D in the same row into that cell
if the coresponding cell in column D is blank tehn we use wahtever value is
in the C column.

please make it simple with tons of comments as am new to macros and would
like to write my own macros.

i need a macro to read blank cells
 

Anthony

Try this

Sub findBlanksInE()
'Assign a variable to hold last row number
Dim lLastRow As Long
'Assign a variable to hold the range object
Dim myCell As Range
'Find the last row in column E by going to bottom/up
lLastRow = Range("E65536").End(xlUp).Row
'iterate each cell (myCell) in the defined range
For Each myCell In Range("E1:E" & lLastRow)
'If the cell is blank ""
If myCell = "" Then
'If the cell, offset one column Left(D) is not blank
If myCell.Offset(0, -1).Value < "" Then
myCell.Value = myCell.Offset(0, -1).Value
Else
'If cell, offset 1 column left IS blank, use two columns left (C)
myCell.Value = myCell.Offset(0, -2).Value
End If
End If
'Loop to next cell
Next myCell
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"anthony" wrote in message
...
i need a macro to check all blank cells in column E then move what is in
column D in the same row into that cell
if the coresponding cell in column D is blank tehn we use wahtever value
is
in the C column.

please make it simple with tons of comments as am new to macros and would
like to write my own macros.

i need a macro to read blank cells
 

Sub movefromcold()
For Each c In Range("c2:c10").SpecialCells(xlBlanks)
c.Offset(, 1).Cut c
Next
End Sub


--
Don Guillett
SalesAid Software

"anthony" wrote in message
...
i need a macro to check all blank cells in column E then move what is in
column D in the same row into that cell
if the coresponding cell in column D is blank tehn we use wahtever value
is
in the C column.

please make it simple with tons of comments as am new to macros and would
like to write my own macros.

i need a macro to read blank cells
 

DOES THIS MACRO COPY THE VALUES FROM THE D (OR C) COLUMNS INTO THE E COLUMN
OR DOES IT MOVE THEM. COZ I NEED TO MOVE THEM (NOT COPY)

i need a macro to read blank cells
 

Please don't SHOUT. It is considered to be very bad netiquette and will not
make you friends here. Did you not see my post? Even if Nicks just did a
copy, you can always then delete or clear contents of the un-needed column.

Sub movefromcold()
For Each c In Range("d2:d100").SpecialCells(xlBlanks)
c.Offset(, 1).Cut c
Next
End Sub


--
Don Guillett
SalesAid Software

"anthony" wrote in message
...

DOES THIS MACRO COPY THE VALUES FROM THE D (OR C) COLUMNS INTO THE E
COLUMN
OR DOES IT MOVE THEM. COZ I NEED TO MOVE THEM (NOT COPY)