camper

  • Thread starter Thread starter gkelle
  • Start date Start date
G

gkelle

I'm trying to write the following formula into a cell and keep gettin
the runtime error 1004

Worksheets("Part list").Cells(lgPartListRow
Range("Type").Column).Formula =
"=IF(MID(" & sFindPart & ",5,1)=" & Chr(34) & "W" & Chr(34) & ","
Chr(34) & "F" & Chr(34) & ",MID(" & sFindPart & ",5,1))"

sFind part is a string containing a part # like 2201F060-51
the Mid function works when using the watch windo
 
You need to precede and follow the sFindPart variable with
another Chr(34) in both instances. Set the formula to a
string prior to setting the formula's property value to
it, and then take a look at it in debug and you'll see
what I mean.

HTH.

-Brad
 
Back
Top