Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Aplicar formula em colunas sem preenchimento das linhas

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

RAFAEL AMORIM
Colaborador
Colaborador
Mensagens: 69
Registrado em: Sáb Jul 22, 2017 10:17 am

Aplicar formula em colunas sem preenchimento das linhas

Mensagem por RAFAEL AMORIM »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Aplicar formula em colunas sem preenchimento das linhas

Mensagem por srobles »

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 :lol: ):

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)
Creio que assim, conseguirá gravar na respectiva linha os cálculos obtidos das fórmulas.

Abs


RAFAEL AMORIM
Colaborador
Colaborador
Mensagens: 69
Registrado em: Sáb Jul 22, 2017 10:17 am

Re: Aplicar formula em colunas sem preenchimento das linhas

Mensagem por RAFAEL AMORIM »

#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


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Aplicar formula em colunas sem preenchimento das linhas

Mensagem por srobles »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder