Excel Copiar e colar Formulas VBA

[Ivan Aparecido Pereira]

Bom dia. Tenho uma planilha onde preciso copiar a formula que esta na coluna I3 e colar no restante das linhas, o problema que a planilha tem varios intervalos em branco.

 

    Range("I3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(Planilha1!RC[-6]="""","""",CONCATENATE(Planilha1!R2C[-6],"" "",""/"","" "",Planilha1!RC[-6]))"

 

Obrigado

 

 

[Ivan Aparecido Pereira]

Bom dia 

 

Preciso de um código para copiar a formula que esta na I3 e colar até a AE15. A planilha muda todos os dias, a formula sempre se inicia na célula I3, porém pode variar  a quantidade de colunas e linhas.

 

[Visitante]

30 minutos atrás, Ivan Aparecido Pereira disse:

Preciso de um código para copiar a formula que esta na I3 e colar até a AE15.

Informe com exatidão qual o intervalo que receberá a fórmula ~~~> XX00:AE15

 

... porém pode variar  a quantidade de colunas e linhas.

Em que essa variação poderá afetar o intervalo que receberá a fórmula ou poderá afetar a própria fórmula ?

 

 

Anexe diretamente aqui no fórum uma amostra do seu arquivo Excel. Imagens não servem.

Arquivos com macros precisam ser compactados antes de anexar.

[Midori]

Segue,

 

Sub CopiarFormula()
    Range("I3").Copy
    Range("I3:EA15").PasteSpecial xlPasteFormulas
End Sub

 

Para automatizar a questão da variação de linhas e colunas, é só editar o range que cola a fórmula.

[Patropi]

@Ivan Aparecido Pereira

 

Sem anexar um arquivo Excel ocm poucos dados com o resultado desejado, fica difícil o pessoal ajudar.

Arquivos com macro devem ser Zipados, senão o fórum não aceita.

 

[]s