capture only part of inputBox or of cell contents

[Guest]

Help. In inputBox the user enters a date (not usually the current date) for a
month for which he wants to enter data. This is stored in the variable
"userMonth" and entered into Range("F1"). I then use contents of F1 in a
Find method to select a cell (labled mmm) into which to paste the entered
data.

My code checks inputBox entry for a valid date. If entry is valid (say,
mmm,yy), here's the rub: I need to use only the mmm part in the Find method.
Is it possible to capture only the mmm part of the entry or alternatively to
retrieve only the mmm part from F1? Format (Date,"mmm") doesn't work here
because the date may not be the current date. I know that I could have the
user enter only the mmm in the inputBox but then I can't check that the entry
is a valid date (at least I don't think I can).

 

[Guest]

Give this a whirl...

MsgBox Format(CDate(InputBox("Enter a Date:")), "mmm")

 

[Guest]

Jim,
thanks for the response. I couldn't get that to work. I still end up with an
input in the form of mmm,yy in Cell F1 when I'm looking for just mmm

 

[Guest]

dim dt as Date, s as String

On Error Resume Next
dt = CDate(InputBox("Enter a Date:"))
if err.Number <> 0 then
msgbox "Bad Date"
exit sub
Exit sub
On Error goto 0


s = format(dt,"mmm")
Range("F1").value = "'" & s


or
Dim s as String
s = InputBox("Enter a 3 letter month name abbreviation")
if len(s) <> 3 then
Msgbox "Bad entry"
exit sub
end if
if not isdate(DateValue( s & " 1, 2006")) then
Msgbox "Bad entry"
exit sub
end if
Range("F1").Value = "'" & s

 

[Guest]

Tom,
Works like a charm, and your help taught me some code that I had no clue how
to use. Many thanks,

JCIrish