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'm launching a main form from a menu I've added. I want to make the form modal. From that form, the user can launch several other forms (that I also want to be modal). If any of the forms are modal, then the Excel sheet that is visible in the background does not refresh. If the form is moved at all it creates a dragging pattern on the screen and hides the spreadsheet. That's not so bad, except when I get to either a second or third level form and start closing them. They're still visible even though the previous level form is now on top. Most of the forms get bigger the deeper you go into the data entry process. So, as you close them and move back up the chain, it gets very confusing. If I simply make the forms modeless, it refreshes fine. I've tried using Application. ScreenUpdating = True and Me.Repaint with no success. I couldn't figure out where to put the Me.Repaint since there isn't a UserForm_Move event.
View 2 Replies View RelatedI've got a userform with a cancel button that has the following
Private Sub cancelButton_Click()
Unload Me
Sheets("Front").Activate
mainForm.Show
End Sub
The mainForm has a button to return to the first userform:
Private Sub figuresButton_Click()
Unload Me
Application. ScreenUpdating = False
Sheets("Data").Activate
For Each numb In Sheets("Data"). Range("C6:F9")
numb.Value = ""
Next numb
Application.ScreenUpdating = True
controlForm.Show
ActiveSheet.Range("C6").Activate
AppActivate Application.Caption
End Sub
This all works fine. I wanted the x button on the first form to perform the same action, so wrote:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
cancelButton_Click
End If
End Sub
This moves to the other form fine; however, on clicking on the button on the mainForm, although the "Data" sheet is activated, the first userform fails to reappear (or in fact flicks briefly in and out of view).
I'm getting an "Error 400 - Form already displayed; can't show modally" error from a UserForm project I've been making. It's attached below. How it *should* work:Use the button "ENTER NEW DATA" to open the UserForm. Submitting the Form should insert the data into a new row below the already filled ones. (the range of Form data starts at row 7)Click on a Non-Empty, Protected cell of Form data, and the UserForm should open, containing the data of that row within its corresponding fields. Submitting the Form should modify only that very row from which it was sourced.When you close the workbook (OzgridMST1.xls), the Form data should be copied into another workbook (on Sheet1) on the same level as OzgridMST1. (I couldn't include it in the . ZIP file since it would have been too massive... Just create a new workbook called FormDBTrial1.xls on the same level.)
Problem(s):When i fill-in and Submit the UserForm for a second time (by either the button or a Non-empty cell), the Error 400 appears and traces back to [UserForm].Show in the Sheet code. I've double-checked my code and can't see what the problem is.When i Submit the Form through the Non-empty cell, it submits into a NEW row, and not the same one! My code used to work, I've tested it many many times. I've triple-checked my code, can't figure.Finally, when I close the Workbook, an Error comes up saying it can't find FormDBTrial.xls, even when it plainly does exist on the same level, same folder, etc.
Everything worked fine until I added the "Copy To Another Workbook" functionality. Been over it and the forum so many times my head is spinning...
Excel pivot tables only seem to have a mean (average) function for the data field, is there anyway I can get the median & modal data values for the data?
View 8 Replies View RelatedI'm working with lists of numbers that should return bi and multi-modal
results when analyzed.
Is there a way to get MODE() to return these results? Or is there another
method to get correct results for the modes of bi- and multi-modal data?
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 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?
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.
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 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 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")
In Excel 2003, I built a small form with only a text box in the form that says "Thinking...Please wait! When I call it from code using:
Sub
' my code has some input boxes before this
userform1.show vbModeless
' long running code after this
End Sub
the form displays, and my code continues, but the text box on the form is not displayed.
I have a userform that has a time field on it and then the userform displays the time as a number.
Ex. I entered 11:00 AM in the Time of Contact field and the form displays it as 0.458333333333333.
I have a userform that time stamps on my userform as soon as i open the form, is there a way that when I submit, that the amount of time that I was on the call to be put in my column on my worksheet as minutes?
View 2 Replies View RelatedI am looking for a macros VBA where a user insert or update a data the date and time should be insert in column I and save the workbook.
Note: If the column I already have the date and time inserted before then it should give message record already have date and time.
I am using office 2010.
I'm trying to do: Let's say I have a simple userform with labels as follows:
(Label1) John's birthday: (Label2) 12.10.1974
(Label3) Mary's birthday: (Label4) 15.03.1978
(Button1) Change Birthdays
Let's say want to change the birthdays I see, so I press the button and enter the new values through another userform with inputboxes.
How do I make that change permanent, so that next time I start the macro in the labels 2 and 4 I have the last entered values for the birthdays???
I have a protected worksheet. Users wish to be able to track changes in the input cells. The suggested approach for this is to temporarily disable sheet protection and allow them to change the font color, then protect afterwards. What I would like to do is:
i) check whether they are in an input cell
ii) if so, then prompt the user with the 'Font Color' dialog box
iii) apply the font color selected to the input cell
I'm struggling to find the dialog box I need. I can launch the one to change the interior color, no problem (Application.Dialogs(xlDialogPatterns).Show). But that's no use to me, I just want a color palette that specifically relates to the Font Color
I am attempting to pick up a date with time entry on a worksheet and place it into a TextBox on a UserForm. Format on the sheet is mm/dd/yyyy h:mm AM/PM. The UserForm is placing the value as mm/dd/yyyy 12:00 AM. here is the
Private Sub UserForm_Initialize()
If Not Range("dDate").Value = "" Then
TextBox2.Value = Range("dDate").Value
TextBox2.Text = Format(DateValue(TextBox2.Text), "mm/dd/yy h:mm AM/PM")
Else
TextBox2.Value = ""
TextBox2.SetFocus
End If
End Sub
"dDate" is the named range where the date is sitting. The format is also set on the TextBox2 exit event. Can anyone see why only the date portion is being transfered with the default 12:00 AM for no time component of the value?
or it's text box/ labels depending upon learning of how many records the application is working with?
I remember some body here has said that you could either
1 - create many labels and text box and then once run the application hides the number of the ones not use or
2 - you could once run the application have visual basic create label and text of the right number associate with the number of records working with.
I have looked at both these option and have found nothing. So is this possible and show some examples if you have them.
I am trying to put together a userform based time card calculator. User inputs the time in the time out and how long of a lunch. Then the program will display total hours worked for the day. Ive attached what I have so far. The only thing that is not very clear is that I have one hidden textbox for the lunch. It is there only for calculating and the visible one is going to inc by :15 min.
View 9 Replies View RelatedI have a userform that has a text box. If user puts a number in it and click on proceed the userform must expand and display that many comboboxes. for e.g. if user inputs 8 and then click on proceed then there should be 8 comboboxes on the form. Is it possible to do?
View 4 Replies View RelatedI need to compute the total time in a userform.
I have a userform where:
1. User enters a start and end time Start1, End1 (23:00, 01:00)
2. The time difference is calculated and displayed in Total1 (2:00)
3. User enters Start2, End2 (22:00, 22:50)
4. Time difference calculated - display in Total2 (00:50)
5. Grand total of Total1, Total2 is displayed in GrandTotal (2:50)
The user will input the times as 0000 but I need to convert the entry into a time format. (User enters 1235 - I need it to covert to 12:35)
If I have 3 text boxes textbox1, textbox2 and textbox3
I want ot be able to enter a time in textbox1 and then a time in textbox2 and textbox3 would give the difference. i.e. 09:00 17:00 then textbox 3 would calculate 08:00
Then all 3 times would automaically be entered in Sheet1 A1,B1 and C1
I am trying to transfer data from a worksheet to a user form, so that the end users can edit the data on the user form, save it, and the revised data is sent back to the worksheet. since the worksheet data is dynamic, i am trying to dynamically add controls in the user form. but the form displays only one data.
Set sdel = Sheets("Deliverables")
Set rStartCell = sdel.Range("A65536").End(xlUp).Offset(0, 0)
counter = Mid(rStartCell.Address, 4)
dummy = 0
cnt = 1
'copy data from sheet to the user form
With sdel
'checking if deliverables sheet has any data
' If .Range("A3") <> " " Then Exit Sub
' MyTextBox.Caption = .Range("A3").Value
For r = 3 To counter
If .Cells(r, 1) <> "" Then
Set MyTextBox = Controls.Add("Forms.Label.1", "lbl" & cnt, Visible)
MyTextBox.Top = topadd + 30
MyTextBox.Left = 20
MyTextBox.Width = 150
MyTextBox = .Range("A" & r).Value
cnt = cnt + 1
Else
dummy = dummy + 1
End If
Next r
End With
I have a hidden worksheet (in my add-in) where I store various configuration options for my processing. Among these are some cell formats that I apply to a target worksheet for the user to reformat their sheet.
I want to give the user the option to change some of these formats (font name, size, color, interior color). Is there a way to use a userform textbox to let the user format the text and fill options, or how would you recommend I do this?
I want to be able to store these options in my hidden config sheet so they can be applied every time, but do not want to unprotect the user worksheet for them to make the changes there.
Below is code i wrote to change a password. password value is hidden in cell iv4 in different sheets. My userform contains 3 textboxes and button to run macro. As long as old password matches cell value AND new password is entered twice correctly then it will change value in cell iv4.
View 4 Replies View RelatedI've got a userform for entering data in a workbook with sheets for each month. ie: Jan'06 , Feb'06, etc. I've added a combobox that looks at my list of these sheets and when a certain month is chosen I would like that months sheet to come up behind the userform, so that the data is entered there when the form is completed.
The other option is to not change the sheet focus but to direct the data to the appropriate sheet based on the combo box. (No matter what sheet is currently selected)
On a related note, I have a text box showing the last date entered and I would like to make shure that it is updated based on the sheet selected in the combobox.
I present a form (a calendar) twice in my routine to the user but I want to change the Caption of the Label on each pass?
e.g.
The first time it's displayed: 'Please select a start date' (calendar closes & goes off and does stuff)
... and on the 2nd display: 'Please select an end date'.