When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

Put this in the standard code module and you can either make a keyboard
shortcut or add a button to the tool bar and assign this code to it.

Sub clsSavWB()
Resp = MsgBox("Do you want to close without _
saving?", vbYes/No + vbQuestion, "Close Workbook"
If Resp = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

"pgarcia" wrote:

When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

Thanks, but I don't want to give my user a yes/no question. Just an OK and
when they click on it, it close the application.

"JLGWhiz" wrote:

Put this in the standard code module and you can either make a keyboard
shortcut or add a button to the tool bar and assign this code to it.

Sub clsSavWB()
Resp = MsgBox("Do you want to close without _
saving?", vbYes/No + vbQuestion, "Close Workbook"
If Resp = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

"pgarcia" wrote:

When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

Change it to OK only.

Sub clsSavWB()
Resp = MsgBox("Click OK to Save", , "Close Workbook"
If Resp = vbOK Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub


"pgarcia" wrote:

Thanks, but I don't want to give my user a yes/no question. Just an OK and
when they click on it, it close the application.

"JLGWhiz" wrote:

Put this in the standard code module and you can either make a keyboard
shortcut or add a button to the tool bar and assign this code to it.

Sub clsSavWB()
Resp = MsgBox("Do you want to close without _
saving?", vbYes/No + vbQuestion, "Close Workbook"
If Resp = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

"pgarcia" wrote:

When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

Thanks again, but for some reson it did not like that code. I get a "Complie
error."

"JLGWhiz" wrote:

Change it to OK only.

Sub clsSavWB()
Resp = MsgBox("Click OK to Save", , "Close Workbook"
If Resp = vbOK Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub


"pgarcia" wrote:

Thanks, but I don't want to give my user a yes/no question. Just an OK and
when they click on it, it close the application.

"JLGWhiz" wrote:

Put this in the standard code module and you can either make a keyboard
shortcut or add a button to the tool bar and assign this code to it.

Sub clsSavWB()
Resp = MsgBox("Do you want to close without _
saving?", vbYes/No + vbQuestion, "Close Workbook"
If Resp = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

"pgarcia" wrote:

When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

Ahhhh, what a rucky move. Where was a ) missing. It works great, thanks.

"JLGWhiz" wrote:

Change it to OK only.

Sub clsSavWB()
Resp = MsgBox("Click OK to Save", , "Close Workbook"
If Resp = vbOK Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub


"pgarcia" wrote:

Thanks, but I don't want to give my user a yes/no question. Just an OK and
when they click on it, it close the application.

"JLGWhiz" wrote:

Put this in the standard code module and you can either make a keyboard
shortcut or add a button to the tool bar and assign this code to it.

Sub clsSavWB()
Resp = MsgBox("Do you want to close without _
saving?", vbYes/No + vbQuestion, "Close Workbook"
If Resp = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

"pgarcia" wrote:

When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

shouldn't the message be "Click OK to Close Workbook without saving"

Sub clsSavWB()
Resp = MsgBox("Click OK to Close Without Saving", , "Close Workbook")
If Resp = vbOK Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub




"pgarcia" wrote:

Ahhhh, what a rucky move. Where was a ) missing. It works great, thanks.

"JLGWhiz" wrote:

Change it to OK only.

Sub clsSavWB()
Resp = MsgBox("Click OK to Save", , "Close Workbook"
If Resp = vbOK Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub


"pgarcia" wrote:

Thanks, but I don't want to give my user a yes/no question. Just an OK and
when they click on it, it close the application.

"JLGWhiz" wrote:

Put this in the standard code module and you can either make a keyboard
shortcut or add a button to the tool bar and assign this code to it.

Sub clsSavWB()
Resp = MsgBox("Do you want to close without _
saving?", vbYes/No + vbQuestion, "Close Workbook"
If Resp = vbYes Then
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

"pgarcia" wrote:

When I'm trying to do is, bring up a "msgbox" but when you click on "OK" it
closes the Excel without saveing the work sheet. I belive this will be done
as a userform, but not sure on the VB codes.

Thanks

Hi All,

I'd be interested to learn what a VBA professional charges per hour in
the U.S. and U.K. nowadays.

Thanx for your replies.

Per what's in a name, or surname for that matter?:
Hi All,

I'd be interested to learn what a VBA professional charges per hour in
the U.S. and U.K. nowadays.

Thanx for your replies.

I wouldn't think there's any meaningful answer without a specific
location.

Major financial centers:Rural settings..... huge diffs - in both
hourly rates and living expenses.

Even within a given area, there are very large differences
depending on organization and employment method.


Independent contractor dealing direct with the company, working
on a project where he's just a miniscule slice of a humongous pie
is one extreme.

Somebody working through an agency that skims 30-40 percent off
the top and being placed in a business enterprise that isn't
doing that well might be another extreme.

In the two above and an urban setting think $100/hour vs
$32.50/hour.
--
PeteCresswell

On Thu, 24 Jan 2008 19:14:54 -0500, "(PeteCresswell)"
wrote:

Per what's in a name, or surname for that matter?:
Hi All,

I'd be interested to learn what a VBA professional charges per hour in
the U.S. and U.K. nowadays.

Thanx for your replies.

I wouldn't think there's any meaningful answer without a specific
location.

Major financial centers:Rural settings..... huge diffs - in both
hourly rates and living expenses.

Even within a given area, there are very large differences
depending on organization and employment method.


Independent contractor dealing direct with the company, working
on a project where he's just a miniscule slice of a humongous pie
is one extreme.

Somebody working through an agency that skims 30-40 percent off
the top and being placed in a business enterprise that isn't
doing that well might be another extreme.

In the two above and an urban setting think $100/hour vs
$32.50/hour.

Thanx, and OK, poin taken. Let me rephrase te question: what is the
going hourly rate for the no-contract, freelancing VBA programming in
the U.K. and U.S.?