VBA And Macros

[Arash_The_A_Level_Student]

Hello, I have a problem, I have created a buttons that I would like when clicked to will automatically close and save the application however I would also like it to every 259 times this is done to pop up a message box saying a customised message can anyone please help me?

[Mudface]

Odd one .

Try naming a cell Counter (on the same sheet as your button) and hiding the column it's in, then paste the following code to the start of your button's code

Range("Counter") = Range("Counter") + 1
If Range("Counter") = 259 Then
MsgBox "This buttonhas been pressed 259 times"
Range("Counter") = 0
End If

' Rest of your code

[Arash_The_A_Level_Student]

Um could you elaborate on this please?

[Mudface]

Sure, but I'll need you to elaborate for me first: -

1. How many worksheets are in your workbook and what are they called?
2. What is the column letter of the last column with data in on your first worksheet?
3. Where is your command button- on the worksheet, or is it on a userform?
4. What is your command button called (it'll be something like commandbutton1 or cmdSomething)?
5. What message do you want displaying after 259 clicks?

Here is the whole thing, it uses A5000 to hold the counter and saves and closes Excel, if you wanted to just close the workbook then change "Quit" to "Close" in the code.

Sub Bye()
Range("A5000").Value = Range("A5000").Value + 1
If Range("A5000").Value = 259 Then
Range("A5000").Value = 0
str1 = "Your message goes here....."
i = MsgBox(str1, vbInformation + vbOKOnly, "Exiting Now")
End If
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
Application.DisplayAlerts = True
End Sub

Add the above then add the Button and attach the macro to the button.

Good Luck, Rick E.

[Sami]

arash shut up lol

[Arash_The_A_Level_Student]

Hi, thanks dude that works great only one little problem It doesn't save! but thanks atleast I'm getting somewhere, I don't want it to save the changes of the template I want it to save as a seperate workbook, sorry for not being precise enough

[Arash_The_A_Level_Student]

sami kiss ***

Arash,

I was an A-level student a few years ago and I thought the point was to LEARN new things and then pass the exam/coursework. The reason you're getting negative responses is because you seem to want people to do you work for you without you attempting to do something for yourself i.e. even attempting a little bit of code and then asking for help when it doesn't work. There are many people here who will happily provide code and you'll earn yourself maybe a C grade - attempt something, ask questions, understand an you'll be an A grade. If you want a decent uni place/job/both then believe me, you need to try stuff yourself.

Regards,
Dan,

Ex A-level student.

[dk]

By the way, the previous post was written by me. I neglected to enter my username/password. I am also ashamed that it's 8:45pm on a Friday night and I'm answering questions on an Excel help site! However, I'm waiting for a phone call from a 23 year old north Londoner who seems unattainable but she'll be mine - if only through my Excel knowledge! By the way, I'm sat here with my 6th (and counting) Stella of the evening,

Laters people,
Dan.