In my code I have three loops however the final two loops I want to be transitioning at the same time, so instead of next i or for it to work properly it should be next i and next z but it seems I can't do that is there a way around that... or a simpler solution that's not hitting me yet? Here is my code:
so essentially it would be start out as for z = blah to blah and i= blah to blah and it would end with next i and z I don't know if that's possible or if theres another way around this. Thanks.
Code:
Sub dateofvisit()
Dim lastrow As Long, rng As Range, revenge As Range
Application.ScreenUpdating = False
Application.Calculation = xlManual
sheetlist = Array("Jackson", "Michael", "Bieber", "Nicole", "Reina", "TimC")
strsearch = Array("Jackson", "Michael", "Bieber", "Nicole", "Reina", "TimC")
Set rng = Range("B5:S2641")
Set revenge = Range("A4:Z4")
For Z = LBound(strsearch) To UBound(strsearch)
For i = LBound(sheetlist) To UBound(sheetlist)
Sheets("Sheet1").Activate
lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
raio = "Revsev"
For x = lastrow To 5 Step -1
If ActiveSheet.Cells(x, 2) = strsearch(Z) _
And ActiveSheet.Cells(x, 11) <= 0.555 Then
Rows(x).Copy Sheets(sheetlist(i)).Cells(Rows.Count, 1).End(xlUp)(2)
End If
Next x
Next i
Next Z
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub