Página 1 de 1

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 26 Jun 2015 às 15:58
por madefer
Olá,

preciso criar atalho para a função COLAR ESPECIAL > VALOR

Procurei na internets mas não deu certo. :cry:


Preciso disso pois tenho que copiar somente valores de uma planilha para outra, e o colar NORMAL copia as formulas .

Como são vários itens essa ajuda sera bem vinda.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 26 Jun 2015 às 16:11
por JeanHard
Boa tarde madefer!
A maneira que faço isso é: Ctrl+Alt+V ===> Aperte a letra "c" e de Enter.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 26 Jun 2015 às 16:12
por JeanHard
Retificando: A maneira que faço isso é: Ctrl+Alt+V ===> Aperte a letra "v" e de Enter.

Re: Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 30 Jun 2015 às 08:41
por madefer
Pois então,

preciso fazer isso de forma mais automática, com um botão de atalho por exemplo, ví que podemos criar um MACRO para colar e adicionar uma tecla de atalho, mas não está dando certo o COLAR VALOR . :(

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 30 Jun 2015 às 11:02
por JeanHard
São duas planílhas específicas?

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 30 Jun 2015 às 12:01
por JeanHard
Me baseando em ser somente duas criei essa macro e funcionou.
Em um módulo insira o código:

Public Sub colarespecial()

'macro para colar especial em planílhas diferentes

'Por Jean S Mesquita

'Seleciona na planílha os dados que serão copiados
Sheets("DADOS QUE SERAO ENVIADOS").Select
'Seleciona o intervalo a ser copiado
Range("a2:C10").Select
Selection.Copy
'fim da cópia

'Abre a planílha que ira receber os dados mesmo estando fechada obs troque o endereço pelo o end da sua planílha e
'veja o formato se a sua for xls por exemplo troque no final. Veja que a minha é xlsx
Workbooks.Open ("C:\Users\jean.sil\Documents\colar especial\RECEBE_DADOS_DA_MATRIZ.xlsx")
'ativa a planílha que irá receber os dados
Windows("RECEBE_DADOS_DA_MATRIZ").Activate
'ativa a sheet e a range em que os dados serão colados
Sheets("DADOS RECEBIDOS").Range("A2").Activate
' cola especial somente valores
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Anexo o modelo pronto. Lembre-se extrair da pasta Zipada e altere o endereço do caminho do arquivo e faça o teste.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 30 Jun 2015 às 15:06
por JeanHard
Adapetei outro exemplo que exporta os dados da sheets ativa para uma nova planílha.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 03 Jul 2015 às 14:07
por FelipeGualberto
A forma mais rápida de colar somente valores sem auxílio de macros é pressionando a sequência AppKey, V (Excel 2010 ou superior).
Nota: alguns laptops não tem a tecla AppKey. Bom, na minha opinião, usar Excel em laptops é contra produtividade.
Se me lembro bem, no Excel essa combinação é AppKey, S, V.
Se você trabalha pouco com o mouse, pode considerar usar essa combinação e dispensar auxílio de macros.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 14 Jul 2015 às 15:59
por laennder
Felipe, para os computadores que não tem a 'appkey' o atalho Shift + F10 tem o mesmo efeito. :D

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 14 Jul 2015 às 16:19
por FelipeGualberto
Sim, verdade. É raro usar essa combinação porque, para piorar, alguns teclados de laptop exigem que se pressione uma tecla de função para ativar o F10. Daí o cara teria que pressionar Fn+Shift+F10, que é uma combinação maldita.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 14 Jul 2015 às 16:20
por FelipeGualberto
Já é possível editar mensagens aqui no fórum?
"Se me lembro bem, no Excel essa combinação é AppKey, S, V."
seria
Se me lembro bem, no Excel 2007 essa combinação é AppKey, S, V, Enter.

Criar atalho para COLAR ESPECIAL> VALOR

Enviado: 14 Jul 2015 às 16:34
por laennder
É verdade o caso do FN, infelizmente... Eu lembro que eu jogava um MMORPG que as principais hotkeys eram F1 até F12, e eu não podia jogar no meu notebook justamente por causa do FN, que me 'quebrava as pernas' rsrs

O tempo de edição e deleção é de no máximo 15 minutos após o envio.