Lista de Clientes - Criação de Abas Automáticas

[Alexandre Gomes]

Alguém saberia me ajudar?? Como posso fazer automaticamente de uma lista de contatos ( Célula a Célula ) a criação das abas de planilha, podendo assim separar os contatos feitos , as data, o que foi pedido, o que retornei.....

alguém sabe como Fazer??? Agradeço a quem puder ajudar?

[Patropi]

Boa noite Alexandre

Eu encontrei na net um código que cria uma nova planilha para cada representante que consta na coluna "C".

vou te passar o código você clica em ALT+F11 , vai no meu Inserir, Módulo.

Nesse módulo em branco que vai ser inserido você copia e cola este código.

Sub ExtractReps()

Dim ws1 As Worksheet

Dim wsNew As Worksheet

Dim rng As Range

Dim r As Integer

Dim c As Range

Set ws1 = Sheets("Sheet1")

Set rng = Range("Database")

'extract a list of Sales Reps

ws1.Columns("C:C").AdvancedFilter _

Action:=xlFilterCopy, _

CopyToRange:=Range("J1"), Unique:=True

r = Cells(Rows.Count, "J").End(xlUp).Row

'set up Criteria Area

Range("L1").Value = Range("C1").Value

For Each c In Range("J2:J" & r)

'add the rep name to the criteria area

ws1.Range("L2").Value = c.Value

'add new sheet and run advanced filter

Set wsNew = Sheets.Add

wsNew.Move After:=Worksheets(Worksheets.Count)

wsNew.Name = c.Value

rng.AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Sheets("Sheet1").Range("L1:L2"), _

CopyToRange:=wsNew.Range("A1"), _

Unique:=False

Next

ws1.Select

ws1.Columns("J:L").Delete

End Sub

Depois clique novamente em ALT+F11 para retornar a planilha e insira um botão de controle de fórmulário e clique com o botão esquerdo o mouse em atribuir macro, clique 2 vezes na macro listada e pronto.

Faça as adptações necessárias no código para se adquar ao que você necessita, como por exemplo a coluna onde estão os dados, etc...

OBS. Faça isso numa planilha nova para teste, porque no caso de algum erro você pode perder os dados da tua planilha, pois eu não testei a a Macro.

Abraços

Editado Julho 22, 2010 por Patropi