title: Conditionally adding Items to the Excel ListBox control
body: <p>I have Excel data like in the sample shown below and 3 ListBoxes</p>
  
  <p>Example of my spreadsheet:</p>
  
  <pre><code> A          B         C
  1423    21-03-16    John
  2987    03-03-16    Steve
  </code></pre>
  
  <p>My issue: In my <code>ListBox2</code> I would like to only show what is in the A columns only if 14 days have passed the days in column B.</p>
  
  <p>I have this code, but cant get it working</p>
  
  <pre><code>     Dim rngToSearch As Range
      Dim rngToFind As Range
      Dim valToFind As Variant
      Dim arrClearList()
  
      valToFind = TextBox1.Value
     With Worksheets("Data2")
          Set rngToSearch = .Columns("A")
      End With
      Set rngToFind = rngToSearch.Find(What:=valToFind, _
              LookIn:=xlFormulas, _
              LookAt:=xlWhole, _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, _
              MatchCase:=False)
  
      If Not rngToFind Is Nothing Then
  
         Call ClearList(Me.ListBox1)
     ListBox1.AddItem
  
          With ListBox1
              .List(.ListCount - 1, 0) = rngToFind.Value
              .List(.ListCount - 1, 1) = rngToFind.Offset(0, 1).Value
              .List(.ListCount - 1, 2) = rngToFind.Offset(0, 3).Value
              .List(.ListCount - 1, 3) = rngToFind.Offset(0, 4).Value
              .List(.ListCount - 1, 4) = rngToFind.Offset(0, 5).Value
  
          End With
  </code></pre>