Require a macro for Excel 2007

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

pcor - 13 May 2008 19:45 GMT

I need a macro that will check out a given range( say a1 to z100)
As it checkd ther range(a1..z100) if there is NOT data in the cell, replace
the blank cell with $0.00
I appreciate all the help I am getting from this site

Reply to this Message

Per Jessen - 13 May 2008 19:55 GMT

Hi

Try this:

Sub FillRange()
Dim TargetRange As Range
Set TargetRange = Range("A1:Z100")

For Each c In TargetRange
If c.Value = "" Then c.Value = Format("0", "$0.00")
Next
End Sub

Regards,
Per

>I need a macro that will check out a given range( say a1 to z100)
> As it checkd ther range(a1..z100) if there is NOT data in the cell,
> replace
> the blank cell with $0.00
> I appreciate all the help I am getting from this site

Reply to this Message

pcor - 13 May 2008 20:49 GMT

Just great. An now if I may.
How do I replace at these $0.00 with a blank
Thanks very much

> I need a macro that will check out a given range( say a1 to z100)
> As it checkd ther range(a1..z100) if there is NOT data in the cell, replace
> the blank cell with $0.00
> I appreciate all the help I am getting from this site

Reply to this Message

Per Jessen - 13 May 2008 21:06 GMT

Hi again,
Thanks for your reply.

Try this

Sub EmptyRange()
Dim TargetRange As Range
Set TargetRange = Range("A1:Z100")

For Each c In TargetRange
If c.Value = Format("0", "$0.00") Then c.Value = ""
Next
End Sub

Best regards,
Per

> Just great. An now if I may.
> How do I replace at these $0.00 with a blank
[quoted text clipped - 5 lines]
>> the blank cell with $0.00
>> I appreciate all the help I am getting from this site

Reply to this Message

pcor - 14 May 2008 01:34 GMT

Thanks for the quick reply...BUT that last one did not work. Any other ideas
Thanks

> Hi again,
> Thanks for your reply.
[quoted text clipped - 22 lines]
> >> the blank cell with $0.00
> >> I appreciate all the help I am getting from this site

Reply to this Message