Se disponibilizar uma planilha com dados de exemplo e com o resultado esperado fica facil obter ajuda.

Oi, obrigado.

Seguem duas planilhas, uma com a origem dos dados em amarelo que necessito passar para a outra(resumo), na primeira linha vazia, pois vão ter várias dessas por dia.

Grato

Nao entendi uma coisa vc escreveu na coluna A da planilha Origem por exemplo o campo Maquina N° celula de origem B4

Explica essa coluna???

Faz melhor preenche o resultado esperado na planilha destino.

E vc vai receber o arquivo Origem exatamente assim, ou seja os dados vao estar exatamente nas colunas B e C???

Isso pode ser colocado em um unico Arquivo Origem e Destino

Ate o nome dos arquivos e das abas seria bom que fosse identico aos originais.

Oi, explicando melhor...

Essa coluna A, eu usei de referencia para saber onde estão as células que irão ser digitados os dados, esses dados, eu tentei copiar diretamente, mas deu #REF!;

Então, estou fazendo as macros para copiar como valores esses resultados que na realidade são fórmulas, assim o erro some.

Esse resultado das macros estão na coluna C da planilha origem, que devem ser copiados para outra planilha, a resumo.

Fiz manualmente o resultado esperado, e anexei.

Espero ter explicado melhor...

Quanto aos nomes, nem eu sei direito ainda como vão ficar, mas se tiver uma macro funcionando, devo conseguir mudar isso depois...

Juntei as duas planilhas para melhor visualização, apesar que elas vão ficar separadas.

Valeu!

Com base nas informações que você enviou acho que isso atende.

O codigo esta a planilha origem

Segue os 2 arquivos

Salve a Planilha Resumo em C:

Não estou conseguindo é abrir... dá erro, acho que é o caminho.

Salvei no desktop, mudei o caminho para ver se localiza mas nada...

ChDir "C:UsersJAIMEDesktop"
Workbooks.Open Filename:= _
"C:Resumo.xlsx"

Abrir a planilha abre, qdo vou consolidar é que dá o erro de não achar a outra...

Vi agora no final da sua mensagem, que vc mandou salvar a planilha resumo em C:

Ok, fiz isso... Parece que tá funcionando...

Vou fazer mais uns testes...

Mas já me ajudou demais mesmo.

VAleu!!!

Bom dia...

As planilhas que vc enviou, estão perfeitas... acontece que estou desde ontem tentando e não consegui adaptar seu código para as minhas... sou fraco em vba...

As células que serão copiadas na minha planilha de origem original, são de I71 a i102, sendo que tem algumas em branco, igual espaço enviado na planilha origem ontem.

O que preciso fazer?

Tipo, na planilha que vc me enviou está perfeita, porém, fiquei perdido pra adaptar na minha, então, fiz manualmente(gravador de macros), ficou um codigo mais simples, não sei é como fazer para executar na minha planilha original.

Nesse codigo gerado, ainda é preciso inserir algo para 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

Foi por isso que eu disse que vc deverira disponibilizar a planilha identica a original especialmente na posição das celulas.

Troque dados da planilha original e disponibilize que faço a adaptação.

Não sei se é o melhor caminho mas do modo que esta a sua planilha origem acredito que o ideal seja vc executar o codigo pelo arquivo de destino., mas essa é uma escolha sua.

VC pode tentar adaptar onde tem WSOLinha = 5 troque pelo numero da linha onde inicia os dados, testa a partir dai, outras adaptações é preciso ver os arquivos.

Fuçando aqui, consegui resolver... agradeço pela ajuda, se não fosse pelo sua orientação, não teria conseguido.
[]s

O código final ficou assim:

Sub AbrirArquivo()
'
' Macro abrir arquivo
Workbooks.Open Filename:= _
"C:Tabela RPCQ.xlsx"

' Seleciona primeira linha em branco, coluna D
Range("D1048576").End(xlUp).Offset(1, 0).Select
' Seleciona planilha de dados
Windows("Relatório Produção Revisado4 teste.xlsm").Activate
' Seleciona aba com dados
Sheets("Form_RPCQ_vs05").Select
' Seleciona celulas a serem copiadas
Range("I71:I102").Select
' Faz a copia
Selection.Copy
' Seleciona planilha destino dos dados
Windows("Tabela RPCQ.xlsx").Activate
' Copia os dados
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
' Seleciona primeira linha em branco
Range("D1048576").End(xlUp).Offset(1, 0).Select
' Limpa area de transferencia
Application.CutCopyMode = False
' Salva a planilha
ActiveWorkbook.Save
' Fecha planilha
ActiveWindow.Close

Range("I71").Select

End Sub