Replace Comma With Dot In 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'
View Complete Thread with Replies
Related Forum Messages:
Replace Blank Space With Comma
I have the following code which is save Sheet as a text file. I know there are some options in Excel for saving, but it is not saving as ".txt" file.
I would like to modify this code to replace blank space with comma between Cells.
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
' Save file name and path into a variable
template_file = ActiveWorkbook.FullName
' Default directory would be c:temp. Users however will have the ability to change where to save the file if need be.
' Notice that i'm only allowing the save as option to be of .txt format.
' I'm also attaching the current date to the file name............
Replace Comma With Hard Return
I have a string in a cell which is essentially comma separated and want it in the same cell but with enters instead of commas. Cell info to start with would look like this
Bob, The, Builder
And the result I am looking for is
All within the same cell so I can create a label which uses this information on a user form. I have attached a small example.
Custom Format To Replace Decimal With Comma
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:
However, when I apply to numbers with decimal places
how I can change the custom format so that the period is replaced with a comma but the decimal values are preserved?
Force Decimal In Place Of Comma In TextBox
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 "."?
Formatting TextBox And Check Which TextBox Is The Active TextBox In The Loop
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!!!
Catching Errors When Using The Find / Replace Function / Replace All
Need assistance with the code for catching errors when using the find / replace function in excel? In particular, I am trying to write code to break to an error message when the value or string searched for isn't found in the find / replace. At the minute I have just copied the standard code using a macro and all this does is return a message box saying X entries replaced.
Find, Replace With And Then Replace Adjacent Cell
I am trying to create a macro where it finds a a certain word in a column for example C. What i want it to do is find anything that says FWD_EUR and then replace that cell (e.g C2) with CASH_EUR_FWD and after it has done that it replaces the adjacent cell (e.g. D2) with EUR_FWD. I then want this to do the same with FWD_USD to CASH_USD_FWD and adjacent cell to USD_FWD.
Search And Replace Replace The Whole Cell
I have over 16000 cells with different information in them, each cell is unique. There are parts of these cells that have similar information.
I am looking to search part of the cell, and replace the whole cell with my new description, so I can run pivot tables on it.
Userform Textbox Event That Fires After I Exit The Textbox
I need a userform textbox event that fires after I tab or click out of the textbox. Going by the list of options:Beforedragover, BeforeDroporPaste, Change, DblClick, DropButtonClick, Error, Keydown, Keypress, keyup, mousedown, mousemove, mouseup.
I can't figure out which one will do what I want. The change event happens instantaneously which doesn't work. I need to fire off the event when my focus leaves the textbox.
Transferring Value From Textbox On Multipage 1 To Textbox On Multipage2
I have a two-page multipage form. I have a textbox on page 1 (txtOccupantLoad), and I want to pass the value from that textbox to another textbox (txtOccLoad_L1) on page 2. The code I've tried so far looks like this:
Private Sub cmbChooseLevel_Change()
If Me.cmbChooseLevel.Value = "Level 1" Then
Me.txtOccLoad_L1.Value = Me.txtOccupantLoad.Value
What I'm trying to do is to use the same form for 10 different levels (floors) of a building. Then on page 2, I'll itemize the values for each floor. So the combobox determines which floor the calculations are for; txtOccupantLoad is the total of all incremental occupant loads on that floor; and txtOccLoad_L1 is the first of a series of textboxes on page 2 where the value for Level 1 should go. If the combo box shows "Level 2" then I'll write new code for the txtOccLoad_L2, and so on. I've also tried including "page1." and "page2." after "me."
Pass Vlookup Result Of TextBox To Another TextBox
I am trying to create a user form that has a series of text boxes that will all have a VLOOKUP function in them based off of input from a the first text box. If I can just get the code for the first one, I think I can figure out the rest. We will say that the file that the user form is contained in is 'Agent Administration' and the file that I want the VLOOKUP to pull from is called ' Roster for Auto Population'.
Inserting A Comma
I am working with large sequences of letters and I'm trying to put them into their own columns. I know about the 'text to columns' tool but the problem is my sequences are not delimited by anything. I would have to think the easiest way to accomplish what I want to do is to insert a comma, space or other delimiter between every letter, then use the text to columns feture.
EX. I'm looking for something that does this...
AAAAAA --turns into--> A,A,A,A,A,A or A A A A A A
Copy From Textbox To TextBox In Another Userform
I am trying to copy data from a Textbox in a Userform to a Textbox in another Userform. Is it possible?
In Userform1 I have a button from which I can open Userform2 keeping the Userform1 opened. When closing Userform2 I want to copy the data from TextBox2 in Userform2 to TextBox1 in Userform1.
I was trying to guess the code... but it is not working...:
UserForms("Userform1").TextBox1.Value = UserForms("Userform2").TextBox2.Value
Cell Changes Decimal To Comma
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).
Comma Separated Data
I have four columns of data. Column A is for the Model, B is for options, C is for color, and D is for Trim. What I need to do is for each model I need to have the options in column B to be listed down the page without commas. Each 3 code option needs to have it's own cell. In the below example there are 8 models with their options, color, and trim. I cannot have the options mixed up with the other models. Hope this makes more sense.
Here is the raw data ...
Remove The Last Comma In The String
The below function concats a range of cells by csv. How can I get it to remove the last comma in the string when it's finished?
Function SpecialConcatenate(rnge As Range) As String
Dim r As Long, col As Integer
For c = 1 To rnge.Columns.Count
For r = 1 To rnge.Rows.Count
If rnge.Cells(r, c) "" Then
SpecialConcatenate = SpecialConcatenate & _
rnge.Cells(r, c).Value & ","
Puts A Comma Before The Last Two Digits
I did post a problem where I have a number like 123456 and I need to have Excel change it so that it puts a comma before the last two digits .. like so: 1234,56
I got a reply where I got the solution to use 0","00 and this works in Excel (using the custom format)
The only problem is that although the number changes in the cell to 1234,56 it doesn´t do so in the FX window and thus when I use the number to multiply it is actually 123456 instead of 1234,56 like it want it to be.
Have 300 Cells, Want Them In One, Seperated By Comma
I think this is a really easy question but I can't seem to think of an easy answer. I have 300 cells in one column I want to have combined into one cell, seperated by commas. I know I could just =A1&","&A2&","&... but this is not what I want to spend my afternoon doing. Is there a better way of doing this?
Separating Items With Comma
i have many many cells that have text like the following:
what i would like is to have it show like the following instead (within the same cell):
i know i can do this using ALT+Enter to make the separation manually....but there are many many cells....can this be done automatically?
also, it is possible that some cells would have only 1 item so in that case, it should be left alone....
Space After Comma In Names
I have a list that contains names in the format
Lastname, first name
But some of the names have no space after the comma - which is what I am trying to achieve here
I would like to insert a space after every comma in the name, when there is no space. I am looking at a formula based approach to solve this.
Add Comma To Each Cell In Column
I am an Excel Novice. I don't know very much at all about how it works, what formulas are or any of its intracacies. My job requires me to take information from an Excel file that is emailed to me.
I need to know in the simplest terms how to take the first column (which is last names) and add a comma to the end of each name (one in each cell) all the way down that column, before I copy and paste them, so they will read "last name comma space first name".
Replace, Copy Then Replace Again
I used the following code to replace " characters to !%. Then I copy the selected cells, and replace the !% back to "-es. The copied cells contain the "-es. When I comment the second replace, the function is working correctly, the copied cells contain the !%. What's the problem of my code?
' What:="!%", Replacement:=""""
Insert Double-comma At End Of String
i'm a complete excel novice, but i think this should be pretty easy for you guys...
i just bought a new satnav system after 4 years with tomtom...
anyway, to get the speed camera database to work with it, i must add a couple of commas at the end of each set of co-ordinates contained within the spreadsheet, like this:
thing is, most of them don't have the 2 commas at the end and just end with the number, like this:
therefore, what i need to do is make up a formula in excel to search for a double comma at the end of each set of co-ordinates and if it doesn't already have them, then it should insert them...
i'm guessing for anyone with excel experience, this should be pretty easy to solve...
Saving To The CSV (comma Delimited) File
I have a work sheet with some names address, and phone number in it... I need to save it as a CVS file (comma delimited) easy right??? WRONG!!! everytime I save it, it takes the phone number column and shortens it AND turn the phone numbers into a mess
What it looks like NOW
What is looks like after save
If is make the column bigger it goes back to the "good" numbers, but when I save to a CVS it goes to the "bad" number.
Match Function To Find Name With Comma
I have a spreadsheet in which I use a match function to find the row a name is on. The name may be listed several times and the name has a comma in it, for example, "Tom, George". I got it to work once, but it doesn't always work. Is it because of the comma or because it is in the lookup several times? It's my understanding the Excel will return the row number for the first time it sees the name in the list, which is what I want.
Text File But Comma Delimited
In my workbook I have 10 columns with data, starting at A12 and down. This could be several hundred rows.
I would like to export the first three columns only (Column A, B and C). The TXT file should have the following:
First line: "This file was exported from Excel"
Second line: The value of cell B4 of the worksheet
Third line: The value of cell B5 of the worksheet
Fourth line: Today's date ( as 27/Sep/2007)
Fifth line: No entries (Empty row)
Sixth line will be the first numeric transfer. This is cell A12 value, cell B12 value and cell C12 value.
Seventh line: Cell A13 value, cell B13 value and cell c13 value.
etc, until the end or selected amount of rows.
The values of the different columns should be separated by commas
Column A values could be 9 characters (5 numerics with 4 decimals - 12345.6789)
Column B values could be 10 characters (6 numerics with 4 decimals - 123456.7890)
Column C values could be 10 characters (6 numerics with 4 decimals - 123456.7890)
The text file therefor would look as follows:
This file was exported from Excel.
On this continent
123.4567, 23.7654, 123.4567
1234.5678, 123.4567, 987.6543
12345.6789, 6.0000, 2.9876
I tried to adapt jindon's code but no luck.
I am currently doing it the long way.
='[Workbook1.xls]MySheet'!$A12&", "&'[Workbook1.xls]MySheet'!$B12&", "&'[Workbook1.xls]MySheet'!$C12
This works but I really liked what jindon did and wondered if it could be adapted to fit my needs.
Search Comma Delimited String
I have a spreadsheet with a number of columns containing comma delimited strings (years) which I need to check cell by cell and return false if anything apart from the years 2001 to 2008 is found.
For instance, a cell may contain the years (2001, 2005, 2006, 2007, 2008) or (2006, 2007) or (2001, 2004, 2008) or (2004) or any combination of those 8 years.
I thought of using the Split function on each cell and then looping through the resultant array to do a comparison against each of the 8 years but with a large number of delimited strings to check it could be a bit time consuming. Any idea how I could accomplish this more quickly and efficiently either with a formula or VBA?
Find , (comma) And Return All Characters After It
Excel 2007 - Windows XP
I have the below in cells A1 and A2. I need to find the last comma then return all characters after it. I need the same formula for both cells because the value is always changing.
HUG,PU-TUB,BW,-,-,64 Need to Return 64 in B1
HUG,PU-RFL,BW,-,-,176 Need to Return 176 in B2
Comma Separated Values In A Cell..
I have a cell in a table containing user entered Comma separated values.
How can I process it so that user entered values can be referred to just like in an array? Is it possible to do something like cell.value?
For example --
cell A1 has values red, blue, green. B1 has a formula that can refer to "red" in A1 by writing something like A1.value
Is it possible to have a function return values to another cell reference than from the cell where it is called? Like a UDF called functionIndividualValues(InputcellReference, OutputCellReference) functionIndividualValues(A1, A2) meaning that the input string for the function is in A1 and the output should go to the cell A2.
Comma Error In Programed Combo Box
I have been working on a "quiz" template. The idea is that a list of several hundred questions with answers is on one tab, "QnA". On the start tab ("Welcome") there is a "New Quiz" button, then on a "Quiz" tab a set of random questions is posted, in this case 5. Listed on the "Quiz" tab are the columns; "#" (question #), "Question" (actual quiz question), "Answer" (combo box with answers), "Row" (row of source question), "Result" (correct or incorrect). When a user selects the answer with the combo box the "Row" and "Result" populate. The key to all of it is in the vba code.
Everything is working great except 2 things. In order of importance: 1 - Seems that the if there is a 'comma' in the answer, the combo box has a problem, separates an answer into more than one answer. There should always be four possible choices. This is a problem because many of the answers are longer and require commas to separate thoughts. Why would the code force a new answer option because there is a comma in the answer cell?? Is there anyway to keep the integrity of the answer cell regardless of the characters in the cell??
2 - The combo box's don't resize with the answer size on the "Quiz" tab. How do I get this to happen?
Below I have pasted my original post link so you can see the history if you wish to see it. http://www.excelforum.com/excel-prog...new-sheet.html. Additionally, I have attached an example quiz using the same code and function of the actual "Quiz". On "QnA" there are 'developers comments'.
Remove Characters Right Of Comma In A Web Query
I currently have a macro that imports data from a web-based query then deletes column A from the query. I do this because I am using a VLOOKUP on the data and the VLOOKUP value would be in column B if I didn't.
The website has changed the format and now once column A is deleted, I'm left with a format of FirstName LastName, POS TEAM (i.e. Tom Brady, QB NEP). My VLOOKUP looks for FirstName LastName so I'm getting the "N/A" error now. I need to remove the "," and "POS" and "TEAM" from the imported data. This would be easy enough if the number of characters right of and including the comma was consistent, but it isn't. (Also, text to columns then CONCATENATE won't work because VLOOKUP looks at values, not formula results...)
Now I know the formula =LEFT(A1,FIND(",",A1)-1) works, but how would I incorporate this into the worksheet to keep the values in column A and not add additional columns to throw off my VLOOKUP.
Ideally I'd like a simple macro to add to my current macro to use the above formula, but I'm not sure of the wording.
Macro Inserting Comma & Space
I am trying to create a macro that will create a comma and space between every 5th character within a cell. that would be preference #1. What I decided to go with for now, instead, is to try (using the macro recorder) text to columns, fixed width, and do this after every 5th character, and selecting each cell to be formatted as text.
What I am having difficulties with is trying to tell the macro which cells to touch and which ones not to. I do not want the macro to do text to columns and fixed width on simple text. I only want it to do the macro when it is a string of numbers that, during transfer from PDF to excel, have been concatenated into one cell. I also want the macro to do this for infinite number of rows. I have excel 2007.
I am attaching a small excel file with examples of data I am working with. I have saved this excel file as a 97-2003 version for those who do not have 2007. As I stated, if anybody can help me figure out how to do a simple insert comma space every 5th character where information has been concatenated, that would be preference. Also, I am not trying to change anything within column A. Only column B. On the sample file please note B3 - B6. Rows 5 & 6 are fine as they are. Other problem rows include B11 - B13
Separate Comma-delimited Values To Rows
I have an excel sheet I create with lots of inventory items distributed amongst several locations. The first column is a location field where several 1-2 digit location codes are seperated by commas. I would love to get the macro to copy each row, once for each location code, onto a new tab as a new longer list. Because the amount of data per row varies, I need the entire row to be copied to the new tab....
Separate Numbers From Characters That Are Separated By Comma
For example the cell contains 1,M2,M7,M1,M8:2,M15,M9,M4,M5:3,M3,M6,M14,M11,M12:4,M10,M13 and I need to create M1, M2 , M3 ..etc columns and attach the coresponding number to each one of them. For instance M2,M7,M1,M8will get 1 and so forth and so on. I was acutally thinking using the Notepad to replace the , with a TAB space and paste them back in to my data set and create some IF statements. On the other hand running VBA scrip would make it even easier. However I would preffer to use a function (that I am not 100% familiar with) and leave the VBA scrip out of the question for the moment.
Open All Txt Files (delimited Tab Comma ) In A Folder
I have around 30 files each quarter which I need to convert from a text file to an excel spreadsheet. I am a beginner with VBA and am looking for generic code I can use for a macro to:
1. open a text file from a folder
3. format columns H, O, and AH into dates
4. 'leave a spot for me to insert my code to manipulate the data'
5. save the file as an excel spreadsheet to a folder with the same filename
6. loop to perform this task to all files in a folder and stop after the last file.
The dilemna I am having is that my text files do not have a suffix ".txt" after them.
They just have the file name ***MMDDYYYY. There are always 3 initials at the beginning which change for each file i.e. ABC06302009.
The date remains the same for the given quarter, i.e. ***06302009. Next quarter I will have to do this same thing for all files ***09302009.
Transpose Multiple Comma Separated Values
I have a list of comma separated values. I would like to change these to tab separated values, and then transpose them so that they are all displayed in one column. Does anyone know if it's possible to do this in Excel 2007?
Date | Keywords
1/01/01 | shoe, shoes, clothes, clothing
1/02/01 | shirt, shirts, jacket, jackets
I need the Keywords column to display each value separately, and in one column. I also need each row to have the original date information. So I need it to look like this:
Date | Keywords
1/01/01 | shoe
1/01/01 | shoes
1/01/01 | clothes
1/01/01 | clothing
1/02/01 | shirt
1/02/01 | shirts
1/02/01 | jacket
1/02/01 | jackets