Excel - VBA/Macro para colar valores especial

Milla17 · 20 de março de 2017

Olá

Gostaria da ajuda de vocês para alterar a macro abaixo de forma que ela cole valores, ela foi feita para copiar um intervalo de células em uma aba e colar em outra.

A aba eu estou copiando tem muitas fórmulas, e como a macro que eu tenho não usa o colar especial - valores, muitas informações não aparecem na outra aba.

Sub CopiarDadosEntrePlanilhas()
'copiar dados
Sheets("TUs").Range("a3:u45").Copy
'ativa a planilha de destino
Sheets("Sheet2").Activate
'seleciona o intervalo de destino
Range("a3").Select
'cola os dados no destino
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

agradeço a ajuda

diego_janjao · 21 de março de 2017

@Milla17 Altere seu código para este:

Sub CopiarDadosEntrePlanilhas()
'copiar dados
Sheets("TUs").Range("a3:u45").Copy
'ativa a planilha de destino
Sheets("Sheet2").Activate
'seleciona o intervalo de destino
Range("a3").Select
'cola os dados no destino
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Milla17 · 21 de março de 2017

Ainda não rolou, aparece : can't execute a code in break mode

diego_janjao · 21 de março de 2017

@Milla17 poderia disponibilizar o arquivo?

Milla17 · 21 de março de 2017

6 horas atrás, diego_janjao disse:

@Milla17 poderia disponibilizar o arquivo?

Segue anexo um exemplo, tem basicamente o que eu preciso copiar, se você olhar a aba destino é como aparece quando uso a macro que eu te mostrei. Essa macro já está na primeira aba, só colar no vba.

obrigada

TESTE.xlsx

diego_janjao · 22 de março de 2017

@Milla17 segue o arquivo:

TESTE.7z

Milla17 · 22 de março de 2017

15 horas atrás, diego_janjao disse:

@Milla17 segue o arquivo:

TESTE.7z

Diego ajudou muito sua fórmula, realmente desta vez colou valores, mas não estava colando a formatação da tabela(eu apaguei tudo e testei de volta), daí eu juntei as duas macros, aquela que eu estava usando para colar a formatação e a sua para colar as informações! daí deu certo, só que aparece erro 400 depois de colar, por que será?

espero que funcione quando eu testar amanhã no trabalho.

TESTE.7z

Milla17 · 4 de abril de 2017

Em 22/03/2017 às 03:09, diego_janjao disse:

@Milla17 segue o arquivo:

TESTE.7z

Diego, mesmo usando a estratégia acima, não funcionou na tabela planilha que eu uso no trabalho, não tô consigo. Acho que deve ser por causa das células mescladas. Segue anexo uma outra planilha mais proxima da que eu uso.

Please, me dá um help mais dessa vez?

maisumatentativa.xlsx

diego_janjao · 5 de abril de 2017

4 horas atrás, Milla17 disse:

Diego, mesmo usando a estratégia acima, não funcionou na tabela planilha que eu uso no trabalho, não tô consigo. Acho que deve ser por causa das células mescladas. Segue anexo uma outra planilha mais proxima da que eu uso.

Please, me dá um help mais dessa vez?

maisumatentativa.xlsx

Verifique se este te atende:

maisumatentativa.7z

Milla17 · 6 de abril de 2017

Em 04/04/2017 às 23:01, diego_janjao disse:

Verifique se este te atende:

maisumatentativa.7z

Infelizmente não Diego, eu preciso que a tabela seja copiada..

diego_janjao · 6 de abril de 2017

22 minutos atrás, Milla17 disse:

Infelizmente não Diego, eu preciso que a tabela seja copiada..

como assim? Não entendi o que deseja.

Milla17 · 6 de abril de 2017

agora, diego_janjao disse:

como assim? Não entendi o que deseja.

a ultima macro que você me enviou grava as informaçoes da pessoa na plan 1, linha por linha.

Eu preciso que a tabela seja copiada para uma outra aba, pois sempre que eu digitar o nº da pessoa vai aparecer as informações referentes a ela, e daí eu tenho que repassar essa tabela para o chefe dele por exemplo.. o que eu faço hj é copiar a aba com essa tabela para uma outra aba e daí eu seleciono a planilha em que ela está e copio novamente e colo como valores, daí as formulas desaparecem..

eu preciso de uma macro que copie e cole como valores automaticamente