Alexandre,
Não entendi muito bem sua pergunta, mas caso esteja querendo aplicar na celula F2 essa formula, segue o código.
Sub Formula()
Range("F2").Select
Range("F2").FormulaLocal = _
"=SE(E(C3="""";D3="""");"""";SE(OU(E(C3=102;E3=""AC"");E(C3=102;E3=""CS"");E(C3=102;E3=""ME"");E(C3=102;E3=""PF""));102;SE(OU(E(C3=107;E3=""AV"");E(C3=107;E3=""CM"");E(C3=107;E3=""CT""));107;SE(E(C3=104;E3=""TM"");104;""DELETE""))))"
End Sub
Caso você não queira isso, explique melhor e anexe um modelo.
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/08/2011 6:57 pm