Looping through 2 ranges

[craigg3]

I have 2 ranges I need to loop through. Both are defined name ranges.

aRange is cell a1:a20
cRange is cell c1:c20
both ranges may increase or decrease but will stay the same rows for both

I need to check to see if there is a value in the cRange that is greater or less than 0 and if aRange = "" then
select the aRange cell and exit the sub. If condition is false continue

I have tried multiple ways and none seem to work so figured I would just post what im trying to do. Thanks.

 

[Coding4Fun]

Sub Macro1()

For Each c In Names("cRange").RefersToRange

If Range(c.Address).Value <> 0 And IsNumeric(Range(c.Address).Value) = True And Range(c.Address).Offset(0, -2).Value = "" Then
Range(c.Address).Select
'Range(c.Address, Range(c.Address).Offset(0, -2)).Select
Exit Sub
End If
Next c

End Sub

 

[craigg3]

Sub Macro1()

For Each c In Names("cRange").RefersToRange

If Range(c.Address).Value <> 0 And IsNumeric(Range(c.Address).Value) = True And Range(c.Address).Offset(0, -2).Value = "" Then
Range(c.Address).Select
'Range(c.Address, Range(c.Address).Offset(0, -2)).Select
Exit Sub
End If
Next c

End Sub

Great, thanks for the help. Seems to be working as needed.