code to make whole row unvisible

[dennisli]

For range A9:A65500, if the formula results are zero, the corresponding whole row value will be unvisible.
I use Conditional Format---Fond---Color---White to make the whole row value unvisible. Here is combined results from Record Macro but it just did not work.
Any idea will be welcome.
Dennis

Sub Macro4()
Range("A9:A65500").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="0"
    Selection.EntireRow.FormatConditions(1).Font.ColorIndex = 2
End Sub

 

[JC2710]

Bit cumbersome but it works

Sub Macro1()
    
    Dim l As Long
    
    For l = 1 To 65500
        If Cells(l, 1) = 0 Then
            Rows(l).EntireRow.Font.ColorIndex = 2
        Else
            Rows(l).EntireRow.Font.ColorIndex = 0
        End If
    Next
End Sub

 

[Kenneth Hobson]

Right click the sheet's tab, View Code, and paste this.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cell As Range
  If Not Intersect(Target, Range("A9:A6500")) Is Nothing Then
    For Each cell In Target
      If cell.Value = 0 Then
       cell.EntireRow.Font.ColorIndex = 2
        Else: cell.EntireRow.Font.ColorIndex = 0
      End If
    Next cell
  End If
End Sub

 

[dennisli]

that's great. have a good day.

 

[Norie]

If you want conditional formatting via code.

With Range("A9:A65500").EntireRow
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="=RC1=0"
    .FormatConditions(1).Font.ColorIndex = 2
End With