Excel With Splash Screen....

[ianb]

My Data loads and I have a splash screen. I would then like to replace the splash screen with a User Form Menu once the data has loaded from Access into my Excel Spreasheet.


How can I do this.


At present I simply have a userform menu called when opened and the data loads. once fnished the dashboard is ready to use...

 

[Hui]

Ian


Won't your code be structured something like:

[pre]

Open Splash Screen
Retrieve Data
Close Splash Screen
Open User Form

if You don't want the Splash Screen

You could re-arrange as


Open User Form
Retrieve Data
Activate User Form

[/pre]
These could either be in the User Form Activate method or as a stand alone Subroutine controlling the action

 

[ianb]

Hi Hui,


This is the format I require.


Open Splash Screen

Retrieve Data

Close Splash Screen

Open User Form


I have The user form opening when the data is updating at present and I do not know the programmming structure to make the splash screen appear whilst updating and then close then have the main menu user form opening. can you advise please.


Many thanks for your previous assistance. I am just doing the nice little parts at the end of my dashboard for the manager and company. it is a Huge Statistics DB, With CSV files, VB Programs, The full works, with over 100 charts and 50 pivot tables, etc......


Starting to smile more !!!! lol

 

[Hui]

IanB


Can you post the code you have, so we can see whats going on?

 

[ianb]

This Workbook on opening excel. The Acccess DB loads for about 10 aseconds. Would be nice to have a splash screen (UserFormSplash) whilst loading which I have then one the DB has upload then goto the UserFormStart.Show


Private Sub Workbook_Open()


Application.Run "UserFormStartA"


Sheets("????Select

Range("A2").Select


End Sub


'Module


Sub UserFormStartA()


UserFormStart.Show False


End Sub

 

[ianb]

Got It


Call via a VBScript.


option explicit


Dim oExcel, oStats


Set oExcel = CreateObject("Excel.Application")


oExcel.Visible = True

oExcel.DisplayAlerts = False

oExcel.AskToUpdateLinks = False


Set oStats = oExcel.Workbooks.Open("C:Folder Location naem of file.xls")


oExcel.Run "Start"


Sub Start()


UserFormSplash.Show False


Application.AlertBeforeOverwriting = False

Application.DisplayAlerts = False


' Application.ScreenUpdating = False

' ' turns off screen updating

' Application.DisplayStatusBar = True

' ' makes sure that the statusbar is visible

' ActiveWorkbook.RefreshAll


UserFormSplash.Hide


UserFormStart.Show False


End Sub

 

[ianb]

Another way would be via this workbook. Any one know how to do this.


Thanks.