Search a sheet (sheet with a date as its sheet name) with date picker

[Raghu Kanth]

Hi,
Im trying to search a sheet (sheet with a date as its sheet name) with date picker.
I have N number of sheets in a workbook and inserted a date picker in first sheet.
Now, can i search a sheet with date picker?
Kindly help me.

 

[p45cal]

Depends of the format of the date in the sheet names. I've assumed like:
29Feb2016
Put the following code in the code module of the sheet with the datepicker in:

Private Sub DTPicker21_Change()
yy = Format(DTPicker21.Value, "ddmmmyyyy")
If SheetExists(yy) Then Sheets(yy).Activate
End Sub

Function SheetExists(shname)
Dim x As Worksheet
On Error Resume Next
Set x = Sheets(shname)
SheetExists = Not x Is Nothing
End Function

Also check the name of the DatePicker s right, mine was called DTPicker21.

 

[Raghu Kanth]

Depends of the format of the date in the sheet names. I've assumed like:
29Feb2016
Put the following code in the code module of the sheet with the datepicker in:

Private Sub DTPicker21_Change()
yy = Format(DTPicker21.Value, "ddmmmyyyy")
If SheetExists(yy) Then Sheets(yy).Activate
End Sub

Function SheetExists(shname)
Dim x As Worksheet
On Error Resume Next
Set x = Sheets(shname)
SheetExists = Not x Is Nothing
End Function

Also check the name of the DatePicker s right, mine was called DTPicker21.

Thank you very much