title: Extract data from Sheet1 into Sheet2 from a list of data
body: <p>I am fairly new to scripting and I find myself stuck on what I feel like is an easy solution. In summary, in excel, I have all my data on Sheet1(import) and I want to pull data from that list into my Sheet2(export) using Column A (on my Sheet2) as my list of data to pull. </p>
  
  <p>I have managed to get the data to pull however, I am not able to get it to pull multiples. Example, I have ABC in my Column A (Sheet2), I click my button to pull data, it pulls the first ABC on Sheet1 that it finds then stops. I need it to pull all the ABC's off sheet1 before moving onto the next cell to search. </p>
  
  <p>This is my first post so I apologize if this is a rough read or I should have added more content. </p>
  
  <p>---------------Code----------------</p>
  
  <pre><code>Private Sub DataImport_Click()
  
  Dim I, Total, fRow As Integer
  Dim Found As Range
  
  'Listed Data to locate
  Total = Sheets(2).Range("A" &amp; Rows.Count).End(xlUp).Row
  
  'Where to locate data to export
  For I = 2 To Total
      answer1 = Worksheets(2).Range("A" &amp; I).Value
      Set Found = Sheets(1).Columns("F").Find(What:=answer1, LookAt:=xlWhole, SearchDirection:=x1Next)
  
  'To Do when there is no data
  If Found Is Nothing Then
  'Leave the cell blank
  
  'To Do when there is data &amp; where/what data to pull
  Else
      fRow = Sheets(1).Columns("F").Find(What:=answer1, LookAt:=xlWhole, SearchDirection:=x1Next).Row
      Worksheets(2).Range("C" &amp; I).Value = Worksheets(1).Range("F" &amp; fRow).Value
      Worksheets(2).Range("D" &amp; I).Value = Worksheets(1).Range("G" &amp; fRow).Value
      Worksheets(2).Range("E" &amp; I).Value = Worksheets(1).Range("H" &amp; fRow).Value
      Worksheets(2).Range("F" &amp; I).Value = Worksheets(1).Range("C" &amp; fRow).Value
      Worksheets(2).Range("G" &amp; I).Value = Worksheets(1).Range("E" &amp; fRow).Value
  
  
  End If
  Next I
  
  
  End Sub
  </code></pre>