Macro colar especial

[Conrado Augusto]

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.

[Patropi]

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

[Conrado Augusto]

Segue em anexo a planilha juntamente com a explicação do que quero.

Agradeço a atenção.

http://www.filefactory.com/file/b4d9ad9/n/Modelo_xlsx

[Patropi]

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

[Conrado Augusto]

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

[Márcio Rodrigues]

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

[Conrado Augusto]

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 !

[Flavio Soares]

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