Userform Code

[Guest]

Here is my code:

Private Sub cmbxPeriod_Change()
Sheets("CEU Database").Unprotect Password:="dataworf"
Sheets("Code").Range("P2").Value = usfReset.cmbxPeriod.Value
Application.ScreenUpdating = False
Sheets("CEU Database").Select
Cells.Select
Selection.AutoFilter Field:=7, Criteria1:=Sheets("Code").Range("P2").Value
Application.ScreenUpdating = True
Sheets("CEU Database").Protect Password:="dataworf",
DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

I have used a variation of this code many times in the past without problem.
However, the usfReset.cmbxPeriod.Value is a date. One issue might be that
the cells are already filtered by one criteria.

 

[Tom Ogilvy]

Private Sub cmbxPeriod_Change()
Sheets("CEU Database").Unprotect Password:="dataworf"
Sheets("Code").Range("P2").Value = clng(usfReset.cmbxPeriod.Value)
Sheets("Code").Range("P2").Numberformat = _
Sheets("CEU Database").Range("G2").Numberformat
Application.ScreenUpdating = False
Sheets("CEU Database").Select
Cells.Select
Selection.AutoFilter Field:=7,
Criteria1:=Sheets("Code").Range("P2").Text
Application.ScreenUpdating = True
Sheets("CEU Database").Protect Password:="dataworf",
DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Untested, but might work.

 

[Bob Phillips]

Didn't Dave Peterson solve this for you in your previous post? If not,
explain why it didn't work.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

After a little play...I finally got it to working. Thanks.