If vbYes Then help...

  • Thread starter Thread starter RPIJG
  • Start date Start date
R

RPIJG

Code
-------------------
Private Sub Workbook_open()
Dim ans3
ans3 = MsgBox("Do you really want to create a new invoice? Once created the Invoice number is final. ", vbYesNo)
If ans = vbYes Then
If ans = vbNo Then
Application.Quit
End If
End If
Dim InvNo&
'Do not assign new inv nbr if the original template has been opened
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then Exit Sub
'If O3 does not contain anything, enter the next inv nbr
If [O3] = "" Then
'Get next inv nbr
InvNo = GetSetting("XLInvoices", "Invoices", "CurrentNo", 1000) + 1
'Enter the inv nbr in A1
[O3] = InvNo
'Save the inv nbr
SaveSetting "XLInvoices", "Invoices", "CurrentNo", InvNo
'Put todays date in O4
[O4] = Date
End If
End Su
 
Private Sub Workbook_open()
Dim ans3
ans3 = MsgBox("Do you really want to create a new invoice? " & _
"Once created the Invoice number is final. ", vbYesNo)
If ans3 = vbYes Then
Dim InvNo&
'Do not assign new inv nbr if the original template has been opened
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then Exit Sub
'If O3 does not contain anything, enter the next inv nbr
If [O3] = "" Then
'Get next inv nbr
InvNo = GetSetting("XLInvoices", "Invoices", "CurrentNo", 1000) + 1
'Enter the inv nbr in A1
[O3] = InvNo
'Save the inv nbr
SaveSetting "XLInvoices", "Invoices", "CurrentNo", InvNo
'Put todays date in O4
[O4] = Date
End If
Else
Application.Quit
End If
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

RPIJG > said:
Code:
Click to expand...
the Invoice number is final. ", vbYesNo)
If ans = vbYes Then
If ans = vbNo Then
Application.Quit
End If
End If
Dim InvNo&
'Do not assign new inv nbr if the original template has been opened
If UCase(Right(ThisWorkbook.Name, 3)) = "XLT" Then Exit Sub
'If O3 does not contain anything, enter the next inv nbr
If [O3] = "" Then
'Get next inv nbr
InvNo = GetSetting("XLInvoices", "Invoices", "CurrentNo", 1000) + 1
'Enter the inv nbr in A1
[O3] = InvNo
'Save the inv nbr
SaveSetting "XLInvoices", "Invoices", "CurrentNo", InvNo
'Put todays date in O4
[O4] = Date
End If
End Sub
--------------------


I just want to make it so that when you click on yes it runs the code
below, and if you click no it exits the excel.
Click to expand...
 
Change to:


Code
-------------------
Private Sub Workbook_open()
Dim ans3
ans3 = MsgBox("Do you really want to create a new invoice? Once created the Invoice number is final. ", vbYesNo)
If ans = vbNo Then Application.Quit

'The rest of your code goes here...

End Su
-------------------
 
Not much good returning the answer to ans3 but testing ans.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

kkknie > said:
Change to:


Code:
Click to expand...
the Invoice number is final. ", vbYesNo)
 
They certainly should seeing as he DIMmed ans3.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Thanks everyone, I figured this out just after I beat my head on a wal
repeatedly for hours. Was a great deal of fun. Thanks again.

Jo
 
Back
Top