Este fórum está sendo desativado

[fernandoreus]

Boa noite

Pesquisei no fórum mas não encontrei, preciso conforme arquivo anexo, que ao colocar uma matriz a6:c31, ele aplique um loop aplicando a fórmula que está na D6 e E6 a cada 4 linhas na coluna D e na coluna E até A ficar vazia.

Obrigado

Fernando Reus

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub InsereFórmula()
 Dim k As Long
  For k = 6 To Cells(Rows.Count, 1).End(3).Row Step 4
   Cells(k, 4).Resize(, 2).FormulaR1C1 = "=SUM(RC[-2]:R[3]C[-2])/4/1000"
  Next k
End Sub

[fernandoreus]

Funcionou, só que se eu ter mais colunas, como funcionaria para alterar o vba?

[fernandoreus]

conforme anexo, aplicar a mesma formula so que na coluna 4 e 6 e os resultados mostrar na coluna 15 e 16

[fernandoreus]

Consegui

[osvaldomp]

... conforme anexo, aplicar a mesma formula so que na coluna 4 e 6 e os resultados mostrar na coluna 15 e 16

A planilha anexada não ajuda a entender o que você quer.
Você quer aplicar a fórmula em uma célula mas quer o resultado em outra célula ... isso não faz sentido. Explique com clareza.
Disponibilize uma nova planilha com as fórmulas desejadas em cada coluna.

[fernandoreus]

Na verdade não consegui separar as colunas na fórmula, segue exemplo como eu quero que fique. para fazer vba que aplique a formula nas células amarelas

[osvaldomp]

... conforme anexo, aplicar a mesma formula so que na coluna 4 e 6 e os resultados mostrar na coluna 15 e 16

A planilha anexada não ajuda a entender o que você quer.
Você quer aplicar a fórmula em uma célula mas quer o resultado em outra célula ... isso não faz sentido. Explique com clareza.
Disponibilize uma nova planilha com as fórmulas desejadas em cada coluna.

[fernandoreus]

Desculpe, agora está o arquivo correto colunas O e P é como quero que o VBA faça pulando de quatro em quatro linhas conforme a primeira planilha que enviei até a coluna A ficar vazia

[osvaldomp]

Insere fórmulas em O:P.

Código: Selecionar todos

Sub InsereFórmulaV2()
 Dim k As Long
  For k = 6 To Cells(Rows.Count, 1).End(3).Row Step 4
   Cells(k, 15).FormulaR1C1 = "=SUM(RC[-11]:R[3]C[-11])/4/1000"
   Cells(k, 16).FormulaR1C1 = "=SUM(RC[-10]:R[3]C[-10])/4/1000"
  Next k
End Sub