View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
[email protected] ckramer7070@gmail.com is offline
external usenet poster
 
Posts: 22
Default Formatting issue

On Apr 5, 7:29 pm, "Peter T" <peter_t@discussions wrote:
Hi Chad,

When you add the "in" the cell contains text, so the numberformat is not
applied. For cells you want the "in" suffix try -

.NumberFormat = "0.00000000""in"""

and don't add the ' & "in" ' to your values

In passing, try and amend your code to remove all those Select/Selection's,
none are necessary.

Regards,
Peter T

wrote in message

ps.com...

I have a simple worksheet that populates the sheet with numbers based
on 3 variables from a second sheet. Everything is working correctly up
until I add a couple of text characters to each entry: "in", it is the
last process that needs to be done to the numbers - unfortunately
doing this kills the number formatting.


An example of the number entries before the "in" is added at the end:


-0.00615808


After adding the "in":


-6.15808000000001E-03in


Below is part of the routine I am using (it's rough so don't mind the
basic format):


Do
i = i + 1
Sheets(sn).Cells(i, 2).Select
Selection.Value = Sheets("Parameters").Cells(i - 1,
2).Value - Sheets("Variables").Cells(2, 3).Value
Selection.NumberFormat = "0.00000000"
Loop Until Sheets("Parameters").Cells(i, 1).Value = a


i = 0
Do
i = i + 1
Sheets(sn).Cells(i, 1).Select
Selection.Value = Selection.Value & "in"
Sheets(sn).Cells(i, 2).Select
Selection.Value = Selection.Value & "in"
Loop Until Sheets("Parameters").Cells(i, 1).Value = a & "in"


Any help is appreciated.


Chad


Thanks, works very well.