I have a macro that copies a master sheet and places at the end of the
workbook by clicking a button. Is there away to have it force the user to
put the start date in a cell then continue with the macro once a value is
entered?


Thanks,
CJ

We always prefer that you post your macro here for comments
Sub checkg9()
If Not IsDate(Range("g9")) Then MsgBox "fix date"
End Sub
--
Don Guillett
SalesAid Software

"Chance224" wrote in message
...
I have a macro that copies a master sheet and places at the end of the
workbook by clicking a button. Is there away to have it force the user to
put the start date in a cell then continue with the macro once a value is
entered?


Thanks,
CJ

The following is the Macro used. How do I insert your macro to run with
this? I would like is to force an entry into cell BR15 if it is blank and
then continue to copy the sheet.

Sub Copy_Click()
'
'
Sheets(" Master").Copy After:=Sheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Range("AC3").Value = "Enter Date"
ActiveSheet.Range("K7").Value = "Enter Well Number"
ActiveSheet.Range("AY104").Formula = "=AY101+'" & ActiveSheet.Previous.Name _
& "'!AY104"

MsgBox ("Please Change The DATE & WELL NUMBER. Thank You & Stay Safe!
Remember You Can ONLY Use - For Date Entries")

End Sub

Thanks,
CJ

"Don Guillett" wrote:

We always prefer that you post your macro here for comments
Sub checkg9()
If Not IsDate(Range("g9")) Then MsgBox "fix date"
End Sub
--
Don Guillett
SalesAid Software

"Chance224" wrote in message
...
I have a macro that copies a master sheet and places at the end of the
workbook by clicking a button. Is there away to have it force the user to
put the start date in a cell then continue with the macro once a value is
entered?


Thanks,
CJ

as suggested by Jim, use an input box
Range("AC3").Value = inputbox("Enter Date")
'then
If Not IsDate(Range("ac3")) Then MsgBox "fix date"
'to check it

Don Guillett
SalesAid Software

"Chance224" wrote in message
...
The following is the Macro used. How do I insert your macro to run with
this? I would like is to force an entry into cell BR15 if it is blank and
then continue to copy the sheet.

Sub Copy_Click()
'
'
Sheets(" Master").Copy After:=Sheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Range("AC3").Value = "Enter Date"
ActiveSheet.Range("K7").Value = "Enter Well Number"
ActiveSheet.Range("AY104").Formula = "=AY101+'" &
ActiveSheet.Previous.Name _
& "'!AY104"

MsgBox ("Please Change The DATE & WELL NUMBER. Thank You & Stay Safe!
Remember You Can ONLY Use - For Date Entries")

End Sub

Thanks,
CJ

"Don Guillett" wrote:

We always prefer that you post your macro here for comments
Sub checkg9()
If Not IsDate(Range("g9")) Then MsgBox "fix date"
End Sub
--
Don Guillett
SalesAid Software

"Chance224" wrote in message
...
I have a macro that copies a master sheet and places at the end of the
workbook by clicking a button. Is there away to have it force the
user to
put the start date in a cell then continue with the macro once a value
is
entered?


Thanks,
CJ

How about propmting the user for the start date using an input box. If they
eneter a date then create the sheet otherwise dispaly a message... Something
like this...

Public Sub CopyMaster()
Dim wksMaster As Worksheet
Dim wksCopy As Worksheet
Dim strStartDate As Date

strStartDate = InputBox("Please enter the start date.")

If IsDate(strStartDate) Then

Set wksMaster = Sheets("Master")
wksMaster.Copy After:=Sheets(Sheets.Count)
Set wksCopy = ActiveSheet
wksCopy.Range("A1").Value = CDate(strStartDate)

wksMaster.Select
Set wksCopy = Nothing
Set wksMaster = Nothing

Else
MsgBox "Invalid Start Date. Please try again."
End If

End Sub

"Chance224" wrote:

I have a macro that copies a master sheet and places at the end of the
workbook by clicking a button. Is there away to have it force the user to
put the start date in a cell then continue with the macro once a value is
entered?


Thanks,
CJ