Stop Userform Running Macro
May 14, 2007
I currently have a userform that runs a bunch of code for me. There are a lot of listboxes on the userform that have rowsources of various dynamic named ranges. I'm running into a problem when I have the used click the "Remove Item" button from the userform. Normally it is supposed to go back to the sourcerow and remove all of the cells that contain values that are selected in the listbox.
The code for removing the cells works just fine, however when it deletes a cell, for some reason the code executes a private sub that is in a different sheet. I can't figure out why and it's messing up my macro.
Here's the
FROM USERFORM:
Private Sub cmdAIRemove_Click()
For i = 0 To lbAISummary.ListCount - 1
If lbAISummary.Selected(i) = True Then
For Each cItem In Worksheets("Lists").Range("YourAI")
If lbAISummary.List(i) = cItem.Value Then
cItem.Delete (xlUp) '<- right after this line it jumps to NWSMonth_Change
i = i - 1
End If
Next cItem
End If
Next i
End sub...
View 5 Replies
ADVERTISEMENT
Aug 10, 2009
I have a spreadsheet containing a macro to automatically sum values from week to week and display the max/min and average. This is almost fully working. The problem I have is the macro copies the sum formula down the page and doesn't stop at the last row. It always adds one or two extra rows. The formula should stop at row 77 however this does not happen and therefore the sum keeps going. Which in turn, distorts the max/min figures.
View 2 Replies
View Related
Apr 28, 2006
I wanted to run a macro at 08:00 each day. I tested the macro would auto start and run, and set the test to start at 13:00.
In the Private module of the Workbook I put
Private Sub Workbook_Open()
Application .OnTime TimeValue("08:00:00"), "MyMacro"
End Sub
and in a standard module
Sub TestTimeMacro()
Application.OnTime TimeValue("08:00:00"), "MyMacro"
End Sub
Initially I had the TimeValue set as 13:00:00. The test worked OK so I changed the timevalue to 08:00:00.
The macro now runs at 08:00 and 13:00.
How do I stop the 13:00 event?
View 3 Replies
View Related
Feb 2, 2007
How to stop macro while running SendKeys statement. I am not able to stop the process while running SendKeys statement. this is my Sendkeys VBA
For Each cell In Selection
SendKeys cell.Text, True
Next cell
View 3 Replies
View Related
Apr 25, 2007
I've created a macro that runs for about 3 seconds. While the macro runs, the active worksheet display jumps around because of the various cell references being addressed in the macro.
Is there a way to stop the jumping around? How can a simple "Progress" screen be displayed while the macro is running?
View 4 Replies
View Related
Oct 17, 2007
I'm opening a workbook and then running the macro in the workbook. The problem is I would like to build a "timeout" feature if the macro is running too long (as some of the macro's this will run can take days to complete) but I don't know how to run the macro asynchronously. Also I need to know if i can get it to run asynchronous is there an event that will tell me when the process is finished. The calling application of the macro is written in VB6 and opening excel workbooks to run the macros out of. also the "timeout" feature must be done from the VB6 application it cannot be edited into the the workbooks containing the macro.
View 6 Replies
View Related
Aug 17, 2009
I've got a worksheet_selectionchange macro on a sheet, and another macro that you can run after it. The issue is that when the second macro runs, it also runs the selectionchange macro, and wipes some of the info that the second macro should be copying.
Is there a piece of code that I can use in the second macro to block the selectionchance code from running until it's compelte?
View 6 Replies
View Related
Jun 7, 2013
On a worksheet I have a command button that displays a ConfigureCatalog form.
Code:
Public StopRequested as Boolean
'Worksheet Command Button will display the Configure Catalog Form
Private Sub CmdConfigure_Click()
CatalogConfigForm.Show vbModeless
End Sub
The ConfigureCatalog userform has two Command Buttons: cmdRebuildCatalog, and cmdStop. RebuildDSWCatalog is a macro that reads and analyzes just over 35,000 records and updates other worksheets. As it runs, it repaints the CatalogConfigForm with a progress message every 100 records. It can run for about 3 minutes. I want to provide a "STOP" button that will allow the user to interrupt the RebuildDSWCatalog macro and return control to the user.
Code:
Private Sub cmdRebuildCatalog_Click()
StopRequested = False
Call RebuildDSWCatalog
End Sub
Private Sub cmdStop_Click()
StopRequested = True
End Sub
While processing the 35,000 records, I want the RebuildDSWCatalog macro to check whether StopRequested has been set to TRUE prior to processing the record. If StopRequested = TRUE, I want to drop out of the macro.
Code:
Public Sub RebuildDSWCatalog()
StopRequested = FALSE
For DSWRecord = DSWStart To DSWCount
If StopRequested = True Then
[Code] ....
Problem is that once the RebuildDSWCatalog macro starts running, the STOP command button never seems to get the focus back. All other input is inhibited until the macro ends.
It just ignores that I'm hitting that STOP button. In fact, the button doesn't visibly respond at all until RebuildDSWCatalog finishes processing all 35,000 records.
View 4 Replies
View Related
Feb 17, 2014
I have this VBA set for a workbook_open event:
Public Sub Workbook_Open()
PromotionOrNewHireForm.Show
Sheet1.Select
End Sub
...which works, but I would prefer to have the form hide (or unload, exit, etc.) once the toggle button in that userform is first selected. I've tried a few things but none of them have worked. BTW, the userform has two toggle buttons, which run the following:
Private Sub ToggleButton1_Click()
Worksheets("Sheet1").Range("A4").Value = "Promotion"
End Sub
Private Sub ToggleButton2_Click()
Worksheets("Sheet1").Range("A4").Value = "New Hire"
End Sub
Also, once it closes, I'd like it to move on to the next macro depending on whether "Promotion" or "New Hire" is selected. Not sure if a workbook_change event is the best way to handle that.
View 1 Replies
View Related
Oct 16, 2008
Hi, I am runnning this marquee label function in a userform (Dash). When I close the form, using 'unload frmDash' the function is still running in the background. Can someone give me a tip on how to end it at the same time as the form is closed?
View 14 Replies
View Related
Mar 7, 2014
I have a large macro called SplitData, which takes a load of data and splits it and reformats it each month.
I have 4 Activex Control combo boxes on one sheet that are linked to a range...this range changes each month, so I blank out the range and then repopulate.
My problem is that when I blank out the range, it triggers the Private Sub ComboBox1_Change() and throws some errors because there is no data to select.
So, I was wondering if there is something I can set in my SpltData macro that will not run the ComboBox1_Change sub while the SplitData macro is running?
View 1 Replies
View Related
Jan 18, 2013
I have a vba function linked to conditional formatting that i want to temporarily stop while a sub to insert a line is running as the sub stops when it hits the sheet where the vba function operates. When i disable the vba function (or remove the vba function) the sub works fine, if the vba function is not disabled the sub stops.
View 4 Replies
View Related
Apr 29, 2014
Attached is an example of the program. The purpose of this program is to allow someone with very little knowledge about the information to enter data. The first tab labeled "Instructions" is will have two macros assigned to the buttons at the bottom of the page. The first macro labeled "Move Data" will move data will clear data in the shaded cell on the "Entry Form" sheet and fill those cells in with '----. The second macro labeled "Generate and Save" will save a master copy of the program, save a historical copy of the program by date, and print/save a pdf copy of the "Reports" sheet.
Each one of the historical (the last 8 sheets of the program) sheet receives data from the "Entry Form" and then moves the data by date into the table for archiving purposes.
If you look at the code for the "Entry Form". I have a couple of subs. The first being Worksheet_change. the first section of this code is to force certain cells to be uppercase. This part of the code is working fine. The second part of the code is the Dim MyValues. This part is working fine also, but...
My issue is... When I run the move data macro from the "Instructions" sheet the Dim MyValues reads these as changes to the cells and wants to push the data to the historical sheets.
What I would like is an IF Statement above the Dim MyValues part of this code that stops the Dim MyValue part of the code running if those values are blank, 0, or have '---- entered into them.
Test.xlsm
View 3 Replies
View Related
Sep 23, 2009
My users log on with unique PIN numbers for example 1234. I have a worksheet that has approximately 10 different VBA codes. What I would like is the ability at the start of the code to say if the current users pin is not in a hidden range then exit the code. If not run it. Is this possible?
View 7 Replies
View Related
Jun 22, 2009
I have the following code to add dash mark to TextBox1 value depending on some condtions (mentioned in the code), the code works perfectly, but when we use Backspace Key to clear some charactors it is conflicting with the code running when changing Textbox1 value.
View 11 Replies
View Related
Jul 10, 2007
I have a file that shows a rolling screen and updates information every 30 mins. I want to be able to stop the screensaver from activating while this file is open.
I have found this code on the forum that does this, how do I call this function from another module? ...
View 4 Replies
View Related
Nov 28, 2011
I have a couple of functions running in my workbook, and for no reason that I can see, when one of them runs during a simple macro I use to show/hide some columns, the worksheet vanishes. Is there a way to stop all functions running while I show/hide columns?
View 5 Replies
View Related
May 15, 2007
I am using a macro that automatically updates data obtained through a DDE link at 5 second intervals. My code is based off of the article "Automatically Run Macros at a Set Time or Date" found on the Ozgrid FAQs found here: http://www.ozgrid.com/Excel/run-macro-on-time.htm
However, I have this macro execute when I activate a Form Button, not when the workbook opens. So far, this macro works perfectly, and I have no problems. Although, I'd also like to include a Form button to STOP the macro from automatically running if the user chose to do so. How exactly would I go about making this STOP button?
View 4 Replies
View Related
Dec 13, 2006
my excel sheet runs through a lot of calculations, opens Flowmaster, a simulations program, passes on data, receivs data and so on. Is there any way to have a user input to stop the whole simulation. During the first tries I had a lot of break point in my debugger. But now I want to have a button to hit or better just some keys to hit to stop it without using the ctrl+alt+del which closes everything.
View 4 Replies
View Related
Jun 18, 2006
I've got the following code as part of a userform
Private Sub cmbPlant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If cmbPlant.MatchFound = False Then
cmbPlant.BackColor = &HC0&
If MsgBox("Required!" & vbNewLine & "Please Select Correct Plant Number", vbOKOnly + vbExclamation, "Plant Number") = vbCancel Then Exit Sub
Cancel = True
Else
cmbPlant.BackColor = &H80000005
End If
End Sub
I also have a cancel button
Private Sub cmdCancel_Click()
If MsgBox(" Cancelling Will Clear This Form." & vbNewLine & " No Data Will Be Entered." & vbNewLine & "Are You Sure You Wish To Cancel?", vbYesNo + vbQuestion, "Cancel Data Entry") = vbNo Then Exit Sub
Unload Me
End Sub
If someone clicks the cancel button before using the plant # combo, the form closes, but the cmbplant_exit msgbox pops up too.
View 4 Replies
View Related
Jul 23, 2014
I'm pretty new to VBA and am working on trying to make a userform and I seemed to have gotten stuck.
I have userform with 6 textbox fields and 2 radio buttons. I need all the fields to including the radio buttons to be required. I currently have this set up.
Private Sub OptionSubmit_Click()
Dim nextrow As String
'find the next empty row
nextrow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(nextrow, 1) = CsrName.Text
[Code] ........
The required fields still fill in data in the spreadsheet. I need it to check those fields and not allow the data to be entered into the spreadsheet.
View 1 Replies
View Related
May 28, 2014
My manager wants me to create a userform that will populate values from access database . I have done that and now he wants it to run always for the whole day everyday and the values should get updated automatically in the userform. There should be a timer event set that will run the userform automatically after few seconds.
View 3 Replies
View Related
Jun 9, 2006
I ran into what looks like to be a syntax error.
Application.Run " Name with Spaces!Run_frmMacroList"
does not work BUT.... when i take the same file and "save as" Book1
Application.Run "Book1!Run_frmMacroList"
works perfectly fine.
View 7 Replies
View Related
Jul 21, 2006
I know this may have been answered before but I didn't really understand those answers and my scenario is slightly different. I have a UserForm that I am asking people to enter data into. One part of the UserForm asks for a percentage spread across an age range. For example for the age ranges 16-20, 21-25, 26-30 (etc) whats the percentage of smokers. This will obviously then add up to 100% which I want to put in a ' total' box at the end of the line of input boxes. I want this box to be updated whenever someone enters a percentage into the boxs but I can't seem to work out how to do it. That's basically what I'm asking help for on. Its easy enough when doing it on the spreadsheets themselves with the SUM function but how can I do it on a UserForm. Does it need some complex VB coding?
View 7 Replies
View Related
Mar 12, 2014
is there any way to work with excel workbook while in another excel workbook userform is running
View 1 Replies
View Related
May 11, 2006
I am copying web data into Excel and need a creative way to run a couple formatting macros on the data. I’m looking for the best way to initiate the macros. I cannot use command buttons because they’ll get deleting as a result of the line “DrawingObjects.Delete”.
I’d like to use a Useform with a couple buttons but am not sure how to have it automatically display when needed and hidden when not needed. I also prefer not using toolbars button unless they will only be displayed in that workbook and not any others.
View 9 Replies
View Related
May 30, 2007
Here is the code for my user form.
Private Sub UserForm_Initialize()
TextBoxDate.Value = Now
TextBoxDate = Format(TextBoxDate.Value, "dd mmmm yyyy hh:mm:ss")
End Sub
This is a form to have employees punch in/out. The form is designed to be running all the time. The TextboxDate is disableed so the user can not change it.
I would like to know if it is possible to get the time to be displayed on the form constantly? Right now it only updates when the OK button is pressed on the form.
View 9 Replies
View Related
Sep 10, 2009
I am trying to sum a dynamic range of values, clear the range (ie. clear the numbers on the spreadsheet), then place the sum of all the numbers in the last cell in the user selected range. (essentially adding all values selected, placing final sum in the last row of the range, and leaving no trace of performing the routine)
I want the range to be selected during the userform running (using showmodal = false). I can sum the selection and write the value to a cell, but I can NOT write the cell to the last value in the selection.
View 7 Replies
View Related
Oct 28, 2009
I'm using a UserForm to inform the user that the program is still running. Unfortunately, when I do: UserForm1.Show the program hangs there until I hit the Ok button. How can I make the program run as the box is shown.
View 2 Replies
View Related
Apr 13, 2008
I have to append the cell value with a user input string in to the same cell.
i.e, if the user types "Issue" in the cells ranging C1:C200, I would like to make a mandatory issue description to be entered by the user. So a user form with text box and command button was introduced which should append the cell value with the user input in the text box.
The issue that I have is with the cell selection within the code for the form.
ActiveCell.FormulaR1C1 = "Issue (" + TextBox1.Text + ")"
For example if the user tabs out from cell C3, the output from the userform will be written to D3 ? or if the user hits Enter key to come out, the output will be written to C4 and so on.
How can I make ure the output is going to the same cell?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Application.Intersect(Target, Range("$C$1:$C$200")) = "Issue" Then
Dim MyForm As New UserForm1
MyForm.Show
Else
Exit Sub
End If
End Sub
'Code for the userform is below:
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
' the user input is mandatory
MsgBox "Issue Details is mandatory", vbCritical, "Mandatory Field"
TextBox1.SetFocus
Else
' append the cell value with user input in the text box
'****issue is here in the next line
ActiveCell.FormulaR1C1 = "Issue (" + TextBox1.Text + ")"
Hide
End If
End Sub
View 9 Replies
View Related
