Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Conrado Augusto

[Resolvido] Macro colar especial

Recommended Posts

Boa tarde pessoal.

No meu trabalho as vezes tenho que usar bastante a função colar especial e depois selecionar "valores" e "transpor" para deixar a linha que estava na horizontal ficar na vertical.

Gostaria de saber se tem como fazer uma macro que quando eu pressionar um botão do excel, ele já me dar essa função conforme disse anteriormente, ao invés de ter sempre que ir em colar especial depois selecionar valores e transpor.

Desde já agradeço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde Conrado

Para facilitar sugiro que você psote a tua planilha num site gratuíto como o:

http://www.4shared.com/?signout=1

Depopis cole o link da planilha aqui no fórum.

Aconselho você postar a planilha pois aqui tem muitos colegas feras em Macro que poderão fazer uma macro que já faça a transposição dos dados na planilha.

Um abraço e Feliz 2011

Compartilhar este post


Link para o post
Compartilhar em outros sites

Conrado

Eu pensei que fosse copiar e colar de células especificas, mas assim como você explicou que a planilha de origem dos dados não segue um padrão, fica complicado automatizar.

As macros são feitas para evitar que você fique repetindo as mesmas tarefas, mas tem que seguir alguns parâmtros parâmetros.

Vamos ver se algum colega tem alguma solução

Um abraço

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Bom..achei aqui mesmo no fórum esse código que já ajuda muito e realmente funcionou, porém falta adicionar a ele a opção de copiar somente valores. Alguém que saiba adicionar isso ao código ?

    Sub colarEspecial()

    On Error Resume Next

    ActiveCell.PasteSpecial Transpose:=True

    End Sub

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Não consegui baixar o arquivo que você mandou. Quanto a colar especial, veja se o código abaixo resolve.

    Sub ColarEspecialValor()

    Range("D6").Select ' Celula a ser copiada

    Selection.Copy

    Range("g6").Select ' Celula de destino

    'Colar especial valores

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

    End Sub

    • Curtir 1

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  • Márcio, obrigado pela ajuda.

    Retirei do seu código a parte de celula de destino e celula a ser copiada e funcionou perfeitamente, ficando assim:

    Sub colarEspecial()

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=True

    End Sub

    Dessa maneira eu consigo copiar e colar valores e tranpor sem que eu tenha uma célula definida para copiar e colar.

    Obrigado !

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
    Visitante
    Este tópico está impedido de receber novos posts.
    Entre para seguir isso  





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×