Ir ao conteúdo

Posts recomendados

Postado
Pessoal minha 2 dúvida:
Converti uma planilha de PDF para excel, so que o sistema separa por páginas. Gostaria de colocar tudo em uma unica aba (ou pagina), pois são 172 e copiar e colar fica dureza...
OBS: possuem o mesmo conteudo, pois é uma sequencia de classificados.

Se alguem puder me ajudar segue planilha: https://www.sendspace.com/file/j9vzk6

Obrigado. 

 

 

ESSA AQUI.xlsx

  • Solução
Postado

Rodrigo se quiser experimente este código. O conteúdo de cada planilha da 'Page 2' até a 'Page 143' será copiado para a planilha 'Page 1'.
Veja se é esse o resultado desejado.

Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).


 

Sub TudoNaPage1() Dim k As Long  For k = 2 To 143   With Sheets("Page 1")    .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(29, 11).Value = _      Sheets("Page " & k).Range("A7:K35").Value   End With  Next kEnd Sub

 

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!