Notifications
Clear all

Criar abas automática por nome da célua...

10 Posts
4 Usuários
0 Reactions
1,414 Visualizações
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Bom Dia Amigos!!!
Vejam se podem me ajudar.
Tenho uma planilha que recebera algumas informações e etc.
Na coluna B da planilha, é cadastrado o CNPJ...gostaria de um comando (button) que ao acioná-lo, ele criasse as novas abas de acordo com o CNPJ, e nessa abas tivessem todas as informações do Banco de Dados do respectivo CNPJ.
Obs.: No exemplo anexo ficaria então três abas (nomeadas pelo CNPJ), com informações especificas de cada cnpj na planilha.
Vcs já viram algo semelhante? Podem por favor, me ajudarem?

 
Postado : 25/09/2015 6:36 am
(@mprudencio)
Posts: 2749
Famed Member
 

Tenta ajustar esse codigo


Sub Gerar_Planilhas()
On Error GoTo Line_Error
Dim Nome As String
Dim Qtde As Integer

Nome = InputBox("Digite o Nome Da Planilha a ser criada!", "Nome")
Qtde = InputBox("Digite a Quantidade de Planilhas que deseja criar!", "Quantidade")

For i = Qtde To 1 Step -1
    Sheets.Add
    ActiveSheet.Name = Nome & " " & i
Next

MsgBox Qtde & " Planilhas Criadas!!!", vbInformation, "Concluído..."

Exit Sub

Line_Error:
MsgBox "Código do Erro: " & Err.Number & Chr(13) & "Descrição: " & Err.Description, vbCritical, "Erro Encontrado!"


End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 25/09/2015 7:52 am
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Marcelo...esta quase lá...esta ficando show!!!!...Ele gera as abas perfeito...
Porem como exemplo se eu indicar o nome 09586509000132 (CNPJ cadastrado na coluna B) todas as linhas (intervalo da coluna A até M )que contiverem as informações do cnpj indicado, tem que ser levado para a nova aba juntamente com o cabeçalho será que é possível? ...por favor, continua me ajudando!!!!

 
Postado : 25/09/2015 8:22 am
(@mprudencio)
Posts: 2749
Famed Member
 

Posta um modelo de sua planilha.

E tem esse código tb


Sub ReNomes()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Name = "Vendedor" & Format(i, " 00 ")
    Next
End Sub



Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 25/09/2015 8:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se consegue ajustar, se não mais tarde ajusto para voce.

Filtrar valores Unicos em Abas Separadas

[]a

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/09/2015 9:12 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Tenho este modelo que fiz para outra situação que adaptei ao seu caso.
A macro cria as 'abas' caso ainda nao existam, copia os dados para as abas, caso não exista, cria um hyperlink na coluna "N" para voce ir diretamente a aba (cnpj) respectiva e um atalho p/ voltar a aba principal.

abrx.

Click em se a resposta foi util!

 
Postado : 25/09/2015 9:27 am
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Amigos boa Tarde!!!
Os modelos deram certo, porem por conta dos vínculos do hiperlink o modelo postado pelo Basole, vai me economizar um bom tempão, e etc...
Apenas duas questão:
1 - Teria como nas novas, abas na coluna B ter a msm formatação, no caso estou usando o personalizado para CNPJ ou CPF: ([<=99999999999]000.000.000-00;00.000.000/0000-00).
2 – É possível que nas novas abas nas colunas G e H sempre após a ultima linha preenchida aparecer o total (SOMA)...

Por favor, me ajudem!!!!

 
Postado : 28/09/2015 9:12 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Bom veja se é isso...
Acrescentei a formatação do cnpj/cpf na coluna B, e formatação na nomenclatura das colunas.
E pelo que entendi voce quer inserir uma formula de soma, abaixo da ultima linha preenchida nas col G e H.
Segue em anexo.

Click em se a resposta foi util!

 
Postado : 28/09/2015 10:52 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Bom veja se é isso...
Acrescentei a formatação do cnpj/cpf na coluna B, e formatação na nomenclatura das colunas.
E pelo que entendi voce quer inserir uma formula de soma, abaixo da ultima linha preenchida nas col G e H.
Segue em anexo.

Opssss. segue o anexo....

Click em se a resposta foi util!

 
Postado : 28/09/2015 11:06 am
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Show de Bola, Mto Obrigado pela imensa ajuda. Obrigado aos outros tb que me mostrou outras opções.
Superou minhas expectativas. DEUS Abençoe a todos Mto Obrigado Basole!!!

 
Postado : 29/09/2015 8:32 am