Loop through range, evaluate value, convert to fractional #

[DougStroud]

Working on line of code that will evaluate for a value and make changes w/ code.

Loop through the Range F4:F.

If in the range of F4:F the value "Hat" or "Shoe" is present, Then
offset to column "M" and test if the corresponding value is numeric, if it is and if it is a decimal value, convert to a fractional value.

Example:
F887 = "Hat"
M887 = "7.25"
Convert M887 to "7 1/4" (without quotes)

Here is where I am;

For Each c In Range("F4:F" & LRow)
if c.Value="Hat" & c.offset(isnumeric(0,7)) and if c.value/1 <>1 then

Thanks,

Doug

 

[DougStroud]

I am cobbling this together-
I have the loop finding the first value "Hat" and does the formula portion of the procedure.
I need to add a second If statement to determine if it is Numeric.
My code is failing on the second If

For i = 1 To LRow
        If Cells(i, "F") = "Hat" if cells(isnumeric(i,"m")Then
        Cells(i, "M").Value = Cells(i, "M") / 2
       End If
    Next i

 

[DougStroud]

I have cross-posted this on Vbax:
http://vbaexpress.com/forum/showthread.php?t=13939