Este fórum está sendo desativado

[Sergiofmp]

Boa tarde,

Estou usando o código abaixo para inserção de fórmulas em algumas células do Excel, mas terei que repetil-lo 31 vezes

Range("E5").FormulaLocal = "=SE(E8="""";"""";DATA.VALOR(E8))"
Range("F5").FormulaLocal = "=SE(F8="""";"""";DATA.VALOR(F8))"
etc...
Ele é usado para converter valores de uma planilha importada para o excel
É possível otimizar isso?

Obrigado!

[laennder]

Tente a fórmula abaixo:

Código: Selecionar todos

Range("E5:AH5").FormulaR1C1 = "=IF(R[3]C="""","""",DATEVALUE(R[3]C))"

[Sergiofmp]

Perfeito Laennder! Muito obrigado!!!