title: Finding Values in an array with duplicates values
body: <p>I have an array of customer names.  This array is full of duplicates, and needs to be since other data in the order row may vary.  There are no unique identifiers for this data and I need to compare the data from one order against all the rows who have that customer in the array.</p>
  
  <p>I'm having trouble getting the for loop to search all the rows that have a customer match.</p>
  
  <p>Any help would be appreciated!</p>
  
  <pre><code>Dim prodlog As String
  Dim orddate As Variant
  Dim cus As String
  Dim owner As String
  Dim orddate2 As Variant
  Dim owner2 As String
  Dim LogCusts As Variant
  LogCusts = Application.Transpose(Range("F3", Range("F" &amp; Rows.count).End(xlUp)))
  Dim loglen As Integer
  loglen = UBound(LogCusts) - LBound(LogCusts)
  Dim cust2 As Variant
  For Each cust2 In LogCusts
      Dim custrow As Integer
      custrow = Application.Match(cust2, LogCusts, False) + 1
      prodlog = Range(Cells(custrow, 5), Cells(custrow, 5)).Value
      orddate = Range(Cells(custrow, 2), Cells(custrow, 2)).Value
      cus = Range(Cells(custrow, 6), Cells(custrow, 6)).Value
      owner = Range(Cells(custrow, 7), Cells(custrow, 7)).Value
  
      databook.Activate
      logjam.Select
      orddate2 = Range(Cells(custrow + 1, 5), Cells(custrow + 1, 5)).Value
      owner2 = Range(Cells(custrow + 1, 7), Cells(custrow + 1, 7)).Value
  
      If IsEmpty(orddate) Then
          Exit For
      End If
  
      If IsEmpty(prodlog) Then
          trackbook.Activate
          masterlog.Select
          Range(Cells(custrow, 2), Cells(custrow, 17)).Clear
      Else: While cus = cust2
          If orddate = orddate2 And owner = owner2 Then
              Range(Cells(custrow, 8), Cells(custrow, 8)).Value = prodlog
          End If
      Wend
  End If
  Next cust2
  </code></pre>