Add a specific number of decimals places before a number

[ArnMan]

Hello,
I was wondering how I could get a number from a cell, Lets say A1 = 3, and take another number, could range from 0 to 10, from D1 = 2, or something and take the value in A1 and turn it in .03 in cell C5, using VBA.
D1 is going to set the number of decimal places including the value in A1.
Examples
A1 3
D1 0
C5 3

A1 3
D1 4
C5 .0003

A1 3
D1 3
C5 .003

A1 3
D1 8
C5 .00000003

I know I could C5.formula and do all kinds of if statements, but I was hoping for more VBA simpleness.

Any help would be greatly appreciated.

Thank you in advance.

 

[ArnMan]

Re: Would like to add a specific number of decimals places before a number

I wanted to thank you for helping
I was able to use the formula perfectly It works great it gave me the value I was looking for and have been able to apply it to my project.

Thank you again

For the formula...

=IFERROR(0+("."&REPT(0,D$1-1)&A1),"")

For the code...

[table="width: 500"]
[tr]
	[td]Sub MakeIntegersToFloatingPoint()
  Dim Addr As String
  Addr = "A1:A" & Cells(Rows.Count, "A").End(xlUp).Row
  Range(Addr) = Evaluate(Replace("IF((D1=0)+(@=""""),IF(@="""","""",@),"".""&REPT(0,D1-1)&@)", "@", Addr))
End Sub[/td]
[/tr]
[/table]

 

[Scott Huish]

Re: Would like to add a specific number of decimals places before a number

I think this formula would do it:

=A1/(10^D1)

 

[Rick Rothstein]

Re: Would like to add a specific number of decimals places before a number

I think this formula would do it:

=A1/(10^D1)

Your formula returns the number in cell A1 when D1 is 0 or blank... the OP seemed to indicate in Message #8 (and seemed to confirm in Message #11 ) that he did not want to display anything when D1 was 0 or blank.

 

[Scott Huish]

Re: Would like to add a specific number of decimals places before a number

He didn't really say that he wanted nothing, just not the error. However if that is the case:

=IF(D1=0,"",A1/(10^D1))