title: If statement for two values for large set of data
body: <p>I struggle with VBA and have spent a few days trying to find a solution to this problem. Essentially, I have two spreadsheets with large sets of data. Column K of "Design Mods" worksheet contains the same types of values as Column C of the "Output" Worksheet. I've been trying to get my script to do the following:
  1. for each cell in column k of "Design Mods", check if there is a matching cell in column c of the "output" spreadsheet
  2. if a match is found, then populate the cell in "Design Mods" to columns over with the information from column b of "Output"
  Because of my lack of experience, I've only been able to setup the script below which only checks and pulls correctly for one cell.
  I need it to check each cell against a range of other cells.
  Any help/guidance would be very much appreciated.
  Thank you very much!</p>
  
  <pre><code>Sub MatchValue_Test()
  'Routine is meant to populate columns "Design Mods" Spreadsheet with affected calculations from the "Output" Spreadsheet
  
  'Variables below refer to Design Mods spreadsheet
   Dim designmod As Worksheet '&lt;-- Design Mods worksheet that we are comparing to the Output Data
   Dim DesignMod_DClrow As Integer '&lt;-- Variable used to count to the last low in the DC Number Column of Design Mods Spreadsheet
   Dim designmoddc As Range '&lt;-- Variable used to identify the range of values being checked in Design Mods is the DC Numbers Column K from K4 to the end of the column
   Dim valuetofind As String '&lt;-- DC Number used as matching criteria between Design Mods spreadsheet and Output Data
  
   'Test Variables for integrating references to from Output worksheet
   Dim testset As Worksheet
   Dim test2_lrow As Integer
   Dim test As Range
   Dim valuetofindw2 As String
  
  
  
   'Variables below pertain the routine itself
   Dim found As Boolean '&lt;-- this condition has to be false to start the routine
  
  'Start of Routine
   found = False
  
  'Definition of Data Ranges in Design Mods spreadsheet
   Set designmod = ActiveWorkbook.Worksheets("Sheet1")
   DesignMod_DClrow = designmod.Range("K4").End(xlDown).Row
   Set designmoddc = designmod.Range("K4:K" &amp; DesignMod_DClrow)
  
   'Test variables for integrating values from Output worksheet
   Set testset = ActiveWorkbook.Worksheets("Sheet2")
   test2_lrow = testset.Range("C2").End(xlDown).Row
   Set test = testset.Range("C2:C" &amp; test2_lrow)
  
  
   'Identify the value being matched against
    valuetofind = designmod.Range("L4").Value '&lt;-- the script wont run if I have this value set to a range, and I need to figure out get this to loop so I  don't need a variable for every cell im checking against
  
   'test variables to figure out if statement
  valuetofindw2 = testset.Range("C2").Value
  valuetofindw3 = testset.Range("B2").Value
  valuetofindw4 = designmod.Range("K4")
  
  'If Statements performing the comparison
  
  
  
  For Each Cell In designmoddc
       If Cell.Value = valuetofindw3 Then
       found = True
       End If
       Next
      If found = True Then
      designmoddc.Cells.Offset(0, 2).Value = testset.Range("B2")
      End If
   End Sub
  
  </code></pre>