Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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

Editado por Guilherme José Bruno

Compartilhar este post


Link para o post
Compartilhar em outros sites

Essas 50 são arquivos diferentes?

Estão na mesma pasta?

 

você pode fazer com power query.

  • Curtir 1

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






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

×