Search multiple columns for with multiple input for search and return all results

A couple of items to mention:

1. for the following code to work, you will need to change the value in L1 from 15 to .15
2. I scoured your data and could not find the expected results that you show in H18 and accross
3. While my code does exactly what you asked, it returns no results as I could not find any of the expected results in the highlighted section of your sheet.

I have the data posted to Sheet1 in your workbook. You may wish to change the criteria in H1 and I1 and be assured you have expected results to match up.

Option Explicit

Sub sam()
    Dim w1 As Worksheet, w2 As Worksheet
    Set w1 = Sheets("Previous Designs")
    Set w2 = Sheets("Sheet1")
    Dim lr1 As Long
    lr1 = w1.Range("A" & Rows.Count).End(xlUp).Row
    Dim i As Long
    Dim lr2 As Long
Application.ScreenUpdating = False
    w1.Range("A1:F1").Copy w2.Range("A1")
    
    For i = 2 To lr1
    lr2 = w2.Range("A" & Rows.Count).End(xlUp).Row
    If w1.Range("A" & i) = w1.Range("I1").Value Then
        If w1.Range("B" & i) = w1.Range("H1").Value Then
        w1.Range("A" & i & ":F" & i).Copy
        w2.Range("A" & lr2 + 1).PasteSpecial xlPasteAll, , , False
        End If
    End If
    Next i
Application.CutCopyMode = False
    
    lr2 = w2.Range("A" & Rows.Count).End(xlUp).Row
    Dim compare As Double
    compare = w1.Range("K1").Value
    Dim tol As Double
    tol = w1.Range("L1").Value
    Dim maxtol As Double
    maxtol = compare + (compare * tol)
    Dim mintol As Double
    mintol = compare - (compare * tol)
    
    For i = lr2 To 2 Step -1
    If w2.Range("C" & i) < mintol Then
        w2.Range("A" & i).EntireRow.Delete
        ElseIf w2.Range("C" & i) > maxtol Then
            w2.Range("A" & i).EntireRow.Delete
        
    End If
    Next i
      

Application.ScreenUpdating = True
MsgBox "complete"
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

I don't know how you would do it with formulas. Maybe someone else in the forum could offer up a solution. As to changing the tolerances, yes, but you would need to be very specific on how you wish that to happen.

okay I'll ask around, I do have another question which you can probably answer since you are great with macros.
I have written a macro:

Sub Solv_Run()

 SolverReset
    SolverOk SetCell:="$P$80", MaxMinVal:=2, ValueOf:=0, ByChange:="$O$77", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$O$77", Relation:=4, FormulaText:="integer"
    SolverOk SetCell:="$P$80", MaxMinVal:=2, ValueOf:=0, ByChange:="$O$77", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$P$80", MaxMinVal:=2, ValueOf:=0, ByChange:="$O$77", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverSolve Userfinish:=True
End Sub

and code 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("F77:N77")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        Call Solv_Run
        MsgBox "Cell " & Target.Address & " has changed."
       
    End If
End Sub

When I manually change something in F77 to N77 it works great, however, all of these values are called from another sheet. When I change it on the other sheet, even though it shows up as changed... the macro does not run. How can I fix this?

Thanks in advance!!!

I believe that worksheet change events do not fire if there is a recalculation, the change is the result of a formula update, etc. It requires an actual input to the target cells.

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)