add value to listbox from the date and name match each time

[hsolanki]

Hi i have userform of which there is two textboxes of you enter the two between dates and combobox to select name from column H and user finds the matched date in Column against name in column H however it wont add any data to listbox to show all the data matched with the date between two dates searched with name. it is just loops and then ends the macro, can someone help me please

 LastRow = s1.range("A" & Rows.Count).End(xlUp).Row
    For Each sh In s1.range("A5:A" & LastRow)
    
    
    If CLng(CDate(sh.Value)) >= CLng(CDate(tarih1)) And _
    CLng(CDate(sh.Value)) <= CLng(CDate(tarih2)) And _
    CStr(sh.Offset(0, 0).Value) = CStr(ComboBox1.Text) Then
    
ListBox1.AddItem

 

[Akuini]

Untested, I think this line:

ListBox1.AddItem

should be

ListBox1.AddItem sh

 

[hsolanki]

Hi Akuini Thank you for your reply however your suggestion still hasn't work. is there any alternative way of doing also can listbox be added from multi sheets using the above search between 2 dates and name?