Looping ranges at the sametime

[christian2016]

Hi Guys,

I have the below code.

How do i loop through both loops at the same time?


Example
B2 & C2
B3 & C3
B4 & C4

At the moment it will loop through one at a time.

Any help is greatly appreciated.

Thanks

Set xRg1 = Sheets("Sheet1").Range("B2:B6")
Set xRg = Sheets("Sheet1").Range("C2:C5")


   For Each xCell1 In xRg1
       For Each xCell In xRg
           If xCell.Value Like "Review Pending" And xCell1.Value Like "*@*" And xEmailAddr1 = "" Then
        xEmailAddr1 = xCell1.Value
        
          Else
            xEmailAddr1 = xEmailAddr1 & ";" & xCell1.Value
             End If
             
             Next xCell
             Next xCell1

 

[JoeMo]

xcell1 is xcell.offset(0,1) so if you loop xcell only then in your If statement replace xcell1 with xcell.offset(0,1)

 

[christian2016]

Didn't know why i didnt think about this.


Thanks JoeMo

 

[Rick Rothstein]

Set xRg1 = Sheets("Sheet1").Range("B2:B[B][COLOR="#FF0000"]6[/COLOR][/B]")
Set xRg = Sheets("Sheet1").Range("C2:C[B][COLOR="#FF0000"]5[/COLOR][/B]")

Your ranges are not the same size?