how to hide with conditional formatting

[alan myers]

how can i hide a row if say d5 = 0
then check d6 if 0 hide that row and so on

 

[alan myers]

HOPE YOU SEE WHAT I MEAN

 

[Joe4]

Unfortunately, I cannot see your data sheet from my present location. My workplace security settings block those sites. So I won't be able to see it until later tonight when I am at my home computer.

 

[Joe4]

So, are you trying to hide/show the rows on Main sheet depending on what is in column E of the data sheet?
Is there a one-to-one correspondence in row between the two sheets (so column E on row 4 of the Data sheet effects row 4 on the Main sheet, etc)?

 

[alan myers]

yes that is it
yes right on both cases

 

[alan myers]

if cell e on data sheet is greater then 0 it shows on main sheet and when it is 0 it hides

 

[Joe4]

OK, there is another important question I forgot to ask, if this is to be automated as data is entered.
Is column E on the Data sheet hard-coded, or is a formula (I am guessing a formula)?
If a formula, what is the exact formula?
If we want it to be automated, we want to key in on the data changes that people are making manually. So we need to know what column changes affect column E.

 

[alan myers]

on data sheet column e is typed in
then on main sheet column e get the data sheet values by =Data!E3

 

[Joe4]

Excellent!

Ok, go to the Data tab, right-click on the sheet tab name on the bottom of the screen, and select "View Code".
Now paste the following VBA code in the VB Editor window that pops up.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
    
'   See if any cell just updated is in column E
    Set rng = Intersect(Target, Columns("E:E"))
    
'   Exit if no cells in range
    If rng Is Nothing Then Exit Sub
    
'   Loop through updated cells
    For Each cell In rng
'       Hide same row on Main sheet if 0
        If cell = 0 Then
            Sheets("Main").Rows(cell.Row).Hidden = True
'       Otherwise unhide it
        Else
            Sheets("Main").Rows(cell.Row).Hidden = False
        End If
    Next cell

End Sub

This should do what you want automatically.

 

[alan myers]

 

[alan myers]

does not work this is what i get