Página 1 de 1
Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 19:31
por 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
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 19:53
por osvaldomp
Experimente:
Código: Selecionar todosSub 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
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 20:16
por fernandoreus
Funcionou, só que se eu ter mais colunas, como funcionaria para alterar o vba?
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 20:19
por fernandoreus
conforme anexo, aplicar a mesma formula so que na coluna 4 e 6 e os resultados mostrar na coluna 15 e 16
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 20:29
por fernandoreus
Consegui
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 20:37
por osvaldomp
fernandoreus escreveu: ↑22 Nov 2020 às 20:19
... 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.
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 20:51
por 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
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 21:03
por osvaldomp
osvaldomp escreveu: ↑22 Nov 2020 às 20:37
fernandoreus escreveu: ↑22 Nov 2020 às 20:19
... 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.
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 21:08
por 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
Re: Aplicar a mesma fórmula de 4 em 4 linhas até linha A ficar vazia.
Enviado: 22 Nov 2020 às 21:24
por osvaldomp
Insere fórmulas em O:P.
Código: Selecionar todosSub 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