On opening of my WorkBook I refresh my PivotTable and that takes a while so while its refreshing. So I want to launch a UserForm that basically have a loop showing progress bar similar than the Windows loading bar (i.e. a set of green vertical green bars moving in a black rectangle).
Here is the code in THisWorkbook:
I have a sub that is called when the user clicks a button on the form.
The sub takes a few seconds to run, so I have created a userform which contains a single label, which simply says "working ... please wait" in large letters.
A code example is as follows:
[Code] ....
Seems simple enough, but what actually happens is that the PleaseWait userform is displayed, but contains nothing (i.e. blank white - the contents is not being rendered). I'm guessing that I need to call something on the userform to force it to render its contents after the modeless call to show it. How can I do that?
Background: I currently have an some VBA code that will kick off a series of calculations on a remote server (7 calcs). I am showing a modeless form, to allow the user to continue to work in Excel while the external calculation is taking place. The code checks every few seconds (using .OnTime) to check the status of the calcs, and as one finishes, it starts the next calc, and updates the form (ie - "Running Calc #3 of 7", etc).
'Do calc
'Finish calc
frmProgress.labMessage.Caption = "Running Calculation: 'Revenue'"
'Do another calc
'Finish another calc
frmProgress.labMessage.Caption = "Running Calculation: 'Labor'"
'etc...
Problem: when I change the label on the form, it gives the form focus. So, if the user is in the middle of doing something, they are suddenly stopped, and have to click back on the spreadsheet to continue.
Questions: Is there a way to update content (label) on a form, without that form getting focus? If not, is there another way to provide updated feedback without disrupting what the user is doing? My fallback is to simply not update the form with progress reports, but since the calcs can take 5min or so, it would be good if they knew things were progressing.
I am using a technique to display a modeless userform to display to the user that the cell data validation has failed (or not) after checking cell data entry (with checks coded as required).
I am using this method for a number of reasons -
- enables more flexibility and more characters over that of in cell data validation error messages
- to reduce repeat of validation data (to reduce file size) as worksheet has large qty of rows with large qty of columns with variation of validation requirements for each column.
But in the event that data is invalid (fails validation), once the modeless userform is displayed, i want the focus to be on the current cell, not the userform, otherwise the user will always have to click the worksheet to to get focus to enable entry to cell of corrected data.
I call a userform (modeless), and then i'm trying to set the focus back on the range that was selected when i showed the userform. you would think i could just define the range and then use rnge.select like this....
set prevrnge = selection
UF.show (vbmodeless)
prevrnge.select
but it doesn't take the focus off the userform....
A userform to move the curser to a column then activate the Excel App and keep the userform visiable.
The problem is when excution the code step by step (F8) works fine, but when excution the code by F5 the cursor moves to the Range("A65536").End(xlUp) and doesnot then move to the required column.
also this line
AppActivate ("Microsoft excel")
does not work , it gives me Invalid proceduers or call argument.
Private Sub ComboBox1_Change()
Range("A65536").End(xlUp).Activate
If ComboBox1.ListIndex = 0 Then Cells(ActiveCell.Row, "I").Activate
If ComboBox1.ListIndex = 1 Then Cells(ActiveCell.Row, "J").Activate
If ComboBox1.ListIndex = 2 Then Cells(ActiveCell.Row, "K").Activate
AppActivate ("Microsoft excel")
End Sub
I am wondering if one can force a Modal UserForm to become Modeless after loading the UserForm.
Load the Userform as Modal => Click on a CommandButton on the Userform => The Userform now becomes Modeless.
I would like to have a progress bar in some of my userforms.
As an example I attach a sample. progress bar.xlsm‎
I have created a Excel userform. Since it has lot of controls, it takes good amount of time to load.
Is there a possibility of displaying a progress bar till the userform is loaded.
Google search has shown me ways to create a progress bar using Excel Forms. However, I am looking for a way to show the progress bar till the main userform is loaded.
The code I'm trying to execute is given below
Public Sub datafill()
Sheets("Bloomberg Data and Formula").Activate
' Creates prompt to input date to be checked
Dim InputAnswer As Date
InputAnswer = InputBox( _
prompt:="Enter NAV date for verification against Bloomberg in the format DD/MM/YYYY", _
Title:="Date Input Screen", _
Default:="DD/MM/YYY")
Range("C1").Value = InputAnswer
' Clear out previous day's data
Range("A6 : Z6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A6").Select
I have some code that runs in conjunction with a userform progressbar....
I launch my progress userform like this from a userform commandbutton:
Load UserForm6
UserForm6.Show
(I suspect the load command may not be needed....)
Then when my progress userform launches:
Private Sub UserForm_Initialize()
Call UpdateTasksAll
End Sub
Then my macro:
UserForm6.Label1.Width = 0
UserForm6.Frame1.Caption = "0%"
DoEvents
If UserForm4.TextBox1.Text = "" Then GoTo 4
OL_TK_Crit = UserForm4.Label24.Caption & " " & UserForm4.Label23.Caption & " " & UserForm4.Label38.Caption & " " & UserForm4.Label3.Caption 'your task subject to be updated
The problem is that while the code is running, my userform refuses to show it's face, and only appears when the macro has finished! I get this quite frequently, and cant fathom the cause
I am using a version of the Progress bar code shown below which I found on a thread here.
Private Sub UserForm_Activate()
Dim dTime As Date
Dim i, t As Integer
For i = 1 To 100 Step 100 / 8
dTime = Now + TimeValue("0:00:01")
Application.Wait TimeValue(dTime)
ProgressBar1.Value = i
Next i
End Sub
I have the code written so the progress bar shows the progress by taking the total number of loops that need to happen divided by the number of times the loop has taken place. During each loop, the macro copies and pastes data and formats it, then loops again after updating the progress bar. The progress bar works great and shows the progress of the macro if I step through the macro. But if I run the macro at around 25% or 30% the Userform with the progress bar stops updating the bar and the progress seems like its stuck at that percent. The macro still runs fine and finishes without any errors. The macro does not turn off the screen updating. I just can't figure it out.
So this is my first attempt at creating a UserForm progress bar. I currently have the status bar doing basically what I am trying to accomplish but I'm trying to broaden my skills (BTW, I've deleted all company sensitive data but the code should still work for you). I got almost all of this code from microsoft's web page on UserForm Progress Bars and then modified it to work with my existing code. When I execute the code (Click the macro button) the UserForm comes up, but the progress bar is not updating like I was expecting.
View 1 Replies View RelatedI have just discovered the exciting world of the additional controls that can be added to userforms. provide me with some sample code to make a progress bar increment and to activate a windows media avi file from a user form. I only need to know the code (I know how to add the controls etc)
View 9 Replies View RelatedI am trying to make a Progress bar with a statment using a Userform with a label saying Please wait. I call the form using UserForm1.Show vbModeless.The form shows and functions as needed but the label with the caption please wait is not visible. how to get the label to show?
View 1 Replies View RelatedI'm trying to create a userform with a progress bar. The progress bar does NOT need to be 'real' and accurate, but simply act as a timer to illustrate to the user that the program is running some quick calcs.. Again, basic progress bar, with about about a 4 second completion time..
(using excel 2010 VB)
I have a macro that calls 3 other procedures during its run. I have the positon set in the UpdateIndicator sub
With ProgressIndicator
.Top = Application.Top + 300
.Left = Application.Left + 400
end with
and the Userform StartUpPosition property set to 0 - Manual (though I did experiment with the other settings as well.
The issue is that when the series of subs are running, the Indicator jumps and shifts (by 10 or so pixels down and right) and sometimes blinks off completely as each new sub is being called and subsequently returns to the initial macro.
It is accurate and does what it's supposed to do, I just find it annoying and that it probably looks a bit unprofessional (and unstable) to the eyes of some coworkers who use the macro as well.
Why the value is showing up as 0. I know it should be 4 but it is returning the value 0 when I run my code clean through. When I step through the code using F8 it shows up as 4 as long as I am on the tab where the worksheet is. Why my code is returning a 0.
VB:
StartRow = 5
Dim CountX As Integer
Dim LastRowX As Range
CountX = 0
[Code] ......
I want to use a msgbox as a progress indicator for a routine in an application. I cant figure out how to do this.
View 5 Replies View RelatedMy macro is called from a command button on a userform. The userform contains 3 command buttons, a label, and an image box with no attached image. When a command button is pressed, the code sets the background colour of the image box to red and changes the label caption to "Processing..". Then screenupdating is set to false, the code runs, screenupdating is set to true, the image turns green and the label says "Ready!".
The problem is that the userform does not refresh to show the changes until the code is finished running, as though the screen does not update the userform before the "screenupdating" is turned off. Can anyone tell me how to ensure that the forms are displayed correctly before the screenupdating is disabled?
I have a macro with the following code at the start:
Unload UserForm2
returnvalue = MsgBox("Are you ready to update your Records? Did you enter all the bowler scores? Did you change the bowler's Status?" & Chr(13) & "If you answered Yes to all questions, then click YES, otherwise, Click NO & make your corrections.", 36)
If returnvalue = 6 Then
UserForm7.Show vbModeless
Application.Run "Records1"
Else
Exit Sub
End If
Userform7 loads but the TextBox with the text 'Please Wait' doesn't show.
how to show the TextBox.
1. I'm looking for a better way to get a UserForm (frmParts) to show right from the start as soon as I open the workbook while hiding the application. I use the following when I initialize the application:
Code:
Application.Visible = False
frmParts.Show
2. Later on, I add some parts to my inventory, but if I don't make the application visible, it doesn't save the data. So, I have to make it visible and then hide it again. Is there a right way to accomplish the save without having to unhide/hide the application? This is the applicable code I used (ComboBoxes & TextBoxes involved):
Code:
'copy the data to the database
Application.Visible = True
Application.ScreenUpdating = False
With ws 'ws=Inventory
[Code] ..........
I have a workbook which when opened connects to an external datasource (excel file) and downloads a table of information. While this is happening I have a userform which shows which has a lable saying (connecting to datasource, please wait....). However, when I open the workbook, the userform shows but the labels do not show, the userform just appears white.
View 4 Replies View RelatedIm consolidating datas from muliple excel files to single data base excel file.Am having macro and it is working fine for me.But when am loading data to data base file the excel files are vibrating.To avoid this issue i want to Set the progress bar which should indicate the progress of the data loading.
View 12 Replies View RelatedI have two workbooks (Book1 and Book2). When Book1 opens, its Workbook Open procedure displays a Userform1 that has two Command Buttons. The first Button closes Book1 (exit the program). The second Button opens Book2. Book2 has a Workbook Open procedure that should close Book1 and display a new Userform2. When the Workbook Open procedure of Book2 closes Book1, the procedure stops there and does not show the UserForm2. How can I get the Workbook Open procedure of Book2 to execute both steps of closing Book1 and showing Userform2? This must be done by clicking the second Button on Userform1.
View 9 Replies View Relatedis it possible to enter data on a spredsheet while a form is opened or must the from be closed first. I thought I was smart to have a form remain open so users could change parameters but at the same time allow them to enter data in uprotected cells.
View 2 Replies View RelatedThe attached spreadsheet is as simple as it gets - a single userform with a combo box that allows 1 of 4 choices. It gets loaded and displayed in the workbook_open() event - or at least it should - but 9/10 times i get the message "Path/File error" and debug crashes out on the userform.show line. The next time I try and open the file (despite not saving it) Excel crashes and closes! Even re-starting Excel does not allow the file to be opened!
If, however, I open the file with macros disabled, and go into the VBE and manually run the workbook_open() all works fine. I'm using Excel 2003 and I've tried it on other installations - sometimes it will work, other times not.
I've tried every combination of userform load, unload, hide & show with similar results.
I have a wordlist (65000 words in Column B*) in a worksheet “w1” and poems (about 21000 rows) in another worksheet “w2” where first verse is always in B and second one in C. The column D of w2 contains of information such poems name, author’s name, book’s name and so on.
I want to search for those verses through a macro which contain words from my wordlist B* w1 and add references to my words that way. It’s about making a dictionary in which each word has a reference to a poem and verses in which it is used.
Column A of w2 has number in it which shows how many times these rows have been already used as reference. Column A of w1 contains of a value “1” or “0” in which “1” means this entry has already been processed or already has a reference and “0” means it has yet to be done.
If my word B* from “w1” exists in verses B or C of “w2” the results should be shown in an userform containing 5 text boxes with 5 results. In each text box a result should be shown “(verse B; verse C); (value of Col.A)” and a checkbox (or a button). That would mean 5 result, 5 textboxes and 5 checkboxes (or 5 buttons). I would like then to choose one of the results by checking the checkbox (or pressing the button) in front of the text box. After I have chosen the result the whole row from w2 should be pasted in following columns of B*. That means the cells from w2 column B,C,D would be pasted to column C,D,E of w1.
The criteria for the search in B and C should be the lowest value in A of “w2”. I mean the w2 rows with lowest A value should be preferred if there are more results. The result showing user form with 5 text boxes and 5 checkboxes(or 5 buttons) which gives me the choice to choose one of the results should also contain a button “search for further results“. For the case none of the results is useful.
As far there are many poems (verses) I would like to prevent using the same verses many times. The more different verses I use as reference for the words in w1 the better it is. Therefore every time a result is picked by me “1” should be added to the value in Column A in w2. And every time search is started the lowest A values should be searched first.
As soon a word has successfully got it’s reference the value in A w1 should be changed from “0” to “1”. And by next search all words with A value “1” should be ignored and only “0” words should be searched for.
Each time a row from w2 is used as reference, the B* word w1 should be added to col. E of w2. If used for many ";" should be the seperator.
I have a spreadsheet set up to automate calculations and control data input for in process quality control checks. The spreadsheet is basically a series of input boxes requesting information from the user. To control the input of part numbers I have some code for a userform which populates listbox within the userform from another closed spreadsheet (opens & closes without updating screen) & enters the selected data from the listbox into a selected cell in the spreadsheet
all the input boxes and calculations are working well, the userform works well, BUT when I include the userform within the code I get the following problem, an error saying that I am trying to change data in a protected cell where data has been entered and then protected by the VB code, even though the code is not trying to change the cell.
I have tried just loading and unloading the userform and everything works well, it only fails when I actually use the userform, and then close it. from this I am fairly sure the problem lies within the form so I have been through the form code line by line and deleted anything that is not vital and the problem persists. Here is the form
Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim Part As String
Part = ActiveSheet.Range("B1")
Msg = "Are you sure you want Part No" & vbNewLine & Part ' Define message.
Style = vbYesNo + vbDefaultButton2 ' Define buttons.
Title = "SELECT PART No." ' Define title.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
Set_Data_1 ' Perform some action.................
I have an application where by the user only sees userforms which then writes the data to the back end worksheets. So the Menu or front useform I have set at vbModeless, which also means that the user can now open up or use an already opened spreadsheet. I believe I am correct in saying you can't do this if the userform is modal. Anyway this is what the user wants, i.e to be able work on multiple spreadsheets, whilst my app is open. The problem is when they click on one of the other open spreadsheets and then click one of the buttons on my application, you get an error.
I believe is because I use code such as
frmMetrics.Show
Where I haven't specified the actual workbook, so excel doesn't know where to go to find the userform. So how do I specify the workbook, without constantly having to change the line, when version numbers changes ?
eg
Application.workbooks("Book1")
For the next revision the file may be called Book1.1
Application.workbooks("Book1.1")