so i found a code and happily was able to alter it!
still Thank you for trying to solve it.
Private Sub COB_Change_Click()
'declare the variables
Dim findvalue As Range
Dim DataSH As Worksheet
'error handling
On Error GoTo errHandler:
'hold in memory and stop screen flicker
Application.ScreenUpdating = False
Set DataSH = Sheet1
'check for values
If TB_FileNumber.Value = "" Or COB_Status.Value = "" Then
MsgBox "There is not data to edit"
Exit Sub
End If
'clear the listbox
'.RowSource = ""
'find the row to edit
Set findvalue = DataSH.Range("A5:A10000").Find(What:=Me.TB_FileNumber.Text, LookIn:=xlValues, LookAt:=xlWhole)
'update the values
findvalue = TB_FileNumber.Value
findvalue.Offset(0, 1) = TB_Agent.Value
findvalue.Offset(0, 2) = TB_Station.Value
findvalue.Offset(0, 3) = TB_Date.Value
findvalue.Offset(0, 4) = TB_Date_Due.Value
findvalue.Offset(0, 5) = COB_Status.Value
'unprotect the worksheets for the advanced filter
'Unprotect_All
'filter the data
'DataSH.Range("A5:CR10000").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Data !$L$8:$L$9"), CopyToRange:=Range("Data!$N$8:$T$8"), _
Unique:=False
'if no data exists then clear the rowsource
'If DataSH.Range("N9").Value = "" Then
'lstEmployee.RowSource = ""
'Else
'add the filtered data to the rowsource
'lstEmployee.RowSource = DataSH.Range("outdata").Address(external:=True)
'End If
'return to sheet
'Sheet2.Select
'Protect all sheets
'Protect_All
'error block
On Error GoTo 0
Exit Sub
errHandler:
'Protect all sheets
'Protect_All
'show error information in a messagebox
MsgBox "An Error has Occurred " & vbCrLf & _
"The error number is: " & Err.Number & vbCrLf & _
Err.Description & vbCrLf & "Please notify the administrator"
ActiveWorkbook.Sheets("Database").Activate
Unload Me
End Sub