Logo Hardware.com.br
Victor Octavio Pereira
Victor Octav... Novo Membro Registrado
2 Mensagens 0 Curtidas

[Resolvido] Incremento em intervalo de células para fórmula VBA - Excel

#1 Por Victor Octav... 09/08/2019 - 02:08
Olá pessoal, sou novo no fórum e preciso muito de uma ajuda! Sei que o título está confuso, mas vou tentar explicar melhor.

Preciso de uma fórmula que incremente o intervalo de células que estou selecionando. Como não tenho experiência com VBA, elaborei algumas coisas que retornaram sempre o erro 1004 (erro de definição de aplicativo ou de definição de objeto).

O que eu preciso fazer segue essa ideia:

Sub conta()
For i = 0 To 59
Cells(15 + i, 10).Value = "=RAIZ(SOMAQUAD(H(3+(i*10)):H(12+(i*10))/CONT.VALORES(H(3+(i*10)):H(12+(i*10))))"
Next i

End Sub



Sei que a referência às células que usei foi o primeiro problema, consegui solucionar substituindo o "H3" por R[-12] C[-2] por exemplo, mas ainda tenho o erro ao somar um incremento na linha.

Atualmente deixei assim o código:

    For i = 0 To 59
Cells(15 + i, 10).Value = "=SQRT(SUMSQ(R[-12 (+i*9)]C[-2]:R[-2 (+i*9)]C[-2]/COUNTA(R[-12 (+i*9)]C[-2]:R[-3 (+i*9)]C[-2]))"
Next i

As partes entre parênteses (+i*9) é o que preciso incrementar mas não consigo colocar talvez por erro de sintaxe.

Não tenho a planilha para anexar, então vou tentar explicar o que estou tentando fazer. Se ainda assim não ficar entendível posso simular alguma coisa pra mostrar a ideia.
Tenho uma lista com 600 dados e preciso dessa conta (raíz(somaquad/cont.valores)) a cada intervalo de 10 destes dados. Então na célula J15 o "valor" a ser preenchido é "=RAIZ(SOMAQUAD(H3:H12)/CONT.VALORES(H3:H12))"; na célula J6 preciso preencher com "=RAIZ(SOMAQUAD(H13:H22)/CONT.VALORES(H13:H22))"; na célula J7 "=RAIZ(SOMAQUAD(H23:H32)/CONT.VALORES(H23:H32))"...

Alguém consegue me iluminar com uma solução?
Obrigado desde já!

Grande abraço a todos da comunidade,
Victor.
P@tropi
P@tropi Highlander Registrado
3.4K Mensagens 2.6K Curtidas
#3 Por P@tropi
09/08/2019 - 12:19
Boa tarde

Seja bem-vindo ao fórum!



For i = 0 To 59
Cells(15 + i, 10).Formula = "=SQRT(SUMSQ(H" & 3 + 10 * i & ":H" & 12 + 10 * i & &quot)/COUNTA(H" & 3 + 10 * i & ":H" & 12 + 10 * i & &quot"
Next i


Se foi útil, clique em Curtir.
Se a resposta solucionar a dúvida, marque o tópico omo Resolvido.
Na minha assinatura tem um link para o Guia de Utilização do Fórum.

[]s
Se foi útil, clique em Curtir.
Devemos combater o Comunismo ou qualquer doutrina totalitária.
Victor Octavio Pereira
Victor Octav... Novo Membro Registrado
2 Mensagens 0 Curtidas
#4 Por Victor Octav...
09/08/2019 - 14:14
P@tropi disse:
Boa tarde

Seja bem-vindo ao fórum!

For i = 0 To 59
Cells(15 + i, 10).Formula = "=SQRT(SUMSQ(H" & 3 + 10 * i & ":H" & 12 + 10 * i & &quot)/COUNTA(H" & 3 + 10 * i & ":H" & 12 + 10 * i & &quot" Next i


Se foi útil, clique em Curtir.
Se a resposta solucionar a dúvida, marque o tópico omo Resolvido.
Na minha assinatura tem um link para o Guia de Utilização do Fórum.

[]s


Excelente!!!! Exatamente o que eu precisava smile.png
Muitíssimo obrigado pela rápida ajuda!
Grande abraço!
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal