Splash Screen While Macro Runs?
Sep 24, 2009
I searched for this and found a few examples on splash screens, but if someone could help I would appreciate it.
Basically I have this massive macro that runs, I recorded some of it, and VBA the rest. It does a bunch of things like bringing in different spreadsheets, formatting vlookups blah blah blah... Anyway for a nice touch I was hoping that I could get a splash screen or something that will run while this macro is running in the background. How hard would this be? The macro is button driven...
View 9 Replies
ADVERTISEMENT
Sep 27, 2011
I have a splash screen I want to display while a macro runs. I've created all the necessary code based on information from this site but have a question about where to actually put the code as all the example I've seen are based on workbook open events.
I tried placing my code
UserForm1.Show
with in the macro I waned the splash screen to be displayed during but that doesn't work. Well, it does, but not as I intended. The splash screen pops up for the specified duration as part of the macro stopping the macro, then closes and the rest of the macro finishes running.
Do i need to call the splash screen from a certain point in the macro I wish it to be displayed during? I dont want the macro to stop running while the splash screen is showing.
View 1 Replies
View Related
Nov 22, 2008
I have never created a splash screen and would like to do so now, I am in the VB editor, i have inserted a userform, i would like to insert my company logo on to the userform, how do i do this?
View 9 Replies
View Related
Jun 5, 2014
How to get a Splash to show on WB open without seeing the Excel worksheets briefly flash before the splash loads.
(Note you will still see the Excel loading window prior to the splash appearing but I don't worry about that).
View 3 Replies
View Related
Aug 19, 2006
I cooked up a nice little splash screen using a user form. It seems to be left of center on the screen when it pops up. Is there a way to set the x and y coordinates to 'place' the splash where I want it to go?
View 3 Replies
View Related
Sep 27, 2009
I have a SplashScreen that is activated in the ‘Workbook_Open ‘ Event.
A CheckboxControl on the SplashScreen allows a user to disregard the screen the next time the workbook is opened.
Private Sub Splash_Screen_Activate()
If Splash_Screen.ckbx_StopSplashScreen.Value = True Then
Splash_Screen.Hide
Else
If Splash_Screen.ckbx_StopSplashScreen = False Then
Splash_Screen.Show
End If
End If
End Sub
Unfortunatley my code is not working. I was hoping for some insight into making this work. Mind you, I’m a cut and paste VBA type of person, but I do understand the concepts enough to work with it.
1.What is the proper method for coding this?
2.Which location would this code be placed – the Form itself or a Module?
3.How and where do you store the CheckBox Value to be used the next time the Workbook is opened?
View 9 Replies
View Related
Aug 25, 2007
I have recently finished a program in excel and when my users dbl click the icon on the desktop, excel loads with their splash screen. Is there any way of replacing their screen with one of my own?
View 2 Replies
View Related
Mar 26, 2008
i have a spreadsheet which i have attached, currently users have to filter each column to get the end result
I would instead, like to create a screen where by they answer questions, for example. a drop down box where they choose flow rate, ie. 0-5l/min 6-10 l/min and so on for each option and then they end up with the list of choices which meet their criteria
View 12 Replies
View Related
Feb 3, 2010
I have a workbook with several user forms. When the workbook opens I'd like to show frmSplashScreen for 3 seconds then close and have another form frmMain show. I've tried the following code and it opens frmSplashScreen ok but it does not automatically close the form. If I click the close box then in 3 seconds frmMain will show.
View 3 Replies
View Related
Sep 11, 2009
I have created a splash screen. Is it possible when the excel workbook is opened up that only the splash screen shows? Right now, the workbook opens and there is one sheet that is visible for a certain period of time and then the splash screen comes on. I would like the reverse to happen. First the splash screen and then the one sheet.
View 9 Replies
View Related
Sep 1, 2006
is there anyone who knows a sophisticated way to hide the application
while showing a little splashscreen on startup
y already have this code but it causes a flickering, not very nice
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
frmShow
Application.Visible = True
Application.ScreenUpdating = True
End Sub
is there maybe someway to get into the clickevent off the excel.xls file
View 4 Replies
View Related
Sep 4, 2006
Some time ago (not sure how long ago) I created a splash screen that comes up when I first load a particular workbook. There was only one worksheet in the workbook and at that time the data in the worksheet was not so relevant and hardly ever used. That workbook name is "Employees" and the worksheet name is "EmpData".
Subsequently, the worksheet ("EmpData") in the workbook "Employees" has became relevant to a new workbook named "Payroll" I created. This workbook is used all the time. It had four different active worksheets.
I realized last week that the data in "EmpData" was very relevant to the work in the "Payroll" workbook so I copied "EmpData" worksheet in it's entirety to the "Payroll" workbook as a fifth worksheet using the same name as before, "EmpData". Now each time I open the "payroll" workbook the splash screen shows up and hangs around for several seconds or longer. It has become quite irritating and I want to delete it.
View 3 Replies
View Related
Feb 2, 2014
how to get rid of the blinking cursor in a text box. I made a splash screen, added a text box, increased the font size to maximum, and when I run it there is a maximum sized blinking cursor at the end of the line of text. Just looks bad on the splash screen. Is there a hide cursor command that I can use? Or is there a better way to add text that I (obviously) didn't use?
View 1 Replies
View Related
Oct 6, 2009
I have a workbook that has worksheets that serve as data input pages for the user.
I have control boxes created by the forms toolbar.
I created a splash screen that is to be launched when the file is opened.
Instead, often the last sheet that the user was on when they last saved the file (usually but not always the worksheet called "Main Menu") is seen first.
I understand that not all the sheets can be hidden - that one must be unhidden.
So I created a sheet called "Background" that is a solid color with no gridelines.
Objective:
When the file is opened, I want the "Background" sheet to be seen first and then the splash screen to be initiated.
Now - when the user opens the file, the Main Menu worksheet is seen for a few seconds (or whatever the last sheet was on before it was last saved), then it disappears and the solid background screen is shown with the splash screen. When the splash screen ends, the "Background" sheet disappears.
Here is the code that I have in the workbook
Private Sub Workbook_Open()
Dim wks As Worksheet
On Error Resume Next
For Each wks In ThisWorkbook
If wks.Name "Background" Then
wks.Visible = False
End If
Next wks
End Sub
What has to be changed so that the first sheet that is seen upon opening the file is the "Background"; then the splash screen happens; then it returns to the Main Menu sheet?
View 9 Replies
View Related
Feb 16, 2009
Hi, The purpose of this macro was to control the time this excel file was open because many users modify it. I decided to create a splash screen (userform) to display a message to the user saying "your session time of 15min is up"
The problem is, the first time I open the file everything works fine. But after I close it (just the workbook not excel), It opens itself for some reason and gives me a debug error message. Perhaps the timer is never stopped?
I call "StartTimer10min" on workbook open and "StopTimer" before workbook close.
View 11 Replies
View Related
Nov 20, 2008
My Splash screen opens a few seconds after the workbook has loaded. Is there a way to make the workbook open minimzed until the the splash screen closes then open properly? What I trying to say is that only the splash screen is visible until it closes.
View 5 Replies
View Related
Jun 13, 2006
I am trying to display a splash screen which fades in and then fades out and closes itself leaving the ap showing. I have utilized code that I found wih permission to use but I'm still doing something wrong.
Option Explicit
'// This Userform code has everything you need to make a captionless userform
'// Fade In & Out
'// Transparency
Private Declare Function SetLayeredWindowAttributes _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long
'// Title Bar
Private Declare Function GetWindowRect _
Lib "user32" ( _ ..............................
View 7 Replies
View Related
Dec 15, 2009
I have a long complicated macro that processes a ton of data and gives the output in a new sheet. I then want to create new buttons (or some sort of user clickable triggers) on this new sheet that runs another macro.
I have got the actual adding of buttons in the sheet working, but I can't find a way to automatically assign macros to newly generated buttons during runtime. Is this even possible (or are there any clever tricks I could use to get around this?)
View 3 Replies
View Related
Jun 6, 2012
Essentially, I am working with a database for a school and up until this point, each row matches up to a student with a bunch of information on them. One of these pieces of info is their parent's names. This is a much simplified look at things, but the screenshot below is a basic version of what everything looks like:
Now, the school wants me to split up the parents names from the student's and place them in their own row. I have recorded a macro to do this where you make the active cell the "full name" column for the row you want to expand, and then run the macro. Afterwards, up to two more rows are added, with the parent's names and some data copied. Below is a screenshot of what that looks like: (yellow is the new data generated, and blue is the active cell I marked to run the macro properly)
The issue is that there are thousands of these that need to be done, and I figured there is a way to do this with a macro. The issue is that not every row has parents names to expand out.
In layman's terms, I need a macro that will look at the two columns titled "Father's Name" and "Mother's Name" on each row of the spreadsheet and then, if there is any data in both or either of them, it should set the active cell to the "Full Name" column for that row then run the macro accordingly. After that it should repeat this all the way down, skipping any where neither of the columns have text in them
In the actual spreadsheet, the columns that need to be checked are AW and AX, and the column that needs to be set to the active cell before running the macro is B.
View 5 Replies
View Related
Apr 25, 2007
i need to make a macro that takes workbooks or files and
runs them through another macro. i already have the 2nd macro
done and it is working perfectly i just need to know how to make the one
that finds the other files and runs them all through the macro i already made. My boss said that he will have about 150-200 files to run through this macro.
View 9 Replies
View Related
Nov 28, 2009
I can't seem to find an answer for this, but as an alternative, on Worksheet Activate the code runs and places a 1 in Range("A1") and therefore the next time the macro will not run.
This works fine for me, but just thinking if somebody who doesn't know why the one is in A1 and deletes it this macro will run again on sheet activate.
Private Sub Worksheet_Activate()
Dim LR As Long
Dim rng As Range
If Sheets("Charts").Range("A1").Value = 1 Then Exit Sub
LR = Sheets("POD").Cells(Rows.Count, "B").End(xlUp).Row
With Sheets("Charts")
.Range("I129").FormulaR1C1 = "=ROWS(R1C1:R[-128]C[-8])"
Set rng = .Range("A129").Resize(, 10)
rng.Copy rng.Resize(LR - 4)...............
View 9 Replies
View Related
Feb 5, 2008
Running Windows XP; Excel 2003
I have a fairly simply macro.
It copies certain sheets out of a workbook (for a new workbook)
Unprotect the sheets in the new workbook
Deletes a particular cell on each sheet
Unhides a sheet
Sets all of the new worksheets to normal view
Protects the new sheets
Lets the user save and name the new workbook.
All is working fine Except it will not change the new workbook from Page Break View to Normal view.
The code I'm using = Sheets("name").Activate
Activewindow.View=xlNormal
Here's the strangest part. When I run the macro from a command button, the newly created workbook retains the page break view (as is in the original).
When I run the macro line by line via F8, IT WORKS JUST FINE
View 9 Replies
View Related
Feb 15, 2008
I have created a macro in xl2000 which was working fine - although through corporate upgrades my machine has now been upgraded with xl2003 and the macro runs for a bit and then crashes on the code below, although it only highlights teh 'rnum'
rnum = ActiveCell.Row
Is there a difference between xl2000 & xl2003?
View 9 Replies
View Related
Nov 13, 2008
The code below runs on a spreadsheet that has approx 600 rows which INDEX and MATCH another spreadsheet which has approx 600 rows. I takes about 4 mins to run.
Sub QC()
Range("T1").Select
ActiveCell.FormulaR1C1 = "Compared CCCD"
Range("V4").Select
Columns("T:T").ColumnWidth = 15.29
Range("S1").Select
Selection.Copy
Range("T1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Columns("T:T").Select...................
View 9 Replies
View Related
Mar 11, 2009
I have a macro which reads data from a large number (up to 500) of books in a folder. This extracted information is subject to some fairly heavy analysis which means that the macro runs very slowly as the sheet is constantly calculating.
I would like to add some code - maybe after 'screen updating = false' - that would turn off auto calculation while the macro runs and then restore it once the macro is finished.
View 3 Replies
View Related
Jun 30, 2009
i have a button on my workbook1 that opens another workbook (lets call it workbook2) and automatically runs a macro on opening it. Once opened i have a button on workbook2 to close itself. I then go back to see workbook1. This all works but then when i click on the button to open the workbook2 again it opens but the macro does not run.
View 4 Replies
View Related
Jul 20, 2009
Is it possible to have a macro which effectively runs all the time.
For example, if the user imputs something which is wrong I want the macro to pick it up straight away with a message box.
View 13 Replies
View Related
Dec 17, 2009
I have a macro in my worksheet that runs as a change event on certain comment cells. This macro unprotects the worksheet, expands the merged comment cell that just change, and re-protects the worksheet. The cell expansion works great. When I re-protect the worksheet all of the cells work correctly, except the cell that was just changed. Any other "unlocked" cell in the document stays unlocked after the protection is applied, but the cell that just changed becomes locked. I need this cell to remain unlocked to allow the user to update the comments. Here is my full
View 3 Replies
View Related
Jan 11, 2007
I have a spreadsheet that is made up of single line items with sub-totals at various points going down the sheet (ie the spreadsheet is split into sections)
Each section is about 100 rows long and 40 columns wide, 10 of which are sub-totals, all using the same formula from that i enter in column A.
As i add new sections i have recorded a simple macro that copies the active cell (ie A15 for example). It then pastes into D15, F15, H15, N15, X15 and then returns to A15.
I have linked this up to ctrl X for ease of running.
I have around 500 section totals to "ctrl X", per spreadsheet and 10 spreadsheets to do in total. I have firstly filtered all the line items (rows) out to leave me just the sub-totals to [ctrl x] [arrow down] [ctrl x] [arrow down] [ctrl x] etc etc etc....
Is there anyway to automate this process, i have tried recording another macro of me [ctrl x] [arrow down] about 30 times, but when i run it, it pastes on the hidden rows, not just on what you see on the screen. Is there a bit of code i can enter so it only sees what is visible.??
View 9 Replies
View Related
Sep 11, 2006
I have a peice of code which opens up a number of Workbooks (200+) and updates a series of control tables in each. Given our security etc environment, links and external references etc are not possible. The target files must all be standalone and self-sufficient.
The problem I have is that when I run the procedure in question in the usual way, the procedure simply terminates after the first file is opened. No error messages, no distress - it just stops. I have put debugging calls all around the "Workbook.Open" call, and it simply doesn't make it out of the call. There is no Auto_Open code in the workbooks being opened and (as I indicated above) no external links, references or function calls.
What's weird is that if I step through the procedure in the Command Debugger, everything works fine. Even weider, if I complete step-by-step processing on the first target file then I can press "Play" and the code will complete execution and process all the remaining files without error.
I have rebuilt/recreated/re-ordered the target files and even moved them to a different volume.
If anyone has seen this before, or has any idea what the cause may be, or even just a wild idea, I'd love to hear it.
Code segment attached.
*
'*** Process each file in the list provided
'*
For intCounter = 1 To intWBS_Files
Call Debug_Msg("Opening WBS File")
Application.EnableEvents = False
Set wbkThis_WkBk = Application.Workbooks.Open(strWBS_Files(intCounter), 0, False)
Application.EnableEvents = True
Call Debug_Msg(("Opened WBS File:" & Chr(13) & strWBS_Files(intCounter)))
If (wbkThis_WkBk Is Nothing) Then
Call Write_Error_Record("File Open Failed", strWBS_Files(intCounter))
Else
Code continues.....
View 6 Replies
View Related
