hide row if 2 cell of same row is blank

[annadinesh]

Dear Experts

I want a vba code for

if any cell of (B23:B30) of (E23:E30) is blank the hide that row

and if a cell contains value in (B23:B30) and another cell blank (E23:E30) of same row then it should not hode the row

the hide option should work if both cell of a row is blank

Service Calculator test.xls
	B	C	D	E	F
2	ESTIMATE
3					24.06.2024
4	Parts Description			Labour Description
5	Name		Amount	Name	Amount (incl. Tax)
22		1		Additional Parts & Labour
23		1
24		1
25		1
26		1
27		1
28		1
29
30
31	* The Estimated amount may vary with the final invoice, subject to the job carried out and the cost of parts
32	TOTAL PARTS			TOTAL LABOUR (incl Tax)
33	GRAND TOTAL (Approx.)
Quotation

Cell Formulas
Range	Formula
F3	F3	=TODAY()
D22:D29	D22	=IFERROR(VLOOKUP(B22,PMS!A$3:AE$29,MATCH(D$3,PMS!A$3:AE$3,0),0),"")
D32	D32	=SUM(D6:D29)
F32	F32	=SUM(F6:F30)
E33	E33	=D32+F32

Named Ranges
Name	Refers To	Cells
MODELS	=PMS!$A$3:$AD$3	D22:D29
Parts	=PMS!$A$3:$A$29	D22:D29

Cells with Data Validation
Cell	Allow	Criteria
D3:E3	List	=MODELS
B6:B29	List	=Parts

 

[Joe4]

Try running this code:

Sub MyHideRows()

    Dim r As Long
    
'   Loop through rows 23-30
    For r = 23 To 30
'       See if BOTH columns B and E are blank, and if so, hide row
        If Cells(r, "B") = "" And Cells(r, "E") = "" Then
            Rows(r).EntireRow.Hidden = True
        Else
            Rows(r).EntireRow.Hidden = False
        End If
    Next r
    
End Sub

 

[annadinesh]

Try running this code:

Sub MyHideRows()

    Dim r As Long
   
'   Loop through rows 23-30
    For r = 23 To 30
'       See if BOTH columns B and E are blank, and if so, hide row
        If Cells(r, "B") = "" And Cells(r, "E") = "" Then
            Rows(r).EntireRow.Hidden = True
        Else
            Rows(r).EntireRow.Hidden = False
        End If
    Next r
   
End Sub

THANKS

 

[Joe4]

You are welcome.
Glad I was able to help!