Este fórum está sendo desativado

[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 :/

[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.

[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

[gfranco]

Boa tarde.
Veja se atende.
at
gfranco.

[Ahazu]

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:

[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.

[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?

[gfranco]

Sugiro usar o pincel de formatação.

[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.

[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

[gfranco]

Veja neste video como fazer a cópia da macro:
https://www.youtube.com/watch?v=NFhTVaY25O4

[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.

[Ahazu]

Boa tarde,

Muitíssimo obrigado a todos, deu muito certo!

Abraços,

[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

[gfranco]

Que bom que deu certo.
Então creio que pode marcar o post como "RESOLVIDO".
At
Gfranco

[Ahazu]

Pode sim amigo, muito obrigado pela ajuda!