I asked this along time ago and received a worksheet formula which suited my needs then. http://www.excelforum.com/excel-work...trailing+zeros
Now I need this in a macro. Below is my current concatenating code.
I cant seem to figure out how to concatenate data from two cells into one cell and retain trailing zeros. If Cell A1 has ".0000" and cell A2 has ".0005" then I want cell A3 to show:
".0000-.0005".
I get "0-.0005" on my attempts. Alos, how do I make the value an actual number and not a formula?
I can't seem to get the Concatenate function to work in my macro when there is a combination of numbers and text. It works fine is there are no alpha characters. I am using this macro to format all of the data in column "A" to have 5 characters and be text. These values will later be used in formulas and Pivot Tables.
Sub Macro2()
Dim sinlen As String
Dim sinformat As Variant
Dim lastcell As Variant
Range("b1").Select
Selection.EntireColumn.Select
Selection.Insert Shift:=xlLeft
Range("a1").Select
Do
ActiveCell.Value = "'" & ActiveCell.Value ......
I have ID numbers that sometimes starts with one or more zeros and when i try to paste a string containing ID numbers that starts with a zero, excel converts it to a number thereby deleting the leading zero(s). Is there any way to force excel to keep the leading zero when i paste from the clipboard?
Clipboard.SetText strMyString, vbCFText
Set xlSheet = xlBook.Worksheets("Sheet1")
xlSheet.Activate
xlApp. ActiveWorkbook.ActiveSheet. Range("A2").Select
xlApp.ActiveWorkbook.ActiveSheet.Paste
I have tried setting the format for a column as text using xlSheet.Columns("D").NumberFormat = "text" before pasting to try to force excel to keep the leading zero but the ID# comes out unreadable as "############". I have also tried formatting as "General" and custom formatting the column before pasting but have been unsuccessful thus far. I've seen other programs accomplish pasting numbers with leading zeros but how do you do this?
I am just basically sorting through a huge dataset and grabbing unique codes and storing them in an array for later use. Some of the codes are numeric and some are alphanumeric therefore I am storing them as strings. However, when a code is for example 000578 - once a recall this from the array it has become 578. Is there anyway to preserve the entire code, i.e. make the array recall 000578.
View 6 Replies View RelatedI had been trying to calculate cells that contain numbers with leading zeros.
I can't convert the cells to TEXT because Formulas don't work in TEXT Cells.
I cant use Custom Formatting because the rows may contain different number of leading zeros.
Also Is there a way that I can trim the numbers from Col A and put them in C?
Currently I don't like having to change the RIGHT(G2, 3) to RIGHT(G2, 4)
if the number is smaller than the number of char. option.
I have a macros which copies a column of cells to a different spreadsheet and does a few other complex tasks with the data. Some of the data are reference numbers such as 00012345 or 001 which is changed to 12345 and 1 after being copied. What macros could I use to copy this data as is without it being changed?
View 6 Replies View RelatedI have 4 columns (and a couple of other text columns) that are formatted as decimal with 6 dicimal points.
I need to create a text file with lines that are 80 bytes each from the spreadsheet - no spaces inbetween each of the characters.
The issue I am having is trying to format the 4 decimal point columns to be fixed numbers and retain the leading or trailing zeros to do a concatenation with the other columns.
Just an example of some what some of the values look like on my spreadsheet:
.123456 | .123450 | .012345 | .012340
Essentially when I'm all said and done, I would like the row to look like "text123456123450012345012340text"
I tried to format 4 new columns as general and use a "=right(cell,6)" and that worked pretty well for the cells that have leading zeros, but for the cells that have trailing zeros, it doesn't seem to pick up the zero. I tried to use a "=mid(cell,2,6)" but that didn't work either.
I want to know how to index a drop down list to be used for calculations.
Up until now I was using
Range("B1").Select 'the cell where the drop down list is
ActiveCell.Formula = SiteID 'site id
But for whatever reason it trims a trailing zero from SiteID when setting it in the second line. SiteID is a VBA string.
Indexing it would work, as would preserving the zero so help on either one is appreciated. Auto Merged Post Until 24 Hrs Passes;Correction, I lied. I was using this line to set it.
Range("B1").Select 'the cell where the drop down list is
ActiveCell.FormulaR1C1 = SiteID 'site id
i cant do this from importing the data, so instead i have to try and fix it with code. I get a sheet of data from an external source that removes the 0's in the front of the number. Its only a 4 digit number so 21 would be 0021. Now i have been able to trap the data i think i would need. i created a =len() statement to tell me how many numbers each cell has. here is the code i think how it would work.. i just need a little help with filling in the blanks. I would assume its something to the lines of " 00+string value if it was 2 numbers needed.
B2 has the Len values (4,3,2,1 etc) and A1 is the original string that has the values.
So i want the code to add 1 2 or 3 zeros to the front of the number based on the len value.
Range("B2").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(0, 0).Select
Select Case ActiveCell.Value
Case Is = "3"
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(1, 1).Select
Case Is = "2"
ActiveCell.Offset(-1, 0).Select
ActiveCell.Offset(1, 1).Select......................
I have managed to retain leading zeros in a cell by formatting the cell and selecting Number and Custom and adding the maximum number of zeros I want to have in front of the number in the cell i.e. 000002.
I want to have another cell in the spread sheet which contains the value 35394000002 using the formula =A24&B24.
When I use this formula I get 353942. How can I retain these zeros?
I have a spreadsheet with numbers of various lengths.
Sometimes they are preceded with a period and have one at the end as well.
Examples: of their present state
.11110000.111111.000000.
111111.1111111.000000.
100000.000000.0000.110001.
Examples: of desired state
10000.111111.000000
111111.1111111.000000
100000.000000.0000.110001
Is their a way I can create a new column and insert a formula, then drag it down so that it will delete the first or last character, if the character is a period?
Any easy way to remove all spaces from a cell, both leading and trailing? I find it hard to believe that Excel doesn't have this functionality. I don't particulary want to write a VBA script since I have never done it but if that's the only way, I'd love to know how to write it. I have looked everywhere but obviously not in the right places.
View 4 Replies View RelatedI am using the following code to import an excel file into an existing sheet. The problem I am having is the way some of the cells are being imported. Some of the cells have spaces before and after the number.
I need to delete the leading and trailing spaces for each cell affected. Is there a code I can incorporate to do this? BTW…the columns effected are columns F & G.
to trim leading and trailing spaces from values I'm getting from a For Next routine. I'm using c as my variable and Trim(c.value) as the operation.
There are other routines that search for the explicit string that's the result of the trimmed value and some can't be found because the trim as I'm using it isn't trimming.
I wrote a tool that people at work use. They initially need to paste in a bunch of customer locations with Address, City, State, Zip, etc. Sometimes the Users have "bad input" data that has non-breaking spaces, multiple space between words, or leading and trailing spaces and nonbreaking spaces. I have code to get rid of all of those problems. However, the Users often use their data for other important functions at work. So I want to give them a message to let them know that their Original Data is "bad".
So instead of just "Fix" . . . I want to "Report the problem", then "Fix". I need to identify exactly what problem was found - not just tell the User that their data is bad.
I wrote a simple Search routine with error handling that identifies 2 of the 4 cases and notifies the User:
Case 1) ASCII 160 (non-breaking space, HTML  
Case 2) multiple spaces (2 or more consecutive spaces)
Case 3) Leading or Trailing Spaces (ASCII 032)
Case 4 Leading or Trailing non-breaking spaces (ASCII 160, which is HTML  )
I cannot quite figure out how to find the 3rd and 4th Cases. If anyone can help me with Case 4 especially, then I can probably do the same thing for Case 3.
I think it will work to somehow use this idea - the code is not even real code but it is just conceptual:
RIGHT(CellReference, 1) = Char(160) or Char(032)
LEFT(CellReference, 1) = Char(160) or Char(032)
Anyway, here is what I have so far . . .
Sub NotifyBadInput
ErrorFlag = False
Cells.Select ' select entire worksheet
' BAD INPUT 1 - lLook for any occurence of ASCII 160 (non-breaking space, HTML  )
' and Notify the User if any of his Input cells contain  's
On Error Goto errormsg1
Selection.Find(What:=" ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
While entering data space is given in the first and last of each cell content. For example
if there is a word Alex Patrix in a cell, space is given before A of alex and after x of Patrix. This is done fo many cells. I want to remove only initial and last space which is un-necessary.
The space caused problem to compare cell so i've to remove space.
I've around 2500 cells with this problem.
I want to alert a user that he or she has typed in a text string that begins or ends with an apostrophe ' or begins or ends with a quotation mark " so that they can take corrective action in removing these characters. The reasons for this are superflous to this post but what I thought was a logical answer returns a formula error. Here's the scenario:-
A user enters a string of text in cell A1.
Cell B1 checks if the text, if any, in A1 begins or ends with a ' or a " and if it does, returns an "Error" message
The formula I've tried in B1 is =IF(OR(LEFT(A1,1)="'",LEFT(A1,1)=""",RIGHT(A1,1)="'",RIGHT(A1,1)=""")),"Error","Ok") but Excel will have none of it.
Now I have a decimal column and I would like to remove all of the trailing zeros. It is using the number format. How do I accomplish this?
View 10 Replies View RelatedI am trying to insert a leading zero for single digits. A3 contains a date, i.e. 01/10/08
d = Range("A3")
dDay = Format(d, "dd")
'The result is '10'
dPrevDay = dDay - 1
'The result is '9'
dPrevDay = Format(dDay - 1, "dd")
'I anticipated the result of this to be '09', but it is '08'
How do I get the result of '09'?
I'm attempting to create a spreadsheet to calculate various things at my work, however I'm running into a problem that I can't solve. In one cell, I have a formula that returns an value to two significant figures. The number of decimal points that this value has is then used at various points throughout the sheet to truncate/round/etc. However, if the first value has a trailing zero as the second significant figure (ex. 0.20), that trailing zero is dropped. This creates problems since downstream calculations are then truncating to an incorrect number of decimal points. How to retain this trailing zero IF the formula results in one?
View 4 Replies View RelatedI have seen a few posts that are close to this but not quite right. I have a situation where I need to do "=LEN..." formula that counts trailing zeros at the end of numbers (meaning zeros that are displayed at the end of a number but do not appear in the actual cell value).
example:
Cell E19 contains the actual value 4773.52, but it is displayed in currency format with FOUR digits so it displays as $4,773.5200.
The formula I am using is =LEN(MID(E19,FIND(".",E19)+1,4)). The result is 2, which means it does not include the last two trailing zeros in the LEN count.
Is there anyway to get it to include the trailing zeros so the result equals 4? Either w/formula, macro, or UDF?
Is weird I know, but I need to know how many decimal places (displayed, not actual) for many numbers on many sheets that I do not create myself.
I need to never have a trailing zero be displayed but still have decimals displayed (we can use up to 3 digits for the example) Here's a list of test cases
Value______Display
1.234567___1.235
1.234______1.234
1.23_______1.23
1.230______1.23
1.2________1.2
1.200______1.2
1.0________1
1.000______1
1.020______1.02
1.0002_____1
0__________0
0.001______0.001
0.0001_____0
The only time I want to see a 0 is when the answer is 0 (or rounded to 0) or when 0 is required in the middle. This is for patient safety if you are curious. 2.0 when printed out or written by hand can be mistakenly read as "20" in the heat of things, thus 2.0 should be written/printed as "2" (no decimal on the end) not as "2." even, just "2"
I have formatted the cells to be '0000' (showing the leading zero) however when my VBA code runs it copies the cell value into a string but when I stop the code running to check the value the leading zero(s) are gone. I can see they are the same on both worksheets in the correct format. I've tried a few others like integer and long but same same.
View 3 Replies View RelatedI have a CSV file I'm importing into Excell that contains leading zeros in a number field. I cannot get the zeros to display in Excel, but the user of the report needs to see them. Is there a way to dsiplay the leading zeros on a number field?
View 10 Replies View RelatedHow do I keep leading zeros in this code? I am incrementing a value with in a string.
TextBox1.value = "PRO 001"
I have received an attachment of a .csv file from a client and one of the fields is a tenant ID number that sometimes begins with 1 or more zeros. When I open the attachment it is opening in Excel and dropping the zeros. How can I open that up and keep the zeros. I need those leading zeros.
View 3 Replies View RelatedI m trying to count strings that have a leading zero with COUNTIF?
Basically, if trying to count "01111", but "01111" does not exist in the data set, and "1111" DOES exist in the data set then COUNTIF returns 1.
I need a formula that will make a 4 digit number by adding leading zeros. If the number is already 4 digits then don't add leading zeros, do nothing. all numbers will be 1,2,3,4 digits long.
For Example,
if number is 1 then make it 0001
if number is 11 then make it 0011
if number is 111 then make it 0111
if number is 1111 then leave it 1111
When I save my file as a csv, it drops leading zeros in my zip codes. Formatting the column as text or even zip code only helps when I save it as xls - as soon as I switch it to csv it drops them.
View 9 Replies View Related