Este fórum está sendo desativado

[JaimeBorges]

Boa tarde.

Tenho uma planilha, na qual preciso copiar para outra dados que estão em linhas na sequencia, e a planilha de destino vai colar transpondo em colunas, na primeira linha linha livre começando na coluna D, alguém tem um código que faça isso?

Grato a quem puder ajudar.

[]´s

[Parkeless]

Olá Jaime!

Tem como postar uma planilha modelo?

[JaimeBorges]

Oi, boa tarde.

Anexo seguem as planilhas.

Fiz manualmente(gravador de macros), e ficou o código abaixo, não sei é como fazer para executar na minha planilha original.

Nesse codigo gerado, preciso inserir algo para abrir a planilha sem que o usuário veja e ainda localizar a 1ª linha vazia na planilha destino para colar os dados.

Ficou assim usando usando o gravador...

Sub Macro4()

Range("I71:I102").Select - selecionei os dados na planilha origem
Selection.Copy - copiei os mesmos
Windows("Tabela RPCQ.xlsx").Activate - selecionei a planilha destino(queria abrir ela sem o usuario ver)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True - copiei os dados como valores e transpondo
Range("C11").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("I71").Select - volta pra planilha origem
End Sub