locked
Como criar tecla de atalho para "Colar Especial -> Texto unicode" RRS feed

  • Pergunta

  • Como criar uma tecla de atalho (para todos arquivos utilizados no Excel)

     para a opção "Colar Especial -> Texto unicode"?

     

    Valeus!

    domingo, 2 de novembro de 2008 20:04

Respostas

  • Olá...

    Não sei se é isso que está querendo

     

    Depois de executar este primeira rotina, o F1 funcionará como uma tecla de atalho para o colar especial...

    Code Snippet

    Sub Atalho()
        Application.OnKey "{F1}", "ColaEspecial"
    End Sub

     

     

    Code Snippet

    Sub ColaEspecial()
        On Error Resume Next
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End Sub

     

     

     

    Até...
    segunda-feira, 3 de novembro de 2008 16:12
  • Deve ser isso que quero!

     

    Mas a tecla de atalho, esqueci de mencionar, é para "CTRL+SHIFT+V" como subsituo na macro?

     

    Aproveitando, onde devo colar esses códigos para funcionar em todas as planilhas do Excel, antigas e novas?

     

    OBRIGADO!

     

     

     

    segunda-feira, 3 de novembro de 2008 21:58
  • Abra uma planilha nova.

    Insira um módulo e cole aquelas duas rotinas.

    E cole este código em EstaPasta_de_trabalho

    Code Snippet

    Private Sub Workbook_Open()
        Atalho
    End Sub

     

     

    Depois vai em salvar como e no tipo de arquivo ponha suplemento do excel(xla), salve-o na pasta de suplementos.

    Agora abra uma planilha qualquer, clique em ferramentas/suplementos e marque o suplemento que salvou..

    Toda planilha que usar o F1 funcionará como tecla de atalho para o colar especial..

    Até..

    quarta-feira, 5 de novembro de 2008 11:07

Todas as Respostas

  • Olá...

    Não sei se é isso que está querendo

     

    Depois de executar este primeira rotina, o F1 funcionará como uma tecla de atalho para o colar especial...

    Code Snippet

    Sub Atalho()
        Application.OnKey "{F1}", "ColaEspecial"
    End Sub

     

     

    Code Snippet

    Sub ColaEspecial()
        On Error Resume Next
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End Sub

     

     

     

    Até...
    segunda-feira, 3 de novembro de 2008 16:12
  • Deve ser isso que quero!

     

    Mas a tecla de atalho, esqueci de mencionar, é para "CTRL+SHIFT+V" como subsituo na macro?

     

    Aproveitando, onde devo colar esses códigos para funcionar em todas as planilhas do Excel, antigas e novas?

     

    OBRIGADO!

     

     

     

    segunda-feira, 3 de novembro de 2008 21:58
  • Abra uma planilha nova.

    Insira um módulo e cole aquelas duas rotinas.

    E cole este código em EstaPasta_de_trabalho

    Code Snippet

    Private Sub Workbook_Open()
        Atalho
    End Sub

     

     

    Depois vai em salvar como e no tipo de arquivo ponha suplemento do excel(xla), salve-o na pasta de suplementos.

    Agora abra uma planilha qualquer, clique em ferramentas/suplementos e marque o suplemento que salvou..

    Toda planilha que usar o F1 funcionará como tecla de atalho para o colar especial..

    Até..

    quarta-feira, 5 de novembro de 2008 11:07