Percentage

[billandrew]

Can someone assist in dividing a cell by all cells in range. Something like this.

I have lr as follows:

Dim lr As Long: lr = Range("B" & Rows.Count).End(xlUp).Row

range("D2:D" & lr) = "C2/sum("C2:C" & lr)"

Thank You

 

[footoo]

Range("D2:D" & lr).Formula = "=C2/sum(C$2:C" & lr & ")"

 

[billandrew]

Ugh. The quotation marks.Is there any reference to a descriptive of this method. I always seem to have an issue here.Thank You very much!

 

[footoo]

One way to get the correct quotation marks is via the macro recorder.

 

[billandrew]

Ah. Ok Great Thanks Again.