I have an UserForm, where I have several text boxes. One of these textboxes should be entered with decimals. I have been able to cope with the declarations, and set the variable as Variant. However, is it possible to prevent the user inserting "," instead of "."? Alternatively, automatically change "," to "."?
I have a UserForm with different text boxes, everytime I put a number with decimals (ex 100.23) on a Textbox and I want that number to be shown on a excel cell, VBA changes the "dot" for a "comma" so excel understands it as an integer number 100,23 (10023).
I've just imported a file into a UK version of Excel from a German made datalogger. The decimal points (which should look like this 0.0) all appear as comas (0,0) with the result that Excel can't read them.
I am trying to figure out how to insert a decimal into a number. For ex: 1234 to become 12.34. I tried creating custom or special formatting but I cannot figure it out.
I have a column of percentages where I only want to show 1 decimal place if the value is less than 1%. The rest of the percentages I want without decimal detail.
I've tried custom formats and cant quiet get it right. Am I close with this?
I have the value 26.06 in cell A1, I want to have everything left of the decimal place in Cell B1 and everything right of the decimal place in Cell C1, is this possible. Bearing in mind A1 will be variable (ie it could be 159.65).
Is there any way to change the decimal point from the usual period symbol (.) to a comma (,). The reason being, i have a structural design spreadsheet and the new terminology is just so, changed from 00.00 to 00,00 I have tried cell formatting but it just uses a comma (,) for numbers in their thousand and it wont do what i need.
I am having problems applying custom format to numbers that need to be formatted. custom format use is 0",00". When I apply the custom format above to whole numbers, I achieve the results I want:
0.00 20.00 40.00
becomes
0,00 20,00 40,00
However, when I apply to numbers with decimal places
0.20.......
how I can change the custom format so that the period is replaced with a comma but the decimal values are preserved?
I am trying to found or create a formula that will display cell width to the decimal place.
I can use the formula Cell("width"), but it rounds to the nearest integer. I need to display the decimals. For instance, if the actual column width is 8.43, the Cell("Width") formula will display 8. I need it to show 8.43.
I am trying to export a range of data from excel to xml. I have a module that puts the range of data into one cell:
Code:
Function Concat(myRng As Range) Dim myStr As String Dim c As Range myStr = "" For Each c In myRng If c.Value "" Then myStr = myStr & ", " & Chr(34) & c.Value & Chr(34) Next Concat = Mid(myStr, 2, 9999) End Function
How to all data to come in with one decimal place (eg. "4.5","5.0",7.0")
I'm looking to see if there is a way to take the decimal place formatting of cell and apply it to other cells.
For example, if someone types in 0.0001 into a source cell, I'd like to take that decimal formatting and apply it to other destination cells. This way when values are typed into those cells it will automatically display 4 places past the decimal, no matter what the value. ie 50 will display 50.0000
Any function in Excel, that would allow me to have a unit cost price (for example: 0.5432) and then for a table of figures containing the pack sizes to determine the correct unit price that would allow all pack costs to be at 2 decimal places. I have included an example below:
My spreadsheet would look like the following:
Cell A1 (Unit Cost Price) = .5814 Cell A3 (Pack of 75 units) = .5814*75 = 43.605 Cell A4 (Pack of 80 units) = .5814*80 = 46.512 Cell A5 (Pack of 100 units) = .5814*100 = 58.14 and so on
I need some way of making cell A1 change to a value that will cause all cells A3 to A5 to be 2 decimal places or less.
I have a UserForm that requires a value in TextBox10. I load a "1" into it at start up. If the user tries to delete the value in TextBox10 and exit, leaving either "" or 0 in the TextBox, it will cause a great many problems. I need someway to keep the focus in TextBox10.
I tried to find something using the search engine but I could not find anything searching with this subject.
Here is the code from my first attempt:
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox10.Value = 0 Or TextBox10.Value = vbNullString Then TextBox10.SetFocus Exit Sub End If
It doesn't seem to do anything. When I delete whatever is in the Textbox and hit enter, it should just stay in TextBox10 but instead it goes to the next tab location.
I have a TextBox in a Worksheet with a ScrollBar defined and its working perfectly! The only problem is that everytime I click outside the TextBox, the ScrollBar goes to the lowest position and I only can see the bottom of the text in the TextBox...
Is there any way of keeping the ScrollBar on its position everytime I click outside the TextBox?
I want to set at my textbox,so that if user enter the number with comma instead of dot,the comma will automatically be changed into my default format(dot).for example,if user type in (86,5),the value will be converted to (86.5). I have read through the relevant previous thread regarding this matter and I wrote the function as below.It happens to be that (86,5) will change to (865.00),not as what it suppose to be.So can anyone correct my function below?
Private Sub txtdiameter_Change() If txtdiameter = vbNullString Then Exit Sub
If Not IsNumeric(txtdiameter) Then MsgBox "Numbers Only" txtdiameter = "86" 'default value' End If
In my userform, I have a textbox where I enter a number.
When I hit the return key in the textbox, I want the userform to act like I hit a commandbutton_Click. (The commandbutton_Click takes the contents of the textbox and locates a line with that number in it in a specific worksheet, and then displays the line of info in other textboxes in the userform).
I want to force a UserForm TextBox to format the text typed in to have the first letter of each sentence capitalized and all other letters to be lower case when I exit the TextBox.
When a userform textbox value is changed, if the vertical scrollbars were shown previously (due to more text than displayed size) and is still required for new value, how do you reset the scrollbar/textbox value back to the top (if it was previously scrolled down by the user). If teh scrool bar is no longer required for new value (due to sufficient space to display new value without scrollbars), how do you remove/hide the scrollbar again until needed.
To accomplish whats in the title, I tried (and think I used successfully previously) the following
With tbfind .SelStart = 0 .SelLength = Len(.Value) .SetFocus End With
Some details, i have a userform named Findform, a textbox in it named tbFind, and the above code is in the userform initialization event section.
Oh also, I dont get any error, everything runs just fine, its just the cursor is not inside the textbox waiting for typing in it. (but i do think it is the focus, when i press tab it goes to the next one in the tab order)
I have a Userform that allows users to add projects to a tracking sheet. If the project is a WIP, no 'Sign Off Date' needs to be entered. When the project is complete, I would like the user to be able to hit a shortcut key (while inside the user form, with the cursor in the 'Sign Off Date' textbox) to populate the 'Sign Off Date' textbox with today's date (i.e. like CTRL + ; does in Excel) rather than have to enter it manually.
I have set up a form which requires one textbox to have a decimal followed by four numbers (ex .5780) and another which requires two numbers, a decimal, then two more numbers (ex 57.80). how this can be accomplished? I am new to Visual Basic coding!
I want to select items in a listbox and transfer those items via command button in a textbox. The listbox is already filled. I have no idea how to realize that.
Attached is the form I created so far. I copied everything together and matched it up for me. It's probably not the best way but it works. I marked the section where I need help in yellow.