Check the two different cells in the same row
Hi Joel,
Many thanks for your help!!!
Tlee
It is simplier just to move a into d if a is blank or if a is not blank.
sub CheckColumns
RowCount = 1
Do while Range("A" & RowCount) < ""
if Range("D" & RowCount) = "" then
Range("D" & RowCount) = Range("A" & RowCount)
end if
RowCount = RowCount + 1
loop
end sub
"tlee" wrote:
Hi all,
Could anyone tell me how to check all cells of the same column by the
following conditions:
1) if the cell (D5) is blank and the cell (A5) is not blank, then fill
data
into D5
2) if the cell (D5) is blank and the cell (A5) is blank, then no need to
fill anything
Thanks for in advance.
Tlee
|