Hi, HELP!!! how to write code to change all cells with "zero" value into
transparent, "not blank",
I got the following from the Excel macro recorder, but it does not work, for
me :-)


Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1:AA1000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="0"
With Selection.FormatConditions(1).Font
.Bold = False
.Italic = False
.ColorIndex = 2
End With
End Sub

this may work for you

Sub test()
Dim rng As Range
Dim rngfound As Range
Application.ScreenUpdating = fasle
Application.Calculation = xlCalculationManual
Set rng = Range("A1:AA1000")
With rng
Set rngfound = .Find(What:="0", lookIn:=xlValues, LookAt:=xlWhole, _
searchorder:=xlByRows)
On Error Resume Next
If Not rngfound Is Nothing Then
firstaddress = rngfound.Address
Do
With rngfound
.Font.Bold = False
.Font.ColorIndex = 2
End With

Set rngfound = .FindNext(rngfound)
Loop While Not rngfound Is Nothing And rngfound.Address <> _
firstaddress
End If
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


--


Gary


"AlanSimpson" <(E-Mail Removed)> wrote in message
news:6AB099DC-5284-4ECD-A255-(E-Mail Removed)...
> Hi, HELP!!! how to write code to change all cells with "zero" value into
> transparent, "not blank",
> I got the following from the Excel macro recorder, but it does not work, for
> me :-)
>
>
> Sub Macro1()
> '
> ' Macro1 Macro
> '
> '
> Range("A1:AA1000").Select
> Selection.FormatConditions.Delete
> Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
> Formula1:="0"
> With Selection.FormatConditions(1).Font
> .Bold = False
> .Italic = False
> .ColorIndex = 2
> End With
> End Sub
>

don't know anything about foxpro

--


Gary


"AlanSimpson" <(E-Mail Removed)> wrote in message
news:41915CCD-C09C-4EC8-9CAF-(E-Mail Removed)...
> Hi, Gary, thanks a lot. Could you make it work under Foxpro 5.0
> environment ?
>
>
> "Gary Keramidas" ??:
>
>> this may work for you
>>
>> Sub test()
>> Dim rng As Range
>> Dim rngfound As Range
>> Application.ScreenUpdating = fasle
>> Application.Calculation = xlCalculationManual
>> Set rng = Range("A1:AA1000")
>> With rng
>> Set rngfound = .Find(What:="0", lookIn:=xlValues, LookAt:=xlWhole, _
>> searchorder:=xlByRows)
>> On Error Resume Next
>> If Not rngfound Is Nothing Then
>> firstaddress = rngfound.Address
>> Do
>> With rngfound
>> .Font.Bold = False
>> .Font.ColorIndex = 2
>> End With
>>
>> Set rngfound = .FindNext(rngfound)
>> Loop While Not rngfound Is Nothing And rngfound.Address <> _
>> firstaddress
>> End If
>> End With
>> Application.ScreenUpdating = True
>> Application.Calculation = xlCalculationAutomatic
>> End Sub
>>
>>
>> --
>>
>>
>> Gary
>>
>>
>> "AlanSimpson" <(E-Mail Removed)> wrote in message
>> news:6AB099DC-5284-4ECD-A255-(E-Mail Removed)...
>> > Hi, HELP!!! how to write code to change all cells with "zero" value into
>> > transparent, "not blank",
>> > I got the following from the Excel macro recorder, but it does not work,
>> > for
>> > me :-)
>> >
>> >
>> > Sub Macro1()
>> > '
>> > ' Macro1 Macro
>> > '
>> > '
>> > Range("A1:AA1000").Select
>> > Selection.FormatConditions.Delete
>> > Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
>> > Formula1:="0"
>> > With Selection.FormatConditions(1).Font
>> > .Bold = False
>> > .Italic = False
>> > .ColorIndex = 2
>> > End With
>> > End Sub
>> >
>>
>>
>>