Changing Blank cells in a range to values?

[scott-atkinson]

Could somebody help me with a codeing in VBA for a specific task.

I have a range of cells, some of which have values, some of which have no values, I wish to change the cells with no values to have the value of "0.00".

Does anyone know the correct coding to achieve this?


I have tried If Then statments but I have over 200 cells to check and did not want to right 200 IFTHEN statements!

Thanks

 

[GeoMetry]

Cells... is this in Access or Excel?

 

[scott-atkinson]

Cells... is this in Access or Excel?

Excel VBA 2003

 

[chergh]

Try:

Sub bleh()

Dim rng As Range

For Each rng In Range("A1:J20")
    If rng.Value = "" Then
        rng.Value = "0.00"
    End If
Next rng


End Sub

Just change the bit that says "Range("A1:J20")" with however you determine the appropriate range.

might be better to post this stuff in the excel forum.

 

[scott-atkinson]

Thank you

That coding worked a treat.