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 RepliesNeed a way of quickly telling whther a user as a workbook open without trying to open the workbook yourself? I have many individual workbooks which I need to regularly update, before I can update them I have to check whether anybody else has them open and then wait until they are out before I can do the update.
This is the command I want to run from a cell:
c:windowssystem32mstsc.exe /v :<servername>
This will allow me to click on a servername in a column and RDC into it.
I'm trying to run a web query from a website that requires a user name and password.
Is it possible to do such a thing when the website has a user name and password?
I wrote a macro that worked for a long time but now a running time error (9) popped out even though the code didn't change at all. If I run the same macro on the same computer but logged on as a different user it runs smoothly. Tried it in other computers and in some of them it will also run in only some of the users but not all.
I'm running Excel 2003 on windows XP, on a pentium 4 PC but found the same in othe computers running Vista.
When I click the debug button the highlighted line is
Workbooks("Detrend").Activate
close to the end of the following code.
I am using VBA to create a weightloss calculator and everything is going fine ecept the Vbyesno boolean that will not allow me to delete the data that i want.
I used a macro to delete the information that i want to delete and i know it works because without the vbyesno, it works fine.
With the vbyes no, both yes and no do nothing when clicked and the yes no box just closes.
The macro code is stored in a private sub called "ClearAll"
My code is:
Private Sub Restart_Click()
Dim Response As Boolean
Response = MsgBox ("Are you sure",YbYesNo)
If Response = VbYes Then
Call ClearAll
End If
End Sub
What am i doing wrong?
I also want to make the no button the default, how do i do this in conjunction with the code above?
I have a button that a user clicks to print the info they entered. I need some code to add a running count to a cell (say, H2) every time the user clicks that button and runs the print macro.
View 2 Replies View RelatedI have a cell (B1) in the second Sheet. It contains two sentences of text, which will be spoken when entering that Sheet (by a click in the previous Sheet).
Code:
Sub ButStart_Click()
Sheets(2).Select
Range("B1").Speak
End Sub
When the Speak command is running no other user interaction can be made. As the text is quite long not all the users want to wait until it is finished. So I need the users to be able to click on the "Next" button which takes them to the next Sheet (and start speaking the text there).
I have a user form that builds a workbook from one template sheet and information in a SQL Server database. The template sheet contains 4 charts that are copied to every new sheet in the workbook, then their data ranges are set through VBA code. For a while the code was working wonderfully. All the necessary sheets were being generated and correctly populated.
Yesterday I added a new module to generate another sheet and pull data from the same SQL Server tables. Now if I run the userform it will work fine once and create all the needed sheets, and set all the charts to the proper ranges. However, if I delete all the created sheets and run the form again, I get:
Runtime Error '-2147417848 (80010108)'
Automation Error
The Object Invoked has disconnected from its clients
The error consistantly occurs for the following line of Selection.Copy Destination:=Worksheets("Master").Range("D1")
After the error the selected range still shows up as surrounded by a selection box, but if I change sheets, the box moves to the new sheet. Also I cannot select any new cells in the work book. In order to get Excel to work again I have to End Task from the Task Manager just to get it to close. When I restart Excel and go back to my work book I get the same results, i.e. The form works great once, then Excel dies.
I have tried qualifing all of the objects that can be qualified. I have tried setting all possible varriables to Nothing before exiting my macros. Nothing I have tried, or found suggested so far in the forum works.
I would like to know if I can set a formula or macro to say that if a value in a dropdown list equals, lets say "Business", then show this list of value in a dropdown list in this cell.
I have attached a worksheet that shows the last and first name of an employee along with their hire date and term date, if termed. What I am looking for is a function that will tell me if a person was active as of 12/31/08 which will read true on the side of their name under active; I also need a function that will tell me if a person worked over 6 months in 2008.
The first person John Doe was hired in 2005 and has a true on the side of his name which meant that he was active as of 12/31/08 but as you can see Jane Doe has true on the side of her hire date and false on the side of her term date and I don't want it to read the first true but the last true of someones name, but Jane Doe qualifies for working over 6 months even though she started in 2007.
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 RelatedI 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.
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 RelatedI have a 1000x1000 cell grid on one of the worksheets in my workbook where each cell contains one of the following four possibilities:
1) Blank
2) A string that is not defined in a lookup table (*lookup table = a named range on a different sheet)
3) A string that exactly matches an item in the lookup table
4) A long string that contains an item in the lookup table (which can be found with a FIND function, for example)
I would like to apply conditional formatting to my 1000x1000 grid, to color each cell according to the lookup table, where the last column has the name of a color that I can match with my conditional formatting setup.
I have solved everything except for No. 4).
2) is taken care of by using "Format only cells that contain" with "No Blanks"
My solution for 3) - using "Use a Formula to Determine Which Cells to Format" - uses
=VLOOKUP(A1,lookup_table,2,FALSE)="fill color name" So, for every different color I want to use, I have a different Formatting Rule in the Conditional Formatting dialog.
But 4) is tricky, because VLOOKUP can only return the result for a specific cell value.
If my cell contains France;Germany;Italy, I'd like the color to be according to what I set for "France" in my lookup table. Or, if my cell contains Germany;France;Italy, I'd like it to be set based on what I decided Germany is in the lookup table (i.e. "blue").
You can notice that one thing that is consistent is that I separate my "sub-strings" that are contained in the lookup table with a semi-colon.
So, one way might be to see if FIND finds a semi-colon, and then grab the string that goes before that character position.
is there any way to work with excel workbook while in another excel workbook userform is running
View 1 Replies View RelatedI 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.
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...
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.
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.
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
I am trying to get running totals in three TextBoxes on a UserForm. The UserForm is to enter one item from a receipt which can have many items. The running total is for the number of items on the receipt, amount of discounts (coupons), amount of sales tax and the grand total. A small sample is attached
View 4 Replies View Relatedhow to run a userform with a macro that opens the visual basic editor and runs the userform1 in it; rather than using userform1.show.
View 9 Replies View RelatedI have a User Form which i want to use in such a way that editing the worksheet directly is not disabled while the userform is running. I would also like to use the right button mouse menu(cut, cpy,paste) while i am using the user form. I am using two Monitors with my PC and i want to work with User Form on one monitor being able to edit worksheet without having to close my User Form.
View 2 Replies View RelatedI 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.
I have created a software on a userform and have copied contents of this userform to worksheet cells. However when I run it for the first time everything works and all contents goes in C4 - C8. However when I run it for the second time the contents in C4 - C8 deletes itself and new data appear i.e. the cells are overwritten.
In cell C3 i have the date and I have managed to put this date in the next empty column everytime the software is run. I do not understand why the dates can go to the next empty column without it being over written but cells C4 - C8 cant!
I have been working on a custom copy routine. I was not able to make it work exactly how I wanted it to but with help from here (Custom Copy From One Workbook To Another) I do have something that will work. The final solution uses a UserForm that I have exported to a *.frm file.
Is there any way I can make the process of importing the UserForm and assigning a macro to run it, easy for the end user?
I need to simulate UserControl Design-time Drag at Runtime-time. Pratically, the user must be able to drag a Usercontrol in a wished position like programmer in VBE IDE.
View 2 Replies View RelatedVBA Userform: Warn user if all checkboxes on a userform are unticked.
View 2 Replies View Relatedi am attach an sample excel file here.
1st sheet "sample",
first, the marco look for column c "F No."
if it search the content start with "F" and follow by 8 digit numberic,
2nd sheet "pop up",
then pop up userform to ask user to key in the textbox there. if it search for as many as "F" with 8 digit numberic, it will show at the userform and ask user to key in the data in the textbox there..
3rd sheet "key in",
user can key in any data they want
4th sheet "output",
after the user click the "OK" button
all the data put in the textbox there can automatic go to the column "a"
can refer by the sheet output..