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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 | |
|
|