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

Adicionar Formula para cada Cadastro [Resolvido]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
puruosso
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Jul 22, 2011 4:18 pm

Adicionar Formula para cada Cadastro [Resolvido]

Mensagem por puruosso »

Olá!

Queria adicionar fórmulas nas colunas F até a M quando eu fizesse um cadastro novo, ao invés de adicionar manualmente depois de cada cadastro. (as fórmulas que preciso estão nas respectivas colunas)

Tentei pesquisar como fazer, mas infelizmente não entendi o que li... :/

Sou iniciante em VBA e estou aos poucos tentando aprender sobre VBA :D

Agradeço desde já!

Obrigado!
Anexos
Cadastro.rar
(89.81 KiB) Baixado 207 vezes
Editado pela última vez por puruosso em Dom Ago 17, 2014 4:52 pm, em um total de 1 vez.


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Adicionar Formula para cada Cadastro

Mensagem por Reinaldo »

Veja se é o que espera
Anexos
Cadastro.zip
(59.36 KiB) Baixado 222 vezes


puruosso
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Jul 22, 2011 4:18 pm

Re: Adicionar Formula para cada Cadastro [Resolvido]

Mensagem por puruosso »

Obrigado!!!

Deu certinho!!!
Agora aprendi mais uma função heheheheh

Mudei só uma linha da fórmula que você fez, porque senão o primeiro cadastro acabava copiando o cabeçalho :D

Ficou assim:

Private Sub copiaFormula(ByVal Linha As Long)
Range("P1:W1").Copy 'aqui onde se encontram as fórmulas
Range("F" & Linha).Select
ActiveSheet.Paste
Application.CutCopyMode = False
[A1].Select
End Sub

Demorei um pouco para descobrir como fazia para copiar as celulas que queria, mas achei. o/

Obrigado mesmo!!!!!


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