hi,
I made some minor changes to adapt it, I hope this is what you're looking for.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim ws As Worksheet
Dim LastRow, itm, LastCol
Dim I, ProjNo
Dim J, K
If KeyCode = 13 Then
Set ws = Worksheets("Updates")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
ProjNo = UCase(Trim(frmupdate.TextBox1.Value)) 'upper case no spaces
For I = 1 To LastRow
LastCol = ws.Cells(I, ws.Columns.Count).End(xlToLeft).Column 'Get the last non empty column in a each row so we loop through when adding data to the listbox
If UCase(Trim(ws.Cells(I, 1))) = ProjNo Then
frmupdate.lbupdate.Clear 'clear List for each request
itm = 0
J = 3 'first date in row
While J <= LastCol
frmupdate.lbupdate.AddItem
frmupdate.lbupdate.List(itm, 0) = ws.Cells(I, J) 'Date
frmupdate.lbupdate.List(itm, 1) = ws.Cells(I, J + 1) 'Project phase
frmupdate.lbupdate.List(itm, 2) = ws.Cells(I, J + 2) 'Member
frmupdate.lbupdate.List(itm, 3) = ws.Cells(I, J + 3) 'Update
itm = itm + 1
J = J + 4 'move to the next 4 data in the row.
Wend
End If
Next I
End If
End Sub
Good luck