Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
2
respostas

Como copiar fórmulas ?

Referente ao curso VBA: Automatizando tarefas no Excel, no capítulo Trabalhando com arquivos e atividade Método Activate

por Rafael Jóia
| 80.4k xp | 20 posts

Olá pessoal,

Na Aula 4 - Trabalhando com Arquivos - Atividade 3 Método Activate, aprendemos a copiar de uma Base de dados (Janeiro.xlsx) para uma outra planilha. A Vivi mostrou como copiar os dados e também copiar a formação, utilizando o: Range("a16").PasteSpecial xlFormats Gostaria de saber como copiar as formulas da célula, eu apliquei PasteSpecial xlPasteFormulas e não funcionou. Conhecem outro método?

Segue trecho do meu código:

   Workbooks("importação de Texto - Alura").Activate
    Range("a16").PasteSpecial xlFormats
    Range("a16").PasteSpecial xlPasteFormulas
    Range("a16").PasteSpecial xlValues
    Range("a1").Select
2 respostas
solução!
por André Chaves
| 1967.1k xp | 2579 posts
Instrutor Lider técnico

Oi Rafael, tudo bom?

Qual o problema que ocorre com o xlPasteFormulas? Testei aqui e funcionou normalmente. A unica coisa que precisamos lembrar é que ao copiar e colar uma formular estamos levando os valores relativos. Se você quer que sua formula trabalhe com valores absolutos você precisa especificar com o $. Por exemplo:

=$B$1+$C$1

Aqui estamos dizendo que estamos somando B1 e C1 independente de onde copiarmos ou colarmos a formula.

No meu drive:

https://drive.google.com/file/d/0B9OHial84ovnSGtNQkR1Q2Y3TjA/view?usp=sharing

Eu subi um exemplo de utilização. Talvez ajude.

Qualquer problema é só falar.

Abraço =)

por Rafael Jóia
| 80.4k xp | 20 posts

Olá André, por aqui tudo na paz!

Faltou a definição do valor absoluto, a fórmula da planilha que fiz cópia estava sem o "$", ou seja, estava relativo.

Obrigado pela ajuda, marquei como solucionado! :) Abraços