Find value in column within last 90 days & populate listbox

[ipbr21054]

Morning,

On my worksheet i wish to look for the value TBA but only for the last 90 days
Any TBA found after 90 days can be ignored.

Here is how it should work,

In column G will be various values BUT i am looking for TBA only.
In column A will be a date.
In column B will be a Customers Name.

I would have a userform with Listbox1 & a command button.
The command button would run the code looking for TBA & Customers found within last 90 days would then appear in my Listbox.

Please can you advise Thanks

 

[ipbr21054]

That gives me Type Mismatch

 

[NoSparks]

at what row in column G does this data start at ?

 

[ipbr21054]

Starts at Row 1 to current Row 2271
Thats why its limited from todays date & back 90 days so it doesnt look up all the way back to when it was started

 

[NoSparks]

can you link to a sheet I can test with?

 

[ipbr21054]

Try this.
POSTAGE TEST FILE

We are looking for DELIVERED NO SIG

Listbox to be populated from today & back 90 days.

Would also like to select value in listbox & customer then selected on worksheet

Thanks

 

[NoSparks]

Your column A are not dates go back to post 3 and use this

            If Date - DateValue(fndRng.Offset(, -6)) < 90 Then

Would also like to select value in listbox & customer then selected on worksheet

try

Private Sub ListBox1_Click()
  Dim fndRng As Range
  Dim customer As String
  
  customer = ListBox1.List(ListBox1.ListIndex)
  
  With Sheets("POSTAGE").Range("B:B")
    Set fndRng = .Find(What:=customer, LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If Not fndRng Is Nothing Then fndRng.Select
  End With
  
  Unload RoyalMailClaim
End Sub

 

[ipbr21054]

Thanks for that.
Not sure what I was thinking when I said column A, maybe had another sheet open.

I will check this out tomorrow.
Thanks for the help & advice & sorry for wasting your time.