Is there a way for a form (I am using it as a warning dialog) to show for X seconds (10 or 15) and then hide or hide upon user selecting button to hide it?
I have noticed that if the user form is active then an error comes up when a script tries to run.
I have a value of 0:01:20.555 in a cell in the form of hh.mm.ss.111 and I want to get the adjacent cell to display that value in just seconds (ss.11 to be precise).
So say for example I used 0:01:20.555 (1 minute and 20.555 seconds). So the 1 minute is 60 seconds, so overall the time in seconds would be 80.55 (I need to round off to 2 decimal places instead of the previous 3).
Examples:
0:01:20.555 becomes 80.55.
01:00:00.000 becomes 3600.
0:02:01.111 becomes 121.11
How this can be done for a whole set of data
I have been searching for quite a while now and cannot figure this out. Basically I have a label named lblCountdown, and that is where I am stuck. Every Do loop, example code, whatever I try won't work. I want a countdown for 10 seconds in my form. The form should show the countdown.
View 6 Replies View RelatedI have the following code that displays a form at a user defined time and if the user does not press "Stop" then the workbook saves and closes. The user can press stop then the workbook remains open.
Here is what I have where:
Admin_Auto_Shutdown = Yes or No
Admin_Auto_Shutdown_Time = 3:34pm or user defined time (This doesn't seem to work??)
'Auto Shutdown CloseandSave
If UCase(wb.Worksheets("Admin"). Range("Admin_Auto_Shutdown").Value) = "YES" Then
Application .OnTime TimeValue("Admin_Auto_Shutdown_Time"), "AutoShutdown"
End If
Sub AutoShutdown()
Application.OnTime TimeValue("Admin_Auto_Shutdown_Time"), "AutoShutdown"
Auto_Shutdown_Form.Show
End Sub
Now, my question is about a timer that I can show on a form. When the form is displayed I would like to give the user 30 seconds to press stop (and keep the workbook open) or to press proceed and save and close or to not do anything and the workbook would close and save when the timer reaches zero.
Code for user form which is missing most everything...
Private Sub Halt_Click()
'If user whats to continue without closing
Auto_Shutdown_Form.Hide
End Sub
Private Sub Proceed_Click()
'If user whats to save and close
Auto_Shutdown_Form.Hide
How do I add a timer to this code where it will run this at the end of the timer?
Auto_Shutdown_Form.Hide
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.Close
End With
I need a MsgBox to show one time for five seconds, and not repeat.
Here is a sample of where I'm at. But this code repeats.
Public Sub timebox()
MsgBox "Let Me See You Work"
Application.OnTime When:=Now + TimeValue("00:00:05"), Name:="timebox"
End Sub
is there a way to put a time delay on a pop up box - like show a pop up box for like 2 seconds when the file is opened?
View 9 Replies View RelatedI want to change 1 minute 24 seconds and 5 tenths into a seconds number. So basically it would come out as 84.50 seconds.
View 4 Replies View RelatedI'm using a series of user forms for data entry to a workbook, some of them open next stage user form on completion (OK cmd button).
All that is working fine, but I'd like the initial form to close on showing the next one. I've tried adding Unload and Hide commands following the frmInsertEntry.Show (Next stage form), to no avail, but I'd like this user form to close or hide at the end of the sub.
Private Sub cmdContinueType_Click()
ActiveWorkbook.Sheets("Records").Activate 'Select starting cell in record sheet
Range("N3").Select
Do
If IsEmpty(ActiveCell) = False Then ' Search for next empty cell
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
If optDrillType = True Then
frmDrillEntry.Show
Else
frmInsertEntry.Show
End If
End Sub
is there a way in VB to make it fast, and tidy, clear the contents of all unlocked cells on one sheet ?
View 2 Replies View RelatedI have the foollowing equation in a cell:
=NETWORKDAYS(A2,A12)+G12
My answer is 1081:23:42.
Is there a way to have it show the number of days, hours, minutes and seconds? So it will say 45:1:23:42? (45 days, 1 hour, etc...) Or something along these lines?
How can I Convert Decimal Minutes & Seconds To Total Seconds?
Here is the sample
I trying to figure a formula to convert time on a phone call eg. 01:01:21 into total seconds (3661). Phonecalls will never be more than an hour long but the spreadsheet I will be supplied with (havn't got it yet!) will display them in the 00:00:00 format.
View 5 Replies View RelatedIs there an easy way of converting seconds from using a time into hours, minutes, seconds
View 9 Replies View RelatedHow would I go about converting - for example:
0:22 (formated general) to a number = 22
or
1:30 (formated general) to a number = 90
I am trying to convert a number of "hours" "minutes" and "seconds", to give me a result in seconds only, in order that I may then financially cost the amount of time spent on a task. (A time and motion costing exercise)
Example:
1119:48:06
Represents 1119hours:48minutes:36seconds spent on a task.
I can manually convert this to 4031286 seconds, but it just takes too much time !!!(sorry!)
The data is extracted from a database which is unable to split the hours,minutes,seconds into seperate fields, which prevents me from using three cells in excel.
I have a spreadsheet that imports data relating to phone call durations. The information imports as a total number of seconds taken.
What I need to do is to change that number of seconds into hours, minutes and seconds.
Changing the format of the cells doesn't work.
I've tried everything I can think of, and run out of ideas.
example:
23 needs changing to 00:00:23
96 needs changing to 00:01:36
268 to 00:04:28
9374 to 02:35:14
I have an Excel VBA form to enter data into a worksheet. Last column of my worksheet CC contains a formula which calculates some input fields. It is a very long though simple formula.
Is it possible that while I am entering the data in the form, a field in the VBA form itself keeps showing me running result of the inputs made based on the formula in the worksheet column CC? I don't know how to write that long formula in VBA so want to find out if there is a way around it.
If not possible, how about while the data has been entered in the form, there is a button CHECK RESULT. Clicking this button temporarily enters the form data to spreadsheet, populating CC cell and that result shows up as message box while the VBA data form is still open. This result message box could have two buttons, CONFIRM ENTRY or CANCEL. If cancel is clicked then the data entered in the spreadsheet is deleted. If confirm is clicked, then entered data stays.
It's a basic data entry kinda thing, some data is entered, about 10 popup boxes pop up, in sequence of choosing different buttons that assign data to cells.... but I have a 'limbobutton', to keep the vba running, since it runs off of workbook open... and the limbobutton works fine, except after i go through the 'add data' procedure I spoke of above.... after I enter data, and get back to the main menu, then choose the 'limbobutton' for the floating button, so a user can manually edit/review the data-- and the 'limbobutton' just flashes up for a brief second, and the vba just stops, and you're at the excel sheet, like it was meant to end...
I'm wondering if there's any sort of conflict that might be occurring here... I know it sounds like I have an extra 'unload me', but I've checked, and still have yet to find something.... If anyone might have an idea how to fix this, or is there perhaps a better way then vbmodeless... I'm just looking to have a floating button that says 'Return to the main menu', so after manually entering data, or reviewing it, a user can return to the 'main menu'...
I have been trying for the last two weeks to convert a list of seconds into minutes and seconds, but just can not do it?
Below is an example of my raw data, that I need to convert into minutes and seconds:
120000
120000
120000
2880000
480000
[code].....
I have a list of customers and each customer has a commission value tied to it. I have a form and in it I have a cell that has a list of customers that someone can choose from a drop down list. If a certain customer is chosen I need their commission value to show up in another cell. example: How do I create a formula to show if Company A is chosen in cell G4 then the commission is 5% in cell G38 , If Company B is chosen then the commission is 8%.
View 9 Replies View RelatedI need to create a form to update employee details.
The one I created has input boxes for all the details in the form. eg. Name, ID, DOJ, Address, etc. So once you enter all the details and press enter, the details gets updated in the database.
Now, what I want is, my form should first only show input box for EmpID. Once I give the input for EmpID and press enter, the form details should now change to Name. After updating the Name, it should show input box for DOJ.
Is possible show the "real" Excel's Progress Bar on a External Form?
I send some commands to Excel.
Some are slow and Excel's progress bar run.
But, before, i hide (Application.Visible = False) Excel, then i need to show on my form that progress bar.
Or if i can get value from that progressbar should be useful too.
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...
it is possible to add a mouse over event to this Macro so that when a user runs the mouse over the bitmap picture that this macro is assigned to it would show the value in TextBox7 for the record with the specified TextBox1 Value.
For example for the below Macro it would show the Value of TextBox7 for the record that matches "103" in TextBox1
I have searched the Forum as well as a few different VBA books and can not find much on Mouse Over events
Sub crkt_id_103()
Load frmMain
frmMain.TextBox1 = "103"
frmMain.Show
End Sub
I have a TextBox and 2 Commandbuttons. I need the cursor to return to the TextBox when the Userform is loaded without the user selecting the TextBox.
View 3 Replies View RelatedIs it possible to show a table in a user form? For example I have a table that is 4 columns wide and 5 rows deep with lines seperating both. I have tried using a text box and list box to achieve the results I am looking for but can't figure out how to add lines to seperate data between rows and columns.
View 5 Replies View RelatedI attached an excel that I created. But I have one problem with it.
View 4 Replies View Relatedi have this code which askes the user for a job number once the workbook is opened.
Private Sub Workbook_open()
' If sheet was named by original open routine, exit
If ActiveSheet.Name = "Main Roof" Then Exit Sub
' otherwise
Do
Returnvalue = InputBox("Please Enter a New Job Number.", "Information")
' Allow changes by entering q as the Job Number
If Returnvalue = "q" Then Exit Sub
' Delete the ' from the front of the following two lines and
' then when you enter q as the Job Number you will also be
' asked for a password. The default password is toe.
what iam trying to do is get it to open the userform "WorkSelection" after it has completed the above code.
I have set up a simple form in excel, whereby people use drop down menus to select the appropriate information (as all data inputted needs to be entered in exactly the same way to allow sorting, counting etc) so I thought drop downs were best. The trouble is the data is carried through to my excel database (on another worksheet) were it is shown in numeric values dependant on how far down the drop down list the select item appears (ie "Fareham" is third on the list, so shows in the database as "3").
I'd very much like my database to be easier to read and actually show Fareham etc, rather than be populated with lots of numbers. I initially tried using IF function (ie =IF(C3=3,"Fareham") but unfortunately two of my drop down lists are too long for this (with 25 and 33 entries respectively).
I'm missing something in my UserForm initialization code. If I fill the form out once and click 'OK' (run the code to put the form data into a sheet), when I go back into the form all the old info is still there. If I then click 'Cancel' (Unload Me) and reopen the form, the old data is cleared out. What am I missing to make it clear it out the first time?
View 2 Replies View Related
