Ir ao conteúdo
  • Cadastre-se
Guilherme José Bruno

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

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×