abdul hafeel
New Member
- Joined
- Oct 14, 2006
- Messages
- 9
I have a named ranges
eg
Range1 ="A1:C10" & Range2 = "A1:B1"
I need to find if the value in Range2 occurs in Range1.
I Ran the following code but it doesn't work. Pls help
Dim a, b, k As Integer
k = 0
a = 0
Do Until a = Range2.Columns.Count
b = 0
Do Until b = Range1.Rows.Count
For Each Range2(a+1, b+1) In Range1(a + 1, b + 1)
If p = pRange1(a + 1, b + 1) Then
k = k + 1
End If
Next Range2(a+1, b+1)
b = b + 1
Loop
a = a + 1
Loop
MsgBox k
eg
Range1 ="A1:C10" & Range2 = "A1:B1"
I need to find if the value in Range2 occurs in Range1.
I Ran the following code but it doesn't work. Pls help
Dim a, b, k As Integer
k = 0
a = 0
Do Until a = Range2.Columns.Count
b = 0
Do Until b = Range1.Rows.Count
For Each Range2(a+1, b+1) In Range1(a + 1, b + 1)
If p = pRange1(a + 1, b + 1) Then
k = k + 1
End If
Next Range2(a+1, b+1)
b = b + 1
Loop
a = a + 1
Loop
MsgBox k