Hello,

How do I fill a column of cells with values if it is empty? I want to
fill empty cells with a 0 (zero). The tricky part is, the cells should
only be filled if they are in a row. For instance, A25 has data in it,
but B25 doesn't, but some cells in column b has value, so b25 needs to
have a zero in it since it is in row 25.

I'm not sure how to approach this.

Thanks!


--
limshady411
------------------------------------------------------------------------
limshady411's Profile: http://www.excelforum.com/member.php...o&userid=28711
View this thread: http://www.excelforum.com/showthread...hreadid=484111

Wild guess:

Sub BVals()
Dim eRow As Long
Dim ColB As Range
Dim cell As Range
eRow = Cells(Rows.Count, 1).End(xlUp).Row
Set ColB = Range(Cells(2, 2), Cells(eRow, 2))
For Each cell In ColB
If cell.Offset(0, -1).Value < Empty _
And cell.Value = Empty Then cell.Value = 0
Next cell
End Sub

Hopet this helps
Rowan

limshady411 wrote:
Hello,

How do I fill a column of cells with values if it is empty? I want to
fill empty cells with a 0 (zero). The tricky part is, the cells should
only be filled if they are in a row. For instance, A25 has data in it,
but B25 doesn't, but some cells in column b has value, so b25 needs to
have a zero in it since it is in row 25.

I'm not sure how to approach this.

Thanks!

Thanks...this didn't work, but good try. I guess maybe, all I need i
to make sure that in the last row of a spreadsheet, if it is an empt
cell, make it a 0. This might be easier. Any ideas? Thanks everyone

--
limshady41
-----------------------------------------------------------------------
limshady411's Profile: http://www.excelforum.com/member.php...fo&userid=2871
View this thread: http://www.excelforum.com/showthread.php?threadid=48411

It is still not all that clear what you are after so if this doesn't
work try to give a more detailed explanation of what it is you want to
achieve. This assumes you have data in column A. It checks the last cell
in Column B and if this is empty inserts a 0:

Sub lrow()
Dim eRow As Long
eRow = Cells(Rows.Count, 1).End(xlUp).Row
With Cells(eRow, 2)
If .Value = Empty Then .Value = 0
End With
End Sub

Regards
Rowan

limshady411 wrote:
Thanks...this didn't work, but good try. I guess maybe, all I need is
to make sure that in the last row of a spreadsheet, if it is an empty
cell, make it a 0. This might be easier. Any ideas? Thanks everyone.

Thanks for your help. I can make it simpler. I want to fill all cells in
a row with a value of zero. How would I go about this? Thanks again!


--
limshady411
------------------------------------------------------------------------
limshady411's Profile: http://www.excelforum.com/member.php...o&userid=28711
View this thread: http://www.excelforum.com/showthread...hreadid=484111