I have a rather large userform with numerous textboxes and comboboxes. Data entered into the text and combo boxes is written to the next empty row of a sheet. As the data to be entered into the next row may not "all" vary from the last I would like to have the data I have last selected or entered remain in the textbox or comboboxes for the next. I attach an example for a better explaination.
View 6 RepliesIn Excel 2000 there seems to be a problem with setting the focus in a UserForm TextBox if the SetFocus method is applied in the same submodule as the UserForm.Show method. Microsoft's circumvention for this is to put the SetFocus command in the form's Activate event submodule.
This seems to work OK except when the TextBox you are applying the SetFocus to is the first control inside a frame. It works if the TextBox is not the first control, and it can be circumvented by first setting the focus on a subsequent control then switching the focus to the intended control.
However, the circumvention is not that useful if there is only one TextBox control in a frame or, as in my current project, if you try to create a generic piece of code to validate controls from multiple forms and set the focus from within the generic code.
Does anyone know of a way over overcoming this problem and being able to directly set the focus to the first TextBox inside a frame?
i am trying to use a look up formula to populate a textbox on a userform. this is the code but obiously does not work
Private Sub TxtbName_Change()
TextbName.value = LOOKUP( 'CLOCK NUMBERS'B7,'CLOCK NUMBERS'!B1:B530,'CLOCK NUMBERS'!A1:A530)
End Sub
When I select in my combo box I would like it to populate fields. That part is fine. When I try to input I want it to input in corresponding cell to the combo box selection i made. Problem is I can only get it to input in a certain cell not cell corresponding.
Option Explicit
Private Sub ComboBox1_Change()
Sheets("Sheet1").Select
Dim iRow As Integer
If Me.ComboBox1.Value = "" Then Exit Sub
iRow = WorksheetFunction.Match(Me.ComboBox1.Value, Range("People"), 0) + 1
Me.TextBox1.Value = Cells(iRow, 2)
Me.TextBox2.Value = Cells(iRow, 3)
End Sub
Private Sub CommandButton1_Click()
Me.Hide
Unload Me.....................
If this control is a TextBox, I would like to read the Text property,
and if it's a ComboBox, I would like to read the Value property.
Public Function readValue(c As Control) As String
If (TypeName(c) = "TextBox") Then
' convert the Control to TextBox then put readValue = c.Text
Else
If (TypeName(c) = "ComboBox") Then
'convert the Control to ComboBox then put readValue = c.Value
End If
End If
End Function
I am trying to store some information in a cell from a UserForm. The two sets of information I have are:
InvoiceNumber(number with no decimals)
InvoiceAmount(currency with two decimal points)
The problem I get is when I use the following command to store the information, it stores the information as text rather then a number.
Worksheets(CustomerName).Range("C" & Position + 1).Value = InvoiceNumber
Worksheets(CustomerName).Range("E" & Position + 1).Value = InvoiceAmount
I tried using the NumberFormat option as below, but it doesnt fix the problem.
Worksheets(CustomerName).Range("E" & Position + 1).NumberFormat = "$#,##0.00"
Worksheets(CustomerName).Range("C" & Position + 1).NumberFormat = "0"
I am using a form textbox on a worksheet. I have the textbox positioned where I need it to be but when I print the worksheet the textbox moves out of position.
I have an excel workbook where on several of the worksheets I have Control Toolbox Textboxes inserted into the sheet. The Textboxes are for when a user wants to type notes onto the worksheet.
My issue is that the Textboxes do not allow the user to edit the font because the VBA project is locked.
How can I allow users to edit the font in the Textbox without giving the VBA password away to the user?
I have made a userform where I calculate how long time an operation takes. If the time fe.g. is 25 hours and 24 minutes then I get the result 1:24. I have attached my userform as it looks now. If you write 540 in the bar and 550 in volume and press "Beregn" then "Norm tid + 10%" will write 1:24 and not 25:24. Is it possible to have the Userform to write 25:24 or 1day and 1 hour and 24minutes?
View 2 Replies View RelatedI have a workbook that has multiple spreadsheets. Data is added to the spreadsheets using userforms for each spreadsheet. I have created a pop-up calendar to add dates and want to know if there is a way to add dates without having to create multiple calendars for each txt field on each userform. I would like it so that when I click on the calendar it would put the date into the text field it was launched from.
This is the code in the calendar which only puts the date into the field named Dat_Clsd.
Private Sub CMD_Close_Click() .....
I have a userform with a textbox and would like the user to type inside the textbox which in turn send the text typed to a cell on my spread sheet say sheet 1 cell ref A1. I am writing the following into the control source Sheet1!A1 but the control source does not except this. I am using excel 2007 .
View 2 Replies View RelatedI'm sure this has an easy solution, but I'm having a problem putting it into a working formula. Column I lists checks numbers. Column J contains the amount of the check. Column K contains a "Y" when the check clears the account, otherwise it's left blank until the item clears. Cell O2 is where I want the balance formula.
I want O2 to look at Column K & then sum the amounts from Column J where the corresponding Column K is blank. If it were just one cell, it's a pretty easy if(k4="Y","", j4), right? But since it's a range of cells, not sure how to tell it to look down the range for all uncleared checks and put the sum in one cell.
I have a worksheet that I have removed a good number of hyperlinks, using the remove hyperlink function. My problem is that every so often, the hyperlinks are back on the sheet, without seeing any wording for the hyperlink.
Some place, a long time ago, I saw that there was something in the program that either stopped this from happening or turned the function off or a way of restoring removed hyperlinks. Today, I can't find it.
If I run my cursor over the spreadsheet, even over blank cells, I will get the evil finger of fate (so to speak) indicating that there is a hyperlink in that cell and yes, there is. If I click the cell, the site will be activated.
How do I keep these removed hyperlinks from returning.
I've also noticed that at anytime, while working on the sheet, everything flickers just as if the links are being re-populated. After a second or two the flickering stops and yes, the links are back.
I have a macro that runs with worksheet_change if I delete a cell. It does not run if I just clear contents. Is it possible to have the macro run when I clear contents of a cell?
View 4 Replies View RelatedI have created an excel worksheet that will provide budgeting and estimating tools for my project managers. All data used to be manual entry and took a good while to complete. I am trying to automate the process with VBA.
I created a UserForm called InfoVerify1. On that form I have TextBox 1 - 10. When the UF opens, the boxes display project information from my worksheet called "Basis of Estimate", also known as Sheet26.
The TextBox1 ControlSource is set to "E4". When I run the macro with Sheet26 active, the proper information fills in. However, when I am on the Start page or any other worksheet and I run the macro, it tries to fill in the text boxes with E4, etc, from the active sheet. I tried changing the ControlSource to "Sheet26,E4" or any combo thereof with only error messages.
how to get it to refer to a cell on a particular worksheet and hold to that worksheet no matter which sheet I am on at the time I run the Userform?
I need help with a code to detect deletion of a cell's value.
In cell I10, a user can choose one of six items from a data validation list. Right now, I have code in there to pop up a message if the user selects value "X" from cells F6:F10 and G6:G10, but cell I10 does not have value "A", "B" or "C" already selected.
What I want, is if cells F6:F10 and G6:G10 have value "X" in them, and the user deletes values "A", "B" or "C" from I10 or changes it in any way after it has been filled, then to have a message box pop up.
I have a legacy Excel VB application with multiple sheets. When the
users tab from sheetA to sheetB the paste buffer is cleared. This might
be due to the fact that sheetB has Worksheet_Activate processing that
does some validation and refreshes a pivot table (on sheetB).
Is there a way to reserve and restore the contents of the paste buffer,
and make sure the user can actually paste values from sheetA to sheetB
(using either Ctrl-V or Edit-Paste)?
I'm not sure if this is impossible (surely not) or if I'm just Googling the wrong terms (most likely). I have a sheet that we use to record staff shifts and when they take their lunch breaks. By default most of our employees have a 1 hour lunch and they take it 4 hours after they start. So far so good, I've set up a formula to work out what time their lunch would start and end based on this.
N237: =IF(AND(L237>0,L237<>"NWD"),SUM(L237+(1/6)),0) - Lunch start 4 hours after start time in L237 (NWD = Non working day)
M237: =IF(N237>0,SUM(N237+(1/24)),0) - Lunch ends 1 hour after lunch start time in N237
However, not everybody follows the default - some people take lunch later, or don't take as long due to working shorter hours.
What I'd like to do is allow users of the sheet to overtype the times generated by the formulas when applicable, but if they delete their own custom value for lunch breaks I would like the formulas to re-appear and thereby return lunch times to the default values.
I could do this through VBA with a button to look for blank cells, but I would prefer it to happen automatically. Is this possible and if so what code would I need to make the magic happen?
I should maybe have mentioned that this sheet has space for 250 names and an area for each day of the week, so these formulas would appear in 1,250 different places
I'm trying to use the Worksheet_Change event to replace all cleared cells with a default formula. This allows users to override the default, or restore the default when they need to:
If Not Intersect(Target, Range("Data")) Is Nothing And Target.Value = "" Then
Range("DefaultFormula").Copy
ActiveSheet.Paste
ActiveSheet.Application.CutCopyMode = False
End If
Here are the results with various different regions selected:
Single cell selected and cleared -- works. Multiple cells selected and cleared -- doesn't work if the first area selected contains more than one cell. Otherwise, it works, no matter how many other areas are selected.
Example1: Selected range is (D2:E2, G2) in that order, it does not copy the formula into the cleared cells. Example2: Selected range is (G2, D2:E2) in that order, the code does copy the formula into all the cleared cells as desired.
The "IF" condition is not TRUE when the initial area has more than one cell.
I am trying to create a way to easily maintain a list of outstanding checks. I am able to import cleared checks into the spread sheet but cannot find a way to compare the two lists and then delete the cleared checks off the original list.
View 2 Replies View RelatedI'm having a problem in a single line of code in which I'm using a Range Object to essentially select an area of cells whose contents I want cleared.
Here is the
Sheets(Left(c.Value, Len(c.Value) - 1)).Range(Cells(4, 2), " &:& ", Cells(Rows.Count, "b").End(xlUp).Offset(0, 9).Select).ClearContents
I want the range part to evaluate as (b4:whatever the last cell is before the first blank row).
Excel 2007 Conditional Formatting. I am trying to apply conditional formatting to a wide range of cells. I only want the rule to adjust the color and shading, under the FONT tab in the section below. Specifically, I do NOT want to adjust the number format (I have the user select the scaling and use VB to populate the number formatting). I accomplish this by removing the number formatting by going into the conditional formatting rule, clicking on format, and then on the first tab (Number) -- on the bottom right there is button to Clear.
This resolves the issue perfectly, and I can operate the report exactly as I would expect.
Unfortunately, when closing the report (after a save), and then re-opening, the conditional formatting number format is no longer cleared. Worse yet, because it no longer is cleared, the scaling VB doesn't work, unless I go back into conditional formatting rules, and go to the number tab, and click clear.
Screen shot of after re-opening, no changes:
Report looks terrible (not real data):
I am attempting to format some TextBoxes from within a For/Next loop. I need a way to check which TextBox is the active TextBox in the loop. Using i as the variable, I came up with this code snippet: Me.Controls("TB" & i).Text = Format("TB" & i, "mm/dd/yy")
If i = 3, this gives me in TextBox3 (which is called TB3) the text 'TB3' and not the value of what is in TB3. It has got to bo something simple, I just can't see it!!!
Is there any way in VBA to refer to a control in its own event procedure without referring to it by name/hard-coding?
It might be clearer to explain by a dummy code example:
[Code] ......
I'm seeking what I would need to replace Line1 with.
Within the ComboBox properties, is there anyway to control after "enter" his hit, you move to the right instead of down (similar to the edit under Tools/Options)?
View 9 Replies View Relatedi have a worksheet which is a form which feeds into another worksheet which acts as a database. i have a button which clears the form based on code which is essentially "clear contents".
the problem is i have a few cells where i would like to retain the formulas. i tried to do this with custom in validation but this did not work. i also tried to enter the code directly into the worksheet but this didnt work either (my skills are limited..). i am avoiding using protect sheet bc that in turn will affect many of my other buttons. is there something i am overlooking?
I have created a userform within VBA which has a TreeView Control and a Spreadsheet control on it.
I have populated the TreeView control with data and what I want to be able to do is to drag the nodes off the TreeView control to the spreadsheet control.
I can drag onto a normal worksheet but not onto the spreadsheet control (the no drop mouse pointer keeps showing).
How do I determine which control the user is currently modifying on a multipage form (either changing, enterying or exiting the specific control). when I use "userform1.activecontrol" i get "multipage1" as the control name but I need the actual control on the specific active multipage. (also the .TABINDEX is for the multipage regardless of the on-page control) I use a generic data-field change SUBroutine so need the control name (and the TABINDEX) to provide my SELECT CASE. (so every fieldname_CHANGE calls the same SUB [with no parameters])
View 3 Replies View RelatedI've run into a problem detecting empty cells. I'd like to search down a column of numbers and count the cells that contain numbers and ignore the cells that are empty. If the cells were made empty of their data by manually using the delete key before hand then my macro works fine. The problem is if the cells were manually made empty using the space bar to clear their contents.. then the macro seems unable to detect them as empty.
I have tried "", IsEmpty, and a few other things and nothing detects the cell as empty unless the delete key is used rather than the space bar. For this macro I really need the user to be able to clear values beforehand using the space bar, and to have those cleared cells be detected as empty cells.
Is there a way without using code to have the text in a text box (excel 2003), copied to another cell or another text box on a different worksheet?
I have information in a text box on 1 worksheet. I would like this information to automatically be copied to another worksheet. On the master sheet, if any of the information gets changed or updated, the copied information should get updated as well.