Página 1 de 1

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 11:54
por Ahazu
Bom dia pessoal!

Venho trabalhando a meses com uma planilha assim:

UF Nº Nome
DF 1009 Daniel
DF 1009 Daniel
DF 1010 Maria
DF 1011 José
DF 1011 José
DF 1011 José
DF 1011 José
ES 2974 José
ES 2974 José

E manualmente tenho de fazer isso:

UF Nº Nome
DF 1009 Daniel
DF 1009 Daniel

DF 1010 Maria

DF 1011 José
DF 1011 José
DF 1011 José
DF 1011 José

ES 2974 José
ES 2974 José

E então crio novas planilhas com cada Nº, tipo assim: "Planilha Nº 1009"; "Planilha Nº 1010"; "Planilha Nº 1011" e assim por diante.

Estou pedindo a ajuda de vocês em criar uma macro (sou totalmente leigo nisso, mas já habilitei a aba desenvolvedor e peguei alguns exemplos no google) . O exemplo acima foi com poucas linhas, mas a planilha em que trabalho geralmente tem no mínimo 9.000 linhas :/

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 12:13
por gfranco
Boa tarde.
Como minha primeira sugestão eu desaconselharia a criação de diversas planilhas.
Como vc já tem os dados separados em colunas distintas, penso eu que tabela dinâmica lhe daria informações consolidadas com um mínimo de trabalho.

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 12:19
por Ahazu
Olá, obrigado amigo pelo rápido retorno, porém preciso fazer diversas planilhas pois tenho de enviar por e-mail cada uma para destinatários diferentes, e para pessoas sem conhecimento em Excel, só fazem abrir e imprimir, se eu for criar filtros vai complicar rsrs

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 13:20
por gfranco
Boa tarde.
Veja se atende.
at
gfranco.

Re: Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 16:08
por Ahazu
gfranco escreveu:Boa tarde.
Veja se atende.
at
gfranco.
Sinto informar que não deu certo.

Ao abrir minha planilha e executar esse vba, ele coloca na minha planilha as novas abas (preenchidas) do seu exemplo.

Se eu coloco os dados da minha planilha na sua, o seu código gera as abas, porém não preenche as abas.

Estou anexando uma parte da planilha que trabalho:

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 16:26
por gfranco
Boa tarde.
No seu exemplo postado, tinha três colunas de dados então eu estruturei o código para esse cenário .
A planilha que vc postou agora tem 5 vezes mais colunas.

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 16:40
por Ahazu
Desculpe amigo, alterei no seu código e agora deu certo.

Surgiu uma outra dúvida, teria como ao copiar os dados da planilha base para as novas, mantivesse a formatação da planilha base?

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 16:48
por gfranco
Sugiro usar o pincel de formatação.

Re: Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 18:12
por Ahazu
Boa noite !

Desculpe lhe incomodar mais uma vez, como seria um código para mover cada aba para uma nova planilha?

Estou usando esse código (eu que fiz eheh):

sub SalvarAbas()
For x = 2 to sheets.count
sheets(x).move
next x

ai da erro: "Erro em tempo de execução '9'" subscrito fora do intervalo.

Se possível, há como salvar automaticamente (utilizando por exemplo o texto da célula B2.

Re: Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 20:04
por gfranco
Boa noite
Nessa planilha tem uma macro que salva todas as abas DESTA pasta de trabalho cada uma em um workbook diferente com o nome da planilha.
E no módulo tem a identação de como ela funciona.
Teste-a e depois copie a macro desta pasta de trabalho e cole no módulo da que te enviei antes e que vc já adaptou para a sua realidade.
at
gfranco

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 20:58
por gfranco
Veja neste video como fazer a cópia da macro:
https://www.youtube.com/watch?v=NFhTVaY25O4

Re: Inserir Linha (Critério) e salvar em outra planilha

Enviado: 17 Nov 2016 às 21:50
por DJunqueira
Diria q a maneira mais fácil de fazer o q vc quer é com Nova Consulta, disponível na versão 2010 e superiores do Excel.
Nas versões 2010 e 2013 tem de instalar um complemento disponível na internet.

Re: Inserir Linha (Critério) e salvar em outra planilha

Enviado: 18 Nov 2016 às 12:14
por Ahazu
Boa tarde,

Muitíssimo obrigado a todos, deu muito certo!

Abraços,

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 23 Nov 2016 às 13:53
por Ahazu
Só dando um UP aqui, esses códigos que vocês fizeram está muito bom mesmo, e em relação à aplicar as partes cosméticas (fonte, tamanho, alinhamento, cor, etc e etc) fiz o seguinte

Criei uma macro (em gravar macro), chamei-a de "visual"

ai dentro do VBA:

Sub AplicarEstilo()
Dim wb As Workbook
Set wb = ThisWorkbook
For A = 1 To wb.Sheets.Count
wb.Sheets(A).Select
Call visual
Next A

Uma solução que deu certo :)

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 23 Nov 2016 às 14:36
por gfranco
Que bom que deu certo.
Então creio que pode marcar o post como "RESOLVIDO".
At
Gfranco

Inserir Linha (Critério) e salvar em outra planilha

Enviado: 23 Nov 2016 às 17:09
por Ahazu
Pode sim amigo, muito obrigado pela ajuda!