Open Input Box when Application is Started 1

[DYM03]

What procedure can be used in Excel to automatically open an inputbox or user form? I have tried Workbooks_Open and that is working. When I run my code the message box comes up but I need the message box or form to pop up when the spreadsheet is initially opened.

 

[Chance1234]

Do you mean that the first time the user opens the workbook it comes up , but then when they go into it afterwards it doesnt ?

if so what i would do is have a hidden sheet, with a namedrange of something like Runonce, then in my code i would have a if statement to look at the value in that cell, if the cell was blank then i would display the message, then have code to write a value to that cell , so when the user reopens the sheet, it wont display because of the if statement,

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[Chance1234]

or do you mean when the user opens excel, always if so then you will need to create a add-in

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[DYM03]

I mean each time the user opens the spreadsheet a box will pop up promting of entry. What type of Add-in are you referring to? I am lost on that one.

 

[Chance1234]

Private Sub Workbook_Open()
MsgBox "NUNS"
End Sub


That works i dont know why you are having a problem have you got the code in Thisworkbook ? or have you got it in a module

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[DYM03]

I have it in ThisWorkbook but it does not bring up the message box. I also have macros and when the workbook opens it promts to enable macros. Could that have anything to do with it?

 

[Chance1234]

ah... go to tools, macro sercurity and chnage that to low, see what happens then, what is your exact code on the workbook open ?

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[DYM03]

Right now this is all I am using to test.

Private Sub Workbook_Open()

InputBox ("Testing&quot

End Sub

 

[Chance1234]

and its not working ???

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[DYM03]

The inputbox still is not popping up when I open the workbook. I don't know what is missing. I have it under the object (General). Do I need to change that to something else?

 

[Chance1234]

not sure what you mean by general,

as a walkthrough to set it up from scratch

open up excel goto tools, macro, sercurity and make sure that is low.

then hit Alt + F11 to open up the VBA editor.

double click on ThisWorkbook

copy the below into the window

Private Sub Workbook_Open()

InputBox ("Testing&quot

End Sub

save and exit ,

open and it should pop up

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[Chance1234]

if that doesnt work, e-mail us the file 55ylac@ukonline.co.uk

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[DYM03]

Thanks so much for your help Chance1234. It was driving me crazy. I didn't have the code in ThisWorkbook. It works now!

 

[Chance1234]

dont forget to give me a star

Filmmaker, gentlemen and proffesional drinker

http://public.fotki.com/chance1234/

 

[xlbo]

Chance1234 - would a gentleman troll for stars ???? Surely the written thank you is worth more than a virtual pink star ??

DYM03 - in case you don't know, the standard way to say thanks in TT is to award a star. This also helps those users who search the archives to select those threads that have helpful or useful information. To award a star, simply click on the "Mark this post as a helpful / expert post" link on the appropriate post

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244