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

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
>
>

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
>>
>>