Hi Everyone
I've got a grid , 81 cells with numbers in random cells.
I would like a macro to format the empty cells only, in red.
As you can see, I don't know much about macro except the recorder.

Just a start::
Sub Change2Red()
'
' Change2Red Macro
' Macro recorded 25/11/2008 by
' Range("B2:J10").Select
if cell is blank ?????
Selection.Font.ColorIndex = 3
End Sub
Thanking you in advance,
Regards
John

There is no failure except in no longer trying.
by: Elbert Hubbard

John,

It#s easier to use conditional formatting. Select B2 the drag top select all
your range of B1 - j10 then

Format|Conditional format
Formula is
=B2=""

Pick a colour
OK

Mike


"John" wrote:

> Hi Everyone
> I've got a grid , 81 cells with numbers in random cells.
> I would like a macro to format the empty cells only, in red.
> As you can see, I don't know much about macro except the recorder.
>
> Just a start::
> Sub Change2Red()
> '
> ' Change2Red Macro
> ' Macro recorded 25/11/2008 by
> ' Range("B2:J10").Select
> if cell is blank ?????
> Selection.Font.ColorIndex = 3
> End Sub
> Thanking you in advance,
> Regards
> John
>
> There is no failure except in no longer trying.
> by: Elbert Hubbard
>

Hi Mike
Thanks for your reply.
I can't use CF because when i will enter numbers, they will return to black
and I'm trying to separate visualy the new entries from the old entries.
Hope this is clear.
Regards
John
"Mike H" <(E-Mail Removed)> wrote in message
news:6471AA7B-2A78-4E6E-BF07-(E-Mail Removed)...
> John,
>
> It#s easier to use conditional formatting. Select B2 the drag top select
> all
> your range of B1 - j10 then
>
> Format|Conditional format
> Formula is
> =B2=""
>
> Pick a colour
> OK
>
> Mike
>
>
> "John" wrote:
>
>> Hi Everyone
>> I've got a grid , 81 cells with numbers in random cells.
>> I would like a macro to format the empty cells only, in red.
>> As you can see, I don't know much about macro except the recorder.
>>
>> Just a start::
>> Sub Change2Red()
>> '
>> ' Change2Red Macro
>> ' Macro recorded 25/11/2008 by
>> ' Range("B2:J10").Select
>> if cell is blank ?????
>> Selection.Font.ColorIndex = 3
>> End Sub
>> Thanking you in advance,
>> Regards
>> John
>>
>> There is no failure except in no longer trying.
>> by: Elbert Hubbard
>>

John

Right click your sheet tab, view code and paste this in and run it

Sub versive()
Set MyRange = Range("B2:J10")
For Each c In MyRange
If IsEmpty(c) Then
c.Interior.ColorIndex = 3
End If
Next
End Sub

Mike

"John" wrote:

> Hi Mike
> Thanks for your reply.
> I can't use CF because when i will enter numbers, they will return to black
> and I'm trying to separate visualy the new entries from the old entries.
> Hope this is clear.
> Regards
> John
> "Mike H" <(E-Mail Removed)> wrote in message
> news:6471AA7B-2A78-4E6E-BF07-(E-Mail Removed)...
> > John,
> >
> > It#s easier to use conditional formatting. Select B2 the drag top select
> > all
> > your range of B1 - j10 then
> >
> > Format|Conditional format
> > Formula is
> > =B2=""
> >
> > Pick a colour
> > OK
> >
> > Mike
> >
> >
> > "John" wrote:
> >
> >> Hi Everyone
> >> I've got a grid , 81 cells with numbers in random cells.
> >> I would like a macro to format the empty cells only, in red.
> >> As you can see, I don't know much about macro except the recorder.
> >>
> >> Just a start::
> >> Sub Change2Red()
> >> '
> >> ' Change2Red Macro
> >> ' Macro recorded 25/11/2008 by
> >> ' Range("B2:J10").Select
> >> if cell is blank ?????
> >> Selection.Font.ColorIndex = 3
> >> End Sub
> >> Thanking you in advance,
> >> Regards
> >> John
> >>
> >> There is no failure except in no longer trying.
> >> by: Elbert Hubbard
> >>
>
>

HI Xlmate
Thank you for your reply but i'm getting a "Run time error 1004"
Method ' Range ' of object global failed.
Can you help me??
Regards
John
"xlmate" <(E-Mail Removed)> wrote in message
news:EC491523-2898-48FE-9874-(E-Mail Removed)...
>
> Since the cells are blanks, this line doesn't do anything
> Selection.Font.ColorIndex = 3
>
> Try this macro
>
> Sub Change2Red()
> With ActiveSheet
> Range("A1:E4").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex
> = 3
>
> End With
> End Sub
> Does this do what you want?
> Pls click Yes if this help.
>
> cheers
>
>
> "John" wrote:
>
>> Hi Everyone
>> I've got a grid , 81 cells with numbers in random cells.
>> I would like a macro to format the empty cells only, in red.
>> As you can see, I don't know much about macro except the recorder.
>>
>> Just a start::
>> Sub Change2Red()
>> '
>> ' Change2Red Macro
>> ' Macro recorded 25/11/2008 by
>> ' Range("B2:J10").Select
>> if cell is blank ?????
>> Selection.Font.ColorIndex = 3
>> End Sub
>> Thanking you in advance,
>> Regards
>> John
>>
>> There is no failure except in no longer trying.
>> by: Elbert Hubbard
>>

Your the Man, thank you very much.
It's not the first time that you've help me and I'm very grateful.
Thanks again Mike
Have a nice day
John
"Mike H" <(E-Mail Removed)> wrote in message
news:E56E3DC0-1533-4569-A0BC-(E-Mail Removed)...
> John
>
> Right click your sheet tab, view code and paste this in and run it
>
> Sub versive()
> Set MyRange = Range("B2:J10")
> For Each c In MyRange
> If IsEmpty(c) Then
> c.Interior.ColorIndex = 3
> End If
> Next
> End Sub
>
> Mike
>
> "John" wrote:
>
>> Hi Mike
>> Thanks for your reply.
>> I can't use CF because when i will enter numbers, they will return to
>> black
>> and I'm trying to separate visualy the new entries from the old entries.
>> Hope this is clear.
>> Regards
>> John
>> "Mike H" <(E-Mail Removed)> wrote in message
>> news:6471AA7B-2A78-4E6E-BF07-(E-Mail Removed)...
>> > John,
>> >
>> > It#s easier to use conditional formatting. Select B2 the drag top
>> > select
>> > all
>> > your range of B1 - j10 then
>> >
>> > Format|Conditional format
>> > Formula is
>> > =B2=""
>> >
>> > Pick a colour
>> > OK
>> >
>> > Mike
>> >
>> >
>> > "John" wrote:
>> >
>> >> Hi Everyone
>> >> I've got a grid , 81 cells with numbers in random cells.
>> >> I would like a macro to format the empty cells only, in red.
>> >> As you can see, I don't know much about macro except the recorder.
>> >>
>> >> Just a start::
>> >> Sub Change2Red()
>> >> '
>> >> ' Change2Red Macro
>> >> ' Macro recorded 25/11/2008 by
>> >> ' Range("B2:J10").Select
>> >> if cell is blank ?????
>> >> Selection.Font.ColorIndex = 3
>> >> End Sub
>> >> Thanking you in advance,
>> >> Regards
>> >> John
>> >>
>> >> There is no failure except in no longer trying.
>> >> by: Elbert Hubbard
>> >>
>>
>>

Your welcome

"John" wrote:

> Your the Man, thank you very much.
> It's not the first time that you've help me and I'm very grateful.
> Thanks again Mike
> Have a nice day
> John
> "Mike H" <(E-Mail Removed)> wrote in message
> news:E56E3DC0-1533-4569-A0BC-(E-Mail Removed)...
> > John
> >
> > Right click your sheet tab, view code and paste this in and run it
> >
> > Sub versive()
> > Set MyRange = Range("B2:J10")
> > For Each c In MyRange
> > If IsEmpty(c) Then
> > c.Interior.ColorIndex = 3
> > End If
> > Next
> > End Sub
> >
> > Mike
> >
> > "John" wrote:
> >
> >> Hi Mike
> >> Thanks for your reply.
> >> I can't use CF because when i will enter numbers, they will return to
> >> black
> >> and I'm trying to separate visualy the new entries from the old entries.
> >> Hope this is clear.
> >> Regards
> >> John
> >> "Mike H" <(E-Mail Removed)> wrote in message
> >> news:6471AA7B-2A78-4E6E-BF07-(E-Mail Removed)...
> >> > John,
> >> >
> >> > It#s easier to use conditional formatting. Select B2 the drag top
> >> > select
> >> > all
> >> > your range of B1 - j10 then
> >> >
> >> > Format|Conditional format
> >> > Formula is
> >> > =B2=""
> >> >
> >> > Pick a colour
> >> > OK
> >> >
> >> > Mike
> >> >
> >> >
> >> > "John" wrote:
> >> >
> >> >> Hi Everyone
> >> >> I've got a grid , 81 cells with numbers in random cells.
> >> >> I would like a macro to format the empty cells only, in red.
> >> >> As you can see, I don't know much about macro except the recorder.
> >> >>
> >> >> Just a start::
> >> >> Sub Change2Red()
> >> >> '
> >> >> ' Change2Red Macro
> >> >> ' Macro recorded 25/11/2008 by
> >> >> ' Range("B2:J10").Select
> >> >> if cell is blank ?????
> >> >> Selection.Font.ColorIndex = 3
> >> >> End Sub
> >> >> Thanking you in advance,
> >> >> Regards
> >> >> John
> >> >>
> >> >> There is no failure except in no longer trying.
> >> >> by: Elbert Hubbard
> >> >>
> >>
> >>
>
>