compile error: Block If without End If

B

bvanzile1

New Member
Joined
Dec 8, 2017
Messages
3
I have this code to hide and unhide rows and final got it to work on one sheet, but after adding the other 5 sheets now I am getting a compile error: Block If without End If....I am enew o VA so I am sure I am missing soothing simple, thanks for your help!!

Bob

Here is the code:


Code: 
Sub HideRows()
If Sheets("Batch 1").Range("D7").Value = "0" Then
    Sheets("Batch 1").Rows("7").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D7").Value > "0" Then
    Sheets("Batch 1").Rows("7").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D8").Value = "0" Then
    Sheets("Batch 1").Rows("8").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D8").Value > "0" Then
    Sheets("Batch 1").Rows("8").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D9").Value = "0" Then
    Sheets("Batch 1").Rows("9").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D9").Value > "0" Then
    Sheets("Batch 1").Rows("9").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D10").Value = "0" Then
    Sheets("Batch 1").Rows("10").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D10").Value > "0" Then
    Sheets("Batch 1").Rows("10").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D11").Value = "0" Then
    Sheets("Batch 1").Rows("11").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D11").Value > "0" Then
    Sheets("Batch 1").Rows("11").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D12").Value = "0" Then
    Sheets("Batch 1").Rows("12").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D12").Value > "0" Then
    Sheets("Batch 1").Rows("12").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D13").Value = "0" Then
    Sheets("Batch 1").Rows("13").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D13").Value > "0" Then
    Sheets("Batch 1").Rows("13").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D14").Value = "0" Then
    Sheets("Batch 1").Rows("14").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D14").Value > "0" Then
    Sheets("Batch 1").Rows("14").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D15").Value = "0" Then
    Sheets("Batch 1").Rows("15").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D15").Value > "0" Then
    Sheets("Batch 1").Rows("15").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D16").Value = "0" Then
    Sheets("Batch 1").Rows("16").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D16").Value > "0" Then
    Sheets("Batch 1").Rows("16").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D17").Value = "0" Then
    Sheets("Batch 1").Rows("17").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D17").Value > "0" Then
    Sheets("Batch 1").Rows("17").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D18").Value = "0" Then
    Sheets("Batch 1").Rows("18").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D18").Value > "0" Then
    Sheets("Batch 1").Rows("18").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D19").Value = "0" Then
    Sheets("Batch 1").Rows("19").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D19").Value > "0" Then
    Sheets("Batch 1").Rows("19").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D20").Value = "0" Then
    Sheets("Batch 1").Rows("20").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D20").Value > "0" Then
    Sheets("Batch 1").Rows("20").EntireRow.Hidden = False
If Sheets("Batch 1").Range("D21").Value = "0" Then
    Sheets("Batch 1").Rows("21").EntireRow.Hidden = True
ElseIf Sheets("Batch 1").Range("D21").Value > "0" Then
    Sheets("Batch 1").Rows("21").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D7").Value = "0" Then
        Sheets("Batch 2").Rows("7").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D7").Value > "0" Then
        Sheets("Batch 2").Rows("7").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D8").Value = "0" Then
        Sheets("Batch 2").Rows("8").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D8").Value > "0" Then
        Sheets("Batch 2").Rows("8").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D9").Value = "0" Then
        Sheets("Batch 2").Rows("9").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D9").Value > "0" Then
        Sheets("Batch 2").Rows("9").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D10").Value = "0" Then
        Sheets("Batch 2").Rows("10").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D10").Value > "0" Then
        Sheets("Batch 2").Rows("10").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D11").Value = "0" Then
        Sheets("Batch 2").Rows("11").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D11").Value > "0" Then
        Sheets("Batch 2").Rows("11").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D12").Value = "0" Then
        Sheets("Batch 2").Rows("12").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D12").Value > "0" Then
        Sheets("Batch 2").Rows("12").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D13").Value = "0" Then
        Sheets("Batch 2").Rows("13").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D13").Value > "0" Then
        Sheets("Batch 2").Rows("13").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D14").Value = "0" Then
        Sheets("Batch 2").Rows("14").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D14").Value > "0" Then
        Sheets("Batch 2").Rows("14").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D15").Value = "0" Then
        Sheets("Batch 2").Rows("15").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D15").Value > "0" Then
        Sheets("Batch 2").Rows("15").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D16").Value = "0" Then
        Sheets("Batch 2").Rows("16").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D16").Value > "0" Then
        Sheets("Batch 2").Rows("16").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D17").Value = "0" Then
        Sheets("Batch 2").Rows("17").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D17").Value > "0" Then
        Sheets("Batch 2").Rows("17").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D18").Value = "0" Then
        Sheets("Batch 2").Rows("18").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D18").Value > "0" Then
        Sheets("Batch 2").Rows("18").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D19").Value = "0" Then
        Sheets("Batch 2").Rows("19").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D19").Value > "0" Then
        Sheets("Batch 2").Rows("19").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D20").Value = "0" Then
        Sheets("Batch 2").Rows("20").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D20").Value > "0" Then
        Sheets("Batch 2").Rows("20").EntireRow.Hidden = False
    If Sheets("Batch 2").Range("D21").Value = "0" Then
        Sheets("Batch 2").Rows("21").EntireRow.Hidden = True
    ElseIf Sheets("Batch 2").Range("D21").Value > "0" Then
        Sheets("Batch 2").Rows("21").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D7").Value = "0" Then
            Sheets("Batch 3").Rows("7").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D7").Value > "0" Then
            Sheets("Batch 3").Rows("7").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D8").Value = "0" Then
            Sheets("Batch 3").Rows("8").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D8").Value > "0" Then
            Sheets("Batch 3").Rows("8").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D9").Value = "0" Then
            Sheets("Batch 3").Rows("9").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D9").Value > "0" Then
            Sheets("Batch 3").Rows("9").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D10").Value = "0" Then
            Sheets("Batch 3").Rows("10").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D10").Value > "0" Then
            Sheets("Batch 3").Rows("10").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D11").Value = "0" Then
            Sheets("Batch 3").Rows("11").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D11").Value > "0" Then
            Sheets("Batch 3").Rows("11").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D12").Value = "0" Then
            Sheets("Batch 3").Rows("12").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D12").Value > "0" Then
            Sheets("Batch 3").Rows("12").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D13").Value = "0" Then
            Sheets("Batch 3").Rows("13").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D13").Value > "0" Then
            Sheets("Batch 3").Rows("13").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D14").Value = "0" Then
            Sheets("Batch 3").Rows("14").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D14").Value > "0" Then
            Sheets("Batch 3").Rows("14").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D15").Value = "0" Then
            Sheets("Batch 3").Rows("15").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D15").Value > "0" Then
            Sheets("Batch 3").Rows("15").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D16").Value = "0" Then
            Sheets("Batch 3").Rows("16").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D16").Value > "0" Then
            Sheets("Batch 3").Rows("16").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D17").Value = "0" Then
            Sheets("Batch 3").Rows("17").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D17").Value > "0" Then
            Sheets("Batch 3").Rows("17").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D18").Value = "0" Then
            Sheets("Batch 3").Rows("18").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D18").Value > "0" Then
            Sheets("Batch 3").Rows("18").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D19").Value = "0" Then
            Sheets("Batch 3").Rows("19").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D19").Value > "0" Then
            Sheets("Batch 3").Rows("19").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D20").Value = "0" Then
            Sheets("Batch 3").Rows("20").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D20").Value > "0" Then
            Sheets("Batch 3").Rows("20").EntireRow.Hidden = False
        If Sheets("Batch 3").Range("D21").Value = "0" Then
            Sheets("Batch 3").Rows("21").EntireRow.Hidden = True
        ElseIf Sheets("Batch 3").Range("D21").Value > "0" Then
            Sheets("Batch 3").Rows("21").EntireRow.Hidden = False
                If Sheets("Batch 4").Range("D7").Value = "0" Then
                Sheets("Batch 4").Rows("7").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D7").Value > "0" Then
                Sheets("Batch 4").Rows("7").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D8").Value = "0" Then
                Sheets("Batch 4").Rows("8").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D8").Value > "0" Then
                Sheets("Batch 4").Rows("8").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D9").Value = "0" Then
                Sheets("Batch 4").Rows("9").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D9").Value > "0" Then
                Sheets("Batch 4").Rows("9").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D10").Value = "0" Then
                Sheets("Batch 4").Rows("10").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D10").Value > "0" Then
                Sheets("Batch 4").Rows("10").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D11").Value = "0" Then
                Sheets("Batch 4").Rows("11").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D11").Value > "0" Then
                Sheets("Batch 4").Rows("11").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D12").Value = "0" Then
                Sheets("Batch 4").Rows("12").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D12").Value > "0" Then
                Sheets("Batch 4").Rows("12").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D13").Value = "0" Then
                Sheets("Batch 4").Rows("13").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D13").Value > "0" Then
                Sheets("Batch 4").Rows("13").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D14").Value = "0" Then
                Sheets("Batch 4").Rows("14").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D14").Value > "0" Then
                Sheets("Batch 4").Rows("14").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D15").Value = "0" Then
                Sheets("Batch 4").Rows("15").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D15").Value > "0" Then
                Sheets("Batch 4").Rows("15").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D16").Value = "0" Then
                Sheets("Batch 4").Rows("16").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D16").Value > "0" Then
                Sheets("Batch 4").Rows("16").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D17").Value = "0" Then
                Sheets("Batch 4").Rows("17").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D17").Value > "0" Then
                Sheets("Batch 4").Rows("17").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D18").Value = "0" Then
                Sheets("Batch 4").Rows("18").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D18").Value > "0" Then
                Sheets("Batch 4").Rows("18").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D19").Value = "0" Then
                Sheets("Batch 4").Rows("19").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D19").Value > "0" Then
                Sheets("Batch 4").Rows("19").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D20").Value = "0" Then
                Sheets("Batch 4").Rows("20").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D20").Value > "0" Then
                Sheets("Batch 4").Rows("20").EntireRow.Hidden = False
            If Sheets("Batch 4").Range("D21").Value = "0" Then
                Sheets("Batch 4").Rows("21").EntireRow.Hidden = True
            ElseIf Sheets("Batch 4").Range("D21").Value > "0" Then
                Sheets("Batch 4").Rows("21").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D7").Value = "0" Then
                    Sheets("Batch 5").Rows("7").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D7").Value > "0" Then
                    Sheets("Batch 5").Rows("7").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D8").Value = "0" Then
                    Sheets("Batch 5").Rows("8").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D8").Value > "0" Then
                    Sheets("Batch 5").Rows("8").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D9").Value = "0" Then
                    Sheets("Batch 5").Rows("9").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D9").Value > "0" Then
                    Sheets("Batch 5").Rows("9").EntireRow.Hidden = False
                If Sheets("Batch5").Range("D10").Value = "0" Then
                    Sheets("Batch 5").Rows("10").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D10").Value > "0" Then
                    Sheets("Batch 5").Rows("10").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D11").Value = "0" Then
                    Sheets("Batch 5").Rows("11").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D11").Value > "0" Then
                    Sheets("Batch 5").Rows("11").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D12").Value = "0" Then
                    Sheets("Batch 5").Rows("12").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D12").Value > "0" Then
                    Sheets("Batch 5").Rows("12").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D13").Value = "0" Then
                    Sheets("Batch 5").Rows("13").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D13").Value > "0" Then
                    Sheets("Batch 5").Rows("13").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D14").Value = "0" Then
                    Sheets("Batch 5").Rows("14").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D14").Value > "0" Then
                    Sheets("Batch 5").Rows("14").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D15").Value = "0" Then
                    Sheets("Batch 5").Rows("15").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D15").Value > "0" Then
                    Sheets("Batch 5").Rows("15").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D16").Value = "0" Then
                    Sheets("Batch 5").Rows("16").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D16").Value > "0" Then
                    Sheets("Batch 5").Rows("16").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D17").Value = "0" Then
                    Sheets("Batch 5").Rows("17").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D17").Value > "0" Then
                    Sheets("Batch 5").Rows("17").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D18").Value = "0" Then
                    Sheets("Batch 5").Rows("18").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D18").Value > "0" Then
                    Sheets("Batch 5").Rows("18").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D19").Value = "0" Then
                    Sheets("Batch 5").Rows("19").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D19").Value > "0" Then
                    Sheets("Batch 5").Rows("19").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D20").Value = "0" Then
                    Sheets("Batch 5").Rows("20").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D20").Value > "0" Then
                    Sheets("Batch 5").Rows("20").EntireRow.Hidden = False
                If Sheets("Batch 5").Range("D21").Value = "0" Then
                    Sheets("Batch 5").Rows("21").EntireRow.Hidden = True
                ElseIf Sheets("Batch 5").Range("D21").Value > "0" Then
                    Sheets("Batch 5").Rows("21").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D7").Value = "0" Then
                        Sheets("Batch 6").Rows("7").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D7").Value > "0" Then
                        Sheets("Batch 6").Rows("7").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D8").Value = "0" Then
                        Sheets("Batch 6").Rows("8").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D8").Value > "0" Then
                        Sheets("Batch 6").Rows("8").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D9").Value = "0" Then
                        Sheets("Batch 6").Rows("9").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D9").Value > "0" Then
                        Sheets("Batch 6").Rows("9").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D10").Value = "0" Then
                        Sheets("Batch 6").Rows("10").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D10").Value > "0" Then
                        Sheets("Batch 6").Rows("10").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D11").Value = "0" Then
                        Sheets("Batch 6").Rows("11").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D11").Value > "0" Then
                        Sheets("Batch 6").Rows("11").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D12").Value = "0" Then
                        Sheets("Batch 6").Rows("12").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D12").Value > "0" Then
                        Sheets("Batch 6").Rows("12").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D13").Value = "0" Then
                        Sheets("Batch 6").Rows("13").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D13").Value > "0" Then
                        Sheets("Batch 6").Rows("13").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D14").Value = "0" Then
                        Sheets("Batch 6").Rows("14").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D14").Value > "0" Then
                        Sheets("Batch 6").Rows("14").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D15").Value = "0" Then
                        Sheets("Batch 6").Rows("15").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D15").Value > "0" Then
                        Sheets("Batch 6").Rows("15").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D16").Value = "0" Then
                        Sheets("Batch 6").Rows("16").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D16").Value > "0" Then
                        Sheets("Batch 6").Rows("16").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D17").Value = "0" Then
                        Sheets("Batch 6").Rows("17").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D17").Value > "0" Then
                        Sheets("Batch 6").Rows("17").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D18").Value = "0" Then
                        Sheets("Batch 6").Rows("18").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D18").Value > "0" Then
                        Sheets("Batch 6").Rows("18").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D19").Value = "0" Then
                        Sheets("Batch 6").Rows("19").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D19").Value > "0" Then
                        Sheets("Batch 6").Rows("19").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D20").Value = "0" Then
                        Sheets("Batch 6").Rows("20").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D20").Value > "0" Then
                        Sheets("Batch 6").Rows("20").EntireRow.Hidden = False
                    If Sheets("Batch 6").Range("D21").Value = "0" Then
                        Sheets("Batch 6").Rows("21").EntireRow.Hidden = True
                    ElseIf Sheets("Batch 6").Range("D21").Value > "0" Then
                        Sheets("Batch 6").Rows("21").EntireRow.Hidden = False
    

End If
    End If
        End If
            End If
                End If
                    End If
                    

End Sub
 
Last edited by a moderator:

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes
Sort by date Sort by votes
The End If needs to be at the end of Each If section not all at the end of the code.
However, you have a lot of code. At a glance, it looks like you could simplify that a lot by using For Next loops.
 
Upvote 0
You made no reference to < 0 so I'm assuming that is not an option.

I believe your whole code could be reduced to this:

Code: 
Sub test()
Dim x As Long, ws As Worksheet
For Each ws In Worksheets(Array("Batch 1", "Batch 2", "Batch 3", "Batch 4", "Batch 5", "Batch 6"))
    For x = 7 To 21
        ws.Rows(x).Hidden = (ws.Range("D" & x) = 0)
    Next x
Next ws
End Sub
 
Upvote 0
thanks a lot Scott!!!! You are correct, I do not need <0 these cells are all formulas based off another sheet in the workbook, they will all either be 0 or > 0 ....so I just wanted to hide the rows with 0 before I printed these sheets...I will try you much simpler code as well...thanks a lot!

Bob

Scott Huish said:
You made no reference to < 0 so I'm assuming that is not an option.

I believe your whole code could be reduced to this:

Code: 
Sub test()
Dim x As Long, ws As Worksheet
For Each ws In Worksheets(Array("Batch 1", "Batch 2", "Batch 3", "Batch 4", "Batch 5", "Batch 6"))
    For x = 7 To 21
        ws.Rows(x).Hidden = (ws.Range("D" & x) = 0)
    Next x
Next ws
End Sub
Click to expand...
 
Upvote 0
Hi Scott, I just tried your much better simpler code but got a type mismatch error for this
line:

ws.Rows(x).Hidden = (ws.Range("D" & x) = 0)

bvanzile1 said:
thanks a lot Scott!!!! You are correct, I do not need <0 these cells are all formulas based off another sheet in the workbook, they will all either be 0 or > 0 ....so I just wanted to hide the rows with 0 before I printed these sheets...I will try you much simpler code as well...thanks a lot!

Bob
Click to expand...
 
Upvote 0
Scott's code works for me.

A few things to check:
- Make sure the sheet names listed in the array EXACTLY match your sheet names (check for any extra spaces or other characters that may lead to an inexact match, i.e. "Batch 1 " is not the same as "Batch 1"
- Make sure that you do not have any merged cells on your sheet
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Question Question
Find tool is very slow
Replies
2
Views
42
alex_345
A
imback2nite
  • Solved
VBA help.
2
Replies
10
Views
803
Peter_SSs
Peter_SSs
N
  • Question Question
ActiveX Checkbox fails after sheetname change
Replies
4
Views
386
bobsan42
bobsan42
N
  • Question Question
Hiding/showing rows between two values
Replies
1
Views
491
Joe4
Joe4
R
  • Solved
VBA: Merging rows after a particular row, based off of matching entries in column
2
Replies
19
Views
968
Georgiboy
Georgiboy

Forum statistics

Threads
1,224,912
Messages
6,181,694
Members
453,062
Latest member
blackyblack

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top