I am developing a form to get the user's name. I want to put some default text in the textbox where the user types their name. I want the form to delete the default text when the user clicks on the text box or after they start typing their name.
Attached is the form and code that runs the form : UserName.xlsm‎
I have a userform with numerous Textboxes and comboboxes for user input - however the end users aren't too PC savvy and I'm ending up capturing "Please Enter NameJohn Smith", "Please Enter Job TitleSales Manager" etc. My original Instructions told them to tab their way through the form, meaning each time they reached a TextBox their input would overwrite the ("Please Enter x") string prompting them for input.
Is there any way to replicate this "select all" on click (globally as there are potentially 50 to 100 textboxes and 12 varients of the form)?
Penfold Auto Merged Post;OK so I've made a little progress:
Private Sub UserForm_Click() TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End Sub
The above selects all the text in a textbox - I think I need to apply this to the textbox "on click" - however that could be achieved? Then it needs to be generalised - ie:
I am trying to get a particular cell to have normal dimensions when not within that cell, but once opened, contains a default text preferably within a text box format/size.
When I place a text box in Excel 2010, the default is for everything to be locked (Box is locked AND text is locked). I want to change the default setting so that when I start Excel fresh, anytime I place a text box the "LOCK TEXT" box is UNCHECKED.
There's a place where you can select "Set as default text box") after you make the changes, but it's not sticking (even in the same document without closing. IE, I make the changes to a text box, then click the option that says "Set as default text box", place a NEW text box immediately in the same document but the text is still locked.
I am trying to simply change the text inside a textbox named (TextBox 2). My current line of code is giving me the error "The item with the specified name wasn't found". Any thoughts on how to troubleshoot this?
'Format ReportWith ActiveWorkbook.Sheets("The Flux")    Lastrow = .Cells(Rows.Count, "E").End(xlUp).Row    .Shapes("TextBox 2").Characters.Text = SelectedStmt  'Change Statement Title
is there a way of changing the text direction for an ActiveX textbox? I need it to show the text in some of the boxes vertically but in other boxes horizontal.
I wish for a text box (drawn Text Box, from the "Shapes" tab) to conditionally change its background color based on whether a cell in a different sheet says "Online" - in which case it should be green, or "Offline" - in which case it should be red. So far, the code that I have that doesnt work at all, which I'm not even sure where to place (I tried in the Workbook - Open?), is the following:
[Code] .....
I also need to do this for a total of 9 Text Boxes, if that changes anything.
I've been asked to make an Excel spreadsheet for work that tracks each employee's gross earnings, deductions, and net earnings, as well as calculates the holiday pay. I'm mostly done, but I've run into a problem.
Holiday pay is 4% of the gross earnings. I've got gross earnings in column B, and the formula in the holiday pay column is =PRODUCT(BX,0.04), where X is the row (i.e. in row 4, it is =PRODUCT(B4,0.04).) However, if the cell in BX is empty, the holiday pay displays as 0.04. So for whatever reason, it is assuming that the value of an empty cell is 1. Now, I can solve this by manually entering 0 into every gross earning cell.
In excel if it changes number to exponential format it would default to, for example if number is 12345 -> 1.2345e4, 0.012345 ->1.2345e-2
I was wondering it is possible to which a function to change this default format ie for example 0.012345 -> 12.345e-3
I basically want this kind of formatting as its would display information in terms of milli, micro, pico (or the opposite side kilo, mega, giga and so on).
I have a data table with multiple columns. Several columns have absolute formulas repeating in each of the rows. I would like these formulas to be the default ones in each of the columns whenever I insert a new row.
Unfortunately, whenever I insert a new row Excel automatically inserts different formulas, which do not appear anywhere in the table. These formulas used to be in the table, and at the time Excel asked me if I wanted them to be the default formulas for those columns - which I happily confirmed. As stated, I now have new formulas which I want to be the default ones, but I can't figure out how to set them as such. I even tried to turn off the auto-extend feature, and then back on, to no avail.
i am trying to achieve this in the form that currently has Record navigation buttons...
I have Form with 3 TextBoxes. The first 2 textboxes are edited by the user, but the 3rd textbox depends (It can be edited or might not be)...
I have added the default value under change event of textbox3 as textbox3.value="Pipes"
Currently the user cannot overwrite this value (Pipes)... I need to somehow overwrite this value if required, else, the same value should be retained after clicking New button...
I have tried, through control panel - region settings etc, to change the default number of decimals to 0. I often use the Number format using the shortcut CTRL + SHIFT + 1 but then have to reduce the 2 decimals down.
I have recorded a macro to apply this kind of formatting but the disadvantage of this is that I cannot undo any actions before that point - which has gotten me into some trouble on a few occasions .
Is there a macro that I can use that adjusts the "Normal" cell style number format from General to Number (with thousand separator but 0 decimals) each time I open a new book? As merging cell styles is also quite a mundane task..
I am creating a spreadsheet on a British-based system using the d/m/y date system as default, but I am unfortunately entering data using the american m/d/y system and would like to change the default to the american system.
I wish to be able to change the default appearance of a cell's comment. Currently, the default font size is too small to be useful - is there a way of changing this setting, without reverting to a VBA tidy-up?
I'm trying to change the default option for the data series when graphing in Excel 2003 .... I am trying to create a line graph
Excel, by default, is putting static pressure on the x axis and the air flow on the y axis .... I need it to be the other way around
I have found out that: By default, Excel plots whatever you have fewer of—rows or columns—as the data series
apparently it is possible to change this Excel default option, but I can't figure that out
in step 2 of the Chart Wizard, I have tried many different things, but can't get Excel to chart the Air Flow CFM on the x axis, and have static pressure values on the y axis
I have a userform with 10 textboxes which will all contain a time in HH:MM format. Could I have the userform to fill the textboxes with a default value once a time has been entered into textbox1. I would like the default value to be the time from the previous textbox plus 30 mins.
eg. So if I enter 14:00 into textbox1 I would like textbox2 to display 14:30, textbox3 to display 15:00.
If this is possible, could I add a Listbox with the options 1 to 10. Then would I be able to only uses the textboxes based on the number selected in the listbox. So if I selected 2 then just Textbox1 and Textbox2 would have values in them. For 8 being selected then Textboxes 1 through to 8 would be filled.
My office recently upgraded to Office 2010 and we would like (in the accounting department that I work in) to change the default number formating in a blank sheet to Number, 0 Decimals, using seperators, from the current default of general format number.
I have looked for the Book.xltx file to replace but can't see it any where.
It involved opening a new workbook and changing the number of worksheets in a new workbook, cell sizes, font, and font sizes... and then saving the workbook in one of the system folders under the name "workbook" to change the default workbook attributes, or "worksheet" to change default worksheet attributes.
I work with a team of users that are continually publishing reports in Word that contain charts and graphs copy and pasted from Excel into Word 2010.
We have a custom script that leverages a PDF engine to automatically convert .doc files to .PDF files that we distribute electronically to our clients. This all works great, but only if all my users select 'paste special' and Enhanced Metafile Format when adding their excel charts into our reports. Most of these people aren't tech savvy, and I'm havin ga hell of a time getting them to follow this workflow and am hoping there's a way in Office 2010 to select the default paste from excel into word when the content is a chart.
It seems like the default paste from excel is an embedded chart/graph that you can then further manipulate each component of the chart in Word; the default doesnt' paste an actual image. I am assuming the pdf renderer is using a lower resolution .PNG version of the image and when these are scaled for print and or pdf, they look like crap.
Is htere anyway I can automatically change the default paste format for the chart from excel into word to be an EMF/EMV (enhanced metafile?) Either thorugh the registry or some other saveable setting?
In Excel VBA Userform, how to copy the text from textbox automatically when the cursor is being moved from the textbox. And when i put CTRL+V then the copyed text has to be pasted.
I wrote this code that works on named ranges fine as it was originally intended!!
Dim Arr, Cel Arr = Array("MainName", "PostCode", "SourceOfBusiness", "CallOrientation", _ "URN", "ApplicationReference", "ACFRep", "BranchSalesperson", "Branch")
For Each Cel In Arr If Range(Cel) = "" Then MsgBox Cel & " is empty, please fill in and try again!" Range(Cel).Select Exit Sub End If Next How can I amend this to work against Textbox's in the array..?? Textbox2, Textbox4 etc etc?!?!
This code works fine, the problem is if I put a number in, and then backspace in the textbox to change the number, I get a runtime 13, type mismatch. This error only occurs when I delete all the numbers in the cell. For example, say the number in the cell is 5025. If i change it to 5123, that is I did not have to delete the first 5, it will work. If I want to change to something like 4167, i must delete the first 5 and it will give the error. I have only been using VBA for a couple weeks, I assume it's something simple.
Private Sub TextBox1_Change() Dim StaffCost As Single Dim AvgDriveTime As Single Dim AddlDrives As Single StaffCost = OLEObjects("TextBox1").Object.Value AvgDriveTime = Range("E5").Value AddlDrives = Range("F5").Value With Range("G5") .Font.Bold = False .Value = StaffCost * AvgDriveTime * AddlDrives End With End Sub
Code: Private Sub cmdSearchButton_Click() Dim txtbox As String 'stores lookup value Dim x As Variant 'value for wwid txt box Dim ForeName As String Dim SurName As String Dim wwid As Variant Dim iPosition As Integer
[Code] .......
Here is my code, it does a vlookup and if the persons name is not found it will split the text entered into forename and surname but when i try and add
It actually displays &ForeName & in the text box of the next from rather than what ForeName is..
eg. John Smith -> search button -> user not found msg -> user wants to add user -> string is split into forename and surname -> forename = John , surname = Smith -> display this in the second form.
What code should i be using to do this, i thought that &ForeName & would work.
I have a userform containing 3 textboxes, to calculate derivatives.
User enters two integers in textbox1 and textbox2; and to textbox 3, I need to transfer these values but with a little issue.
For example, user entered 3 to textbox1 and 5 to textbox2. In textbox 3, it needs to show 3x^5. For example, user entered 7 to textbox1 and 2 to textbox2. In textbox 3, it needs to show 7x^2.
So "x" and "^" are our defaults in textbox3.I tried to transfer the numbers that the user enters to cells A1 and A2, -I don't know if this works- but I don't know how to call them to change the text in the textbox.
When the Go button in text box in the 'VSVA-1 Data' tab is pressed, a new tab is created. I would like the tab to be renamed after the text that is entered into the text box. Is this possible? Here is what I have so far.
VB: Sub RenameTab() 'Renames the worksheet tab ActiveWorkbook.Sheets("VSVA-1 Data").Select tabName = TextBox1 ActiveWorkbook.Sheets("VSVA Data").Select Selection.Name = tabName End Sub