MACRO: Hiding rows when blank and providing responses for other conditions

[ChrisPadillaAZ]

Name	Status	Email	Status2	Comments	Carrier	Chk1
James Smith	Provisioned	JamesSmith@gmail.com	REGISTERED	Luke	VzW
Christopher Anderson	Disabled	ChristopherAnderson@gmail.com	PENDING		VzW
Ronald Clark	Disabled	RonaldClark@gmail.com	REGISTERED		VzW
Mary Wright	Provisioned	MaryWright@gmail.com	PENDING	Lee	VzW
Lisa Mitchell	Disabled	LisaMitchell@gmail.com	REGISTERED		ATT
Michelle Johnson (VzW-ATT)	Disabled	MichelleJohnson@gmail.com	PENDING	James	ATT
John Thomas	Provisioned	JohnThomas@gmail.com	REGISTERED	John	ATT
Daniel Rodriguez	Disabled	DanielRodriguez@gmail.com	PENDING		ATT
Laura Jackson (VzW-ATT)	Disabled	LauraJackson@hotmail.com	REGISTERED		ATT

Hi guys, I'm sure this is easy for you to wrap your heads around this, it's not the easiest for me. Any help you can provide would be amazing!!!!
Conditions
B = Provisioned and D= REGISTERED and Comments = (BLANK), Hide the row
B = DISABLED and D= TERMINATED and Comments = (BLANK), Hide the row
B = DISABLED and D= PENDING, G="DP Something wrong here"
A=Contains "VzW-ATT", B = DISABLED and D= REGISTERED, G="DR Something wrong here", and highlight that row in Yellow
B = DISABLED and D= Registered, G="DR Something wrong here"
B = Provisioned and D= PENDING, G="PP Something wrong here"
B = Provisioned and D= TERMINATED, G="PT Something wrong here"

 

[Skyybot]

Hi @ChrisPadillaAZ , would you please update your Profile to include your OS(Platform) and Excel Version (Office Version) so that you can be provided with the solution that would be best for you?

 

[mumps]

Try:

Sub ProvideResponses()
    Application.ScreenUpdating = False
    Dim v As Variant, i As Long
    v = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 6).Value
    For i = LBound(v) To UBound(v)
        If v(i, 2) = "Provisioned" And v(i, 4) = "REGISTERED" And v(i, 5) = "" Then
            Rows(i + 1).Hidden = True
        End If
        If v(i, 2) = "Disabled" And v(i, 4) = "TERMINATED" And v(i, 5) = "" Then
            Rows(i + 1).Hidden = True
        End If
        If v(i, 2) = "Disabled" And v(i, 4) = "PENDING" Then
            Range("G" & i + 1) = "DP Something wrong here"
        End If
        If v(i, 1) Like "*VzW-ATT*" And v(i, 2) = "Disabled" And v(i, 4) = "REGISTERED" Then
            Range("G" & i + 1) = "DR Something wrong here"
            Range("A" & i + 1).Resize(, 7).Interior.ColorIndex = 6
        End If
        If v(i, 2) = "Disabled" And v(i, 4) = "REGISTERED" Then
            Range("G" & i + 1) = "DR Something wrong here"
        End If
        If v(i, 2) = "Provisioned" And v(i, 4) = "PENDING" Then
            Range("G" & i + 1) = "PP Something wrong here"
        End If
        If v(i, 2) = "Provisioned" And v(i, 4) = "TERMINATED" Then
            Range("G" & i + 1) = "PT Something wrong here"
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[ChrisPadillaAZ]

Hi @ChrisPadillaAZ , would you please update your Profile to include your OS(Platform) and Excel Version (Office Version) so that you can be provided with the solution that would be best for you?

Where is the "Solved" button? X), maybe it was the little Check box, marking the code as the solution..

 

[ChrisPadillaAZ]

So what does this mean?
Rows(i + 1).Hidden = True

 

[Skyybot]

So what does this mean?
Rows(i + 1).Hidden = True

If i = 1, then Row 2 gets hidden.

 

[ChrisPadillaAZ]

If i = 1, then Row 2 gets hidden.

Thank you!! this is getting exciting for me...