ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Check if cell value is found in a seperate range of values (https://www.excelbanter.com/excel-programming/342890-check-if-cell-value-found-seperate-range-values.html)

wilby31[_2_]

Check if cell value is found in a seperate range of values
 

How can I check if a cell's value is found within the values of a range
of values?

For instance:

In the range from say A3:A8 = [3,3,4,5,1,3]
A1 = 3

I want the VBA function to return TRUE.

Something similar to this

Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function


But base it's check on values, not just addresses.

Thanks a million!


--
wilby31
------------------------------------------------------------------------
wilby31's Profile: http://www.excelforum.com/member.php...o&userid=27287
View this thread: http://www.excelforum.com/showthread...hreadid=476415


Bob Phillips[_6_]

Check if cell value is found in a seperate range of values
 
Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
InRange = Application.CountIf(Range2, Range1) 0
End Function

if you must use VBA.

You could just use a worksheet formula of

=COUNTIF(A3:A8,A1)0

--

HTH

RP
(remove nothere from the email address if mailing direct)


"wilby31" wrote in
message ...

How can I check if a cell's value is found within the values of a range
of values?

For instance:

In the range from say A3:A8 = [3,3,4,5,1,3]
A1 = 3

I want the VBA function to return TRUE.

Something similar to this

Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function


But base it's check on values, not just addresses.

Thanks a million!


--
wilby31
------------------------------------------------------------------------
wilby31's Profile:

http://www.excelforum.com/member.php...o&userid=27287
View this thread: http://www.excelforum.com/showthread...hreadid=476415





All times are GMT +1. The time now is 08:05 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com