Excel Copiar e Colar como texto de uma planilha para outra na ultima célula vazia

[Guilherme José Bruno]

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

[CasaDoHardware]

Essas 50 são arquivos diferentes?

Estão na mesma pasta?

 

você pode fazer com power query.

[Erik Wesley]

Use o seguinte para buscar as células vazias:

I

Do
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1,0).Select
End If
Loop Until ActiveCell.Value = ""

 

Você pode fazer um sistema de variáveis com contador para abrir e fechar as planilhas desejadas, sempre colando o valor desejado e depois fechando.

[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