|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#1
May 31st, 2010, 11:43 AM
posted to microsoft.public.excel.misc
|
|||
|
|||
Input box to find date
Hi,
As part of my macro, how can I make an input box (or whatever box) to pop up and ask the user to input a date - e.g. 25/06/2097? On clicking OK, it then goes and locate the date in the spreadsheet. Thanks for your help. Tom 
|
|
#2
May 31st, 2010, 12:10 PM
posted to microsoft.public.excel.misc
|
|||
|
|||
|
Input box to find date
Hi Tom
Jacob Skaria posted a solution to another query in the programming group a short while ago. It should also suit your needs Sub Macro2() Dim varDate As Variant, varFound As Variant varDate = InputBox("Enter Date to be searched") If IsDate(varDate) Then Set varFound = Columns(1).Find(CDate(varDate), _ LookIn:=xlValues, Lookat:=xlWhole) If Not varFound Is Nothing Then varFound.Activate Else MsgBox "Date not found" End If Else MsgBox "Invalid Date" End If End Sub -- Jacob (MVP - Excel) -- Regards Roger Govier Tom wrote: Hi, As part of my macro, how can I make an input box (or whatever box) to pop up and ask the user to input a date - e.g. 25/06/2097? On clicking OK, it then goes and locate the date in the spreadsheet. Thanks for your help. Tom
|
|
#3
May 31st, 2010, 12:34 PM
posted to microsoft.public.excel.misc
|
|||
|
|||
|
Input box to find date
Try the below
Sub Macro2() Dim varDate As Variant, varFound As Variant varDate = InputBox("Enter Date to be searched") If IsDate(varDate) Then Set varFound = Cells.Find(CDate(varDate), _ LookIn:=xlValues, Lookat:=xlWhole) If Not varFound Is Nothing Then varFound.Activate Else MsgBox "Date not found" End If Else MsgBox "Invalid Date" End If End Sub -- Jacob (MVP - Excel) "Tom" wrote: Hi, As part of my macro, how can I make an input box (or whatever box) to pop up and ask the user to input a date - e.g. 25/06/2097? On clicking OK, it then goes and locate the date in the spreadsheet. Thanks for your help. Tom .
|
|
#4
June 1st, 2010, 01:20 AM
posted to microsoft.public.excel.misc
|
|||
|
|||
|
Input box to find date
Thanks Roger for pointing that out.
"Roger Govier" wrote in message ... Hi Tom Jacob Skaria posted a solution to another query in the programming group a short while ago. It should also suit your needs Sub Macro2() Dim varDate As Variant, varFound As Variant varDate = InputBox("Enter Date to be searched") If IsDate(varDate) Then Set varFound = Columns(1).Find(CDate(varDate), _ LookIn:=xlValues, Lookat:=xlWhole) If Not varFound Is Nothing Then varFound.Activate Else MsgBox "Date not found" End If Else MsgBox "Invalid Date" End If End Sub -- Jacob (MVP - Excel) -- Regards Roger Govier Tom wrote: Hi, As part of my macro, how can I make an input box (or whatever box) to pop up and ask the user to input a date - e.g. 25/06/2097? On clicking OK, it then goes and locate the date in the spreadsheet. Thanks for your help. Tom
|
|
#5
June 1st, 2010, 01:24 AM
posted to microsoft.public.excel.misc
|
|||
|
|||
|
Input box to find date
That does exactly what I want. Thanks a lot jacob.
"Jacob Skaria" wrote in message ... Try the below Sub Macro2() Dim varDate As Variant, varFound As Variant varDate = InputBox("Enter Date to be searched") If IsDate(varDate) Then Set varFound = Cells.Find(CDate(varDate), _ LookIn:=xlValues, Lookat:=xlWhole) If Not varFound Is Nothing Then varFound.Activate Else MsgBox "Date not found" End If Else MsgBox "Invalid Date" End If End Sub -- Jacob (MVP - Excel) "Tom" wrote: Hi, As part of my macro, how can I make an input box (or whatever box) to pop up and ask the user to input a date - e.g. 25/06/2097? On clicking OK, it then goes and locate the date in the spreadsheet. Thanks for your help. Tom .
|
| Thread Tools | |
| Display Modes | |
|
|
Linear Mode
