Userform Code
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. |
Userform Code
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. -- Regards, Tom Ogilvy "scrabtree23" wrote in message ... 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. |
Userform Code
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) "scrabtree23" wrote in message ... 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. |
Userform Code
After a little play...I finally got it to working. Thanks.
"Tom Ogilvy" wrote: 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. -- Regards, Tom Ogilvy "scrabtree23" wrote in message ... 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. |
All times are GMT +1. The time now is 04:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com