Guilherme José Bruno

Ola, Sim, é o mesmo arquivo. Não conhecia ainda o power query, mas pesquisei e para esta necessidade ela não atenderia. Mas consegui resolver com a sugestão do Erik. Obrigado! adicionado 2 minutos depois @Erik Wesley Obrigado pela resposta, consegui resolver da seguinte forma, porém tive que fazer das 50 planilhas separadas, dessa forma consegui atende. Obrigado! Sub Gerar_Relatório() ' ' Macro3 Macro ' ' Application.ScreenUpdating = False ActiveWorkbook.Save Range("A2:Y100").Select Selection.ClearContents Sheets("PEÇA 1").Select Rows("134:134").Select Selection.Copy Sheets("Relatório análises").Select 'Localiza a próxima célula vazia Range("A1048576").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("PEÇA 70").Select Rows("134:134").Select Selection.Copy Sheets("Relatório análises").Select 'Localiza a próxima célula vazia Range("A1048576").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.ScreenUpdating = True

Olá amigos, boa noite. Estou com um dúvida sobre VBA onde preciso realizar o seguinte procedimento: Copiar uma linha (A135:Y135) da planilha1 e colar como texto na planilha2 na primeira linha vazia. A dificuldade é que terei 50 planilhas diferentes como a planilha1, e ele deve fazer esse procedimento colando sempre na planilha2 para as outras 49. Hoje penso desta maneira Sheets("PEÇA 1").Select Selection.Copy Sheets("Planilha1").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("PEÇA 2").Select Rows("135:135").Select Application.CutCopyMode = False Selection.Copy Sheets("Planilha1").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("PEÇA 3").Select Selection.Copy Sheets("Planilha1").Select Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Por gentileza, poderiam me ajudar com um código otimizado para atender esta necessidade. Desde já agradeço! Abraços Att. Guilherme