Custom Formatting

Hi,

I have a cell that I want to have a number and a letter in, ie 0.02 g.
I need to be able to set this format based on another cells current
formatting which might be 0.000 or 0.000 0 or 0.000 00 etc. (Every 3
decimal places there goes a space before more decimal place holders
are listed.)

I currently use a macro tied to a button called Decimal Place to
change the rest of the sheet based on a keycell's decimal placing, but
I dont know how to have it do it to a cell and then add a "g" after
it.

Sub DP()

Application.ScreenUpdating = False
Range
("f18,i21:i31,q15,g18,e34,c20:c30,k21:k31,m21:m31, o2131,q21:q31,s21").NumberFormat
= _
Range("q16").NumberFormat

End Sub

TIA

Aaron.

Hi,

The basic format is something like

General "g"

and in code, with a fancier format"

Selection.NumberFormat = "0.000 000 000 ""g"""

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Aaron" wrote:

Hi,

I have a cell that I want to have a number and a letter in, ie 0.02 g.
I need to be able to set this format based on another cells current
formatting which might be 0.000 or 0.000 0 or 0.000 00 etc. (Every 3
decimal places there goes a space before more decimal place holders
are listed.)

I currently use a macro tied to a button called Decimal Place to
change the rest of the sheet based on a keycell's decimal placing, but
I dont know how to have it do it to a cell and then add a "g" after
it.

Sub DP()

Application.ScreenUpdating = False
Range
("f18,i21:i31,q15,g18,e34,c20:c30,k21:k31,m21:m31, o2131,q21:q31,s21").NumberFormat
= _
Range("q16").NumberFormat

End Sub

TIA

Aaron.

On Dec 9, 3:52*pm, Shane Devenshire
wrote:
Hi,

The basic format is something like

General "g"

and in code, with a fancier format"

Selection.NumberFormat = "0.000 000 000 ""g"""

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire

"Aaron" wrote:
Hi,

I have a cell that I want to have a number and a letter in, ie 0.02 g.
I need to be able to set this format based on another cells current
formatting which might be 0.000 or 0.000 0 or 0.000 00 etc. (Every 3
decimal places there goes a space before more decimal place holders
are listed.)

I currently use a macro tied to a button called Decimal Place to
change the rest of the sheet based on a keycell's decimal placing, but
I dont know how to have it do it to a cell and then add a "g" after
it.

Sub DP()

Application.ScreenUpdating = False
*Range
("f18,i21:i31,q15,g18,e34,c20:c30,k21:k31,m21:m31, o2131,q21:q31,s21")..NumberFormat
= _
*Range("q16").NumberFormat

End Sub

TIA

Aaron.

Hmm ive been trying out different things and Im getting there slowly.
Your suggestion has helped a lot.

cheers,

Aaron.