![]() |
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 |
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