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
Agradeço desde já!
Obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Adicionar Formula para cada Cadastro [Resolvido]
Adicionar Formula para cada Cadastro [Resolvido]
- 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.
- Reinaldo
- 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
Veja se é o que espera
- Anexos
-
- Cadastro.zip
- (59.36 KiB) Baixado 222 vezes
Re: Adicionar Formula para cada Cadastro [Resolvido]
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
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!!!!!
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
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!!!!!