Userform Overdue Calculation

[nparsons75]

Really hope someone can assist and hope I can explain this well enough.

I have a userform which will record tasks. I add numerous data to each record and then submit the record into the spreadsheet via the userform.

On the userform I have a field (textbox) that will contain a date (due date of the task).

I have a macro that runs through a command button which looks for all tasks which are overdue (due dates which have been passed, less than TODAY).

On the userform I have a listbox which displays my records. I use an advanced filter to do this.

I need to be able to show in the listbox all records that are overdue.

Im hoping someone can assist, it will be a great help, appreciate any help.

Thanks,

 

[pbornemeier]

Is the code in post 8 on the userform?
Is cboStart on the userform?

If both are true then the error you mentioned in post 8 should not happen because Me.cboStart would be OK

I thought the code was in sheet2

Please load your workbook into Dropbox (or some other sharing site) and let me know where it is. I will see if I can figure out the problem.

 

[Legacy 452653]

Thanks Phil,

What I have done is done a completely different tack. But this one really does work
Private Sub cmdLookup_Click()
On Error GoTo errHandler:
Sheet2.Range("N7") = Me.cboStart.Value
Sheet2.Range("R7") = Me.cboDepartment.Value
Sheet2.Range("Q7") = Me.txtLookup
Sheet2.Range("C6").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheet2.Range("N6:R7"), CopyToRange:=Sheet2.Range("T6:AC6"), Unique:=False
'End With
End Sub

But you gave me more information that I dint know!

But thanks anyhow

Steve

 

[Legacy 452653]

Furthermore Phil,

One last code that I wanted do below. What I wanted do was to have a MsgBox where if you inputted a text into Reg8 instead of a Value "If the employee is being inducted input o"
Then go back to the module and input 0. I have tried numerous Formula If Not IsDate If not Reg8.Text but no evail.

Private Sub Reg8_Change()
'add values to criteria
Me.Reg9.Value = Format(Me.Reg9.Value, "mm/dd/yy")
With Sheet3
.Range("O7").Value = Format(Me.Reg7.Value, "mm/dd/yy")
.Range("P7").Value = Me.Reg8.Value
End With
Me.Reg9.Value = Format(Sheet3.Range("Q7").Value, "dd/mm/yy")
End Sub

Private Sub Reg9_Change()
Me.Reg9 = Format(Me.Reg9, "dd/mm/yy")
End Sub

Hope you can sort this one out

Thanks
Steve