Matching value in Range("A5") against a list of items

teachman

Active Member
Joined
Aug 31, 2011
Messages
303
Hello,

I have a script with an IF Range("A" & r) value is also in a lookup list AND Range("I" & r) THEN do something. I know I can do a bunch of ORs but that doesn't seem particularly neat.

IF Range("A" & r) is in Lookup list named Type AND Range("I" & r) IS NULL Then DoSomething.

Any ideas?

Thanks,

George Teachman
 

Eric W

MrExcel MVP
Joined
Aug 18, 2015
Messages
8,811
Where is your lookup list? Is it a range on a spreadsheet? Or is it a VBA array? One of these should work:

Code:
Sub test1()


    r = 10
    
    arr = Array(2, 4, 6, 8)
    If UBound(Filter(arr, Range("A" & r).Value)) >= 0 And Range("I" & r) = "" Then
        x = 1
    End If
    
    If WorksheetFunction.CountIf(Range("P1:P5"), Range("A" & r).Value) > 0 And Range("I" & r) = "" Then
        x = 1
    End If
    
End Sub
 

DanteAmor

Well-known Member
Joined
Dec 3, 2018
Messages
7,978
Office Version
2007
Platform
Windows
The list is a named range, try:

Code:
Sub Match_Value()
  Dim r As Long, f As Range
  For r = 1 To 10
    Set f = Range("Type").Find(Range("A" & r), , xlValues, xlWhole)
    If Not f Is Nothing And Range("I" & r) = "" Then
      'DoSomething
    End If
  Next
End Sub
 

Forum statistics

Threads
1,078,538
Messages
5,341,054
Members
399,414
Latest member
EMW2159

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top