formula in vba
thanks, i think that's what was messing me up, the double quotes. i just had
to make the cell references absolute because i sort after i create the
table.
thanks again
--
Gary
"JE McGimpsey" wrote in message
...
One way:
Range("A1").Formula = "=MID(B7,FIND("" "",B7)+1," & _
"LEN(B7)-FIND("" "",B7,1)) & ""/""&MID(B8," & _
"FIND("" "",B8)+1,LEN(B8)-FIND("" "",B8,1))"
Note that, just as in XL strings, quotation marks need to be doubled.
OTOH, I probably would make the function more efficient:
Range("A2").Formula = "=MID(B7,FIND("" "",B7)+1," & _
"32767) & ""/""&MID(B8," & "FIND("" "",B8)+1,32767)"
where 32767 is just a number large enough to contain the entire
remainder of the string.
In article ,
"Gary Keramidas" wrote:
how would you enter this formula using vba
=MID(B7,FIND(" ",B7)+1,LEN(B7)-FIND(" ",B7,1)) & "/"&MID(B8,FIND("
",B8)+1,LEN(B8)-FIND(" ",B8,1))
|