Help with formatting data in an email macro

[Hootywho]

Hello,

I am currently using an email macro that pulls information directly into the body of the email. I need help with formatting. The referenced cell is currently formatted to only show 2 decimals on the spreadsheet (19.11). The value that shows in the body is 19.1111111111111. I would like it to only show the 19.11. The following is a portion of my current code. What do I need to add to format that data in the email body?

Thanks in advance.

.body = Sheets("Homes Available").Range("f150").Value

 

[Sanjeev1976]

Hello,

I am currently using an email macro that pulls information directly into the body of the email. I need help with formatting. The referenced cell is currently formatted to only show 2 decimals on the spreadsheet (19.11). The value that shows in the body is 19.1111111111111. I would like it to only show the 19.11. The following is a portion of my current code. What do I need to add to format that data in the email body?

Thanks in advance.

.body = Sheets("Homes Available").Range("f150").Value

Use "fixed" function in your formula

 

[Hootywho]

Unfortunately I do not understand. Thanks

 

[Sanjeev1976]

Unfortunately I do not understand. Thanks

.body = Fixed(Sheets("Homes Available").Range("f150").Value,2)

 

[Hootywho]

Unfortunately that will not work. I have multiple entries of the below code and each are different. I cannot start with what you have recommended, .body = fixed, etc. I am looking to format each individual section as needed. Any other suggestions are greatly appreciated.

 

[Hootywho]

I have included more of my current code to hopefully better relay my needs.

.Body = "Available" & Sheets("Homes Available").Range("f150").Value & vbNewLine & "Comments - " & Sheets("Custom").Range("f151").Value & vbNewLine & "Prospects - " & Sheets("Prospects").Range("f152").Value

My goel is to have only the "Comments", Custom "F151" value formatted as such, 20.01 in the email body and not 20.0111111111. Unless I missed something, the recommendation did not work. Thanks!

 

[daverunt]

Hi,

You could use

Sheets("Custom").Range("f151").[COLOR=red]Text[/COLOR]

Or if it's always going to be the same format in the cell you can extract the first 5 characters using Left from the Value?

& Left(Sheets("Custom").Range("f151").Value, 5)

 

[Hootywho]

That was the ticket ".text". Thanks so much!