Fraction Format with VBA

[ToddG]

I thought I could get away with a custom cell format to accomplish this but it doesn't appear that it will work that way.

This is the code I tried to do this with:

<font face=Courier New><SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Range("D:D")
<SPAN style="color:#00007F">If</SPAN> c.Value = "Total" <SPAN style="color:#00007F">Then</SPAN>
c.Offset(0, 1) = Format(Cells(c.Row, "b"), "# ##/##") & " x " & Format(Cells(c.Row, "c"), "# ##/##")
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> c</FONT>

But I am not ending with fractions so obviously my formatting is incorrect.

Any input would be appreciated

 

[HalfAce]

Hello Todd,
It's hard to tell your exact intent in that post, but perhaps this will help?

For Each c In Range("D:D")
  If c.Value = "Total" Then
    With c(1, 2)
      .Value = Cells(c.Row, 2) * Cells(c.Row, 3)
      .NumberFormat = "# ?/?"
    End With
  End If
Next c

{EDIT:}
Multiply column B times column C and put the result in column E formatted as a fraction?

 

[ToddG]

Hi HalfAce,

No, actually i'm joining the value in column B, an "x", and the value in column C.

for example: 4 13/16 x 1 1/4 should be the result.

 

[ToddG]

Fixed the formatting of my code...maybe this will help.