boa tarde galera!
Como aplicar uma fórmula para toda uma coluna com formatação de formula apenas na primeira linha, porém sem preenchimento das demais, isto é, sem puxar com o mouse até célula deseja...deixar ela até quando as linhas forem sendo inseridas.
Por que tenho um formulário em vba que vai inserir dados nas células, porém os cálculos são feitos na planilha mesmo... ai gostaria que à medida em que as células fossem preenchidas a formula fosse sendo aplicada ao invés de aplicar a um intervalo definido, puxando pelo canto inferior direito da célula em que tem a fórmula até um limite.
a formula é simples: H2=(F2+G2)-(D2+E2) → I2= (H2/G2)
segue anexo a planilha
*Há apenas um probleminha, caso deseja fazer o teste inserindo as informações pelo form; para salvar as informações do formulário na planilha...antes de salva as informações na sheets("dados") o cód do btn_calcular faz uma validação em cima da concatenação entre Trim$(frm.txt_periodo.Text) & Trim$(frm.txt_empresa.Text) para ver se já tem um registro com essas mesmas informações e informando ao usuário se deseja sobrescrever ou não, porém esta dando erro ...se puder dar uma ajuda nesse caso também, será show..... senão ...diante mão obrigado pela atenção!
obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Aplicar formula em colunas sem preenchimento das linhas
Moderador: joseA
-
- Colaborador
- Mensagens: 69
- Registrado em: Sáb Jul 22, 2017 10:17 am
Re: Aplicar formula em colunas sem preenchimento das linhas
Rafael,
Para realizar tal tarefa, experimente criar, ou se já possuir, uma variável para armazenar a linha em que está trabalhando. Seria algo parecido com o que segue (bem porcamente ):
Creio que assim, conseguirá gravar na respectiva linha os cálculos obtidos das fórmulas.
Abs
Para realizar tal tarefa, experimente criar, ou se já possuir, uma variável para armazenar a linha em que está trabalhando. Seria algo parecido com o que segue (bem porcamente ):
Código: Selecionar todos
Dim variavelLinha As Long
variavelLinha = ActiveCell.Row
Dim somaInicial As Long
Dim somaFinal As Long
Dim divisao As Double
somaInicial = Cells(variavelLinha, "F") + Cells(variavelLinha, "G")
somaFinal = Cells(variavelLinha, "D") + Cells(variavelLinha, "E")
Cells(variavelLinha, "H") = (somaInicial) - (somaFinal)
divisao = Cells(variavelLinha, "H") / Cells(variavelLinha, "G")
Cells(variavelLinha, "I") = divisao '- (divisao / 100)
Abs
-
- Colaborador
- Mensagens: 69
- Registrado em: Sáb Jul 22, 2017 10:17 am
Re: Aplicar formula em colunas sem preenchimento das linhas
#Porcamente nd...Show! ..srobles
Não era bem assim, mas dessa forma ficou bem melhor, pois deixando os cálculos por conta dos recursos nativos do Excel não está dando certo, além de provocar lentidão ao salvar/carregar a planilha...
Mais uma vez muito obrigado meu caro
Não era bem assim, mas dessa forma ficou bem melhor, pois deixando os cálculos por conta dos recursos nativos do Excel não está dando certo, além de provocar lentidão ao salvar/carregar a planilha...
Mais uma vez muito obrigado meu caro
Re: Aplicar formula em colunas sem preenchimento das linhas
Rafael,
O lado bom de fazer deste modo, é que sua pasta de trabalho terá uma redução considerável com relação ao tamanho em MB futuramente. É de conhecimento de todos (creio eu) que, quanto mais campos formulados a pasta possuir, maior será seu tamanho.
Espero que chegue ao resultado esperado com esta opção.
Abs
O lado bom de fazer deste modo, é que sua pasta de trabalho terá uma redução considerável com relação ao tamanho em MB futuramente. É de conhecimento de todos (creio eu) que, quanto mais campos formulados a pasta possuir, maior será seu tamanho.
Espero que chegue ao resultado esperado com esta opção.
Abs