Este fórum está sendo desativado

[madefer]

Olá,

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

Procurei na internets mas não deu certo.


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.

[JeanHard]

Boa tarde madefer!
A maneira que faço isso é: Ctrl+Alt+V ===> Aperte a letra "c" e de Enter.

[JeanHard]

Retificando: A maneira que faço isso é: Ctrl+Alt+V ===> Aperte a letra "v" e de Enter.

[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 .

[JeanHard]

São duas planílhas específicas?

[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.

[JeanHard]

Adapetei outro exemplo que exporta os dados da sheets ativa para uma nova planílha.

[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.

[laennder]

Felipe, para os computadores que não tem a 'appkey' o atalho Shift + F10 tem o mesmo efeito.

[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.

[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.

[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.