VBA macro for multiple values

[GeorgesT]

Hi,

Im struggling with this code:

On Error Resume Next</SPAN></SPAN>
 
Dim PSL As Long</SPAN></SPAN>
Dim i As Long</SPAN></SPAN>
Dim y As Variant</SPAN></SPAN>
 
PSL = Range("T" & Rows.Count).End(xlUp).Row</SPAN></SPAN>
For Each y In Range(PSL)</SPAN></SPAN>
 
 
    If Sheets("ProjectRegister").Cells("T" & i).SpecialCells(xlCellTypeConstants).Value = "Completed" _</SPAN></SPAN>
        And Sheets("ProjectRegister").Cells("Z" & i).SpecialCells(xlCellTypeConstants).Value = "Yes" _</SPAN></SPAN>
        Then Sheets("ProjectRegister").Rows(i).Hidden = True</SPAN></SPAN>
   
   
Next y</SPAN>

The code hides everything from the last found value and does not care what the value is.

Can someone help me please?

 

[Jubjab]

* It looks like variable "i" is not defined.
* It looks like it is evaluating only one cell even though you have a loop

 

[GeorgesT]

I solved it

                ' The Double is Hide function
Dim i As Long
Dim j As Variant

                'Always needed this line for a For Next loop
On Error Resume Next
                'Range for the itteration
For i = 0 To 2000
                'First Case, cell value is Completed
Select Case Worksheets("ProjectRegister").Cells(i, 20).Text
Case Is = "Completed"
                'When so, it moves to the second case
j = Worksheets("ProjectRegister").Cells(i, 26)
    Select Case j
    Case Is = "Yes"
                'If it is Yes, it hides
    Rows(i).EntireRow.Hidden = True
    End Select
End Select

How to make the range dependend on column B end(xlup)?