Hi
I would like to know how to do the following
I have a spreadsheet where the user can click on a button and it will find todays date on another sheet. using the code below
Sub MyFind()
' Capture value to find from sheet 1
Dim myFindDate As Date
myFindDate = Sheets("Front").Range("iv1")
' Find value on sheet 2
Sheets("Jan").Activate
On Error GoTo err_chk
Cells.Find(What:=myFindDate, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Offset(1, 1).Activate
On Error GoTo 0
But what I would like to know is how i can have each month e.g. Jan, Feb etc to be in different tabs but use the same button on the first page to find "todays" date
For example if todays date was 18/03/2007 i would click on the button and it would search through each months sheet untill it found the correct date.
hope it makes sense.. thanks
I would like to know how to do the following
I have a spreadsheet where the user can click on a button and it will find todays date on another sheet. using the code below
Sub MyFind()
' Capture value to find from sheet 1
Dim myFindDate As Date
myFindDate = Sheets("Front").Range("iv1")
' Find value on sheet 2
Sheets("Jan").Activate
On Error GoTo err_chk
Cells.Find(What:=myFindDate, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Offset(1, 1).Activate
On Error GoTo 0
But what I would like to know is how i can have each month e.g. Jan, Feb etc to be in different tabs but use the same button on the first page to find "todays" date
For example if todays date was 18/03/2007 i would click on the button and it would search through each months sheet untill it found the correct date.
hope it makes sense.. thanks