Como gerar novas abas (sheets) com macro a partir lista "pré-definida" excel?

João Luiz dos Santos Junio · 24 de agosto de 2016

Boa tarde pessoal.

Tenho uma planilha com várias abas (Sheets), sendo as 04 principais:

* Cadastro de Clientes (Onde são inseridos os clientes que são atendidos mensalmente, cada cliente possui uma sheet oculta com seu movimento);

* Total por Cliente (Um resumo cliente à cliente do movimento do mês);

* Geral 06-16 (onde são lançados diariamente os serviços prestados);

* Cliente a Cliente (Serve para consultar o movimento de cada cliente sem a necessidade de ficar re-exibindo e ocultando as planilhas individuais e, serve também de modelo para a criação de uma nova sheet de um novo cliente)

Acontece que não estou conseguindo fazer com que a macro funcione corretamente quando é preciso cadastrar um novo cliente.

Gostaria de apenas inserir um novo cliente na sheet "Cadastro de Clientes" e que a macro criasse nova sheet individual para este novo cliente e o inserisse na sheet "Total por Cliente" de acordo com as demais linhas já existentes.

Atualmente só estou conseguindo que a macro cadastre um novo cliente caso coloque o mesmo na célula A20 da sheet "Cadastro de Clientes", ou seja, não estou conseguindo fazer com que a macro verifique se existem novos clientes que precisam ser cadastrados ou não.

Para facilitar o entendimento de como está funcionando envio a planilha em anexo para que os colegas me ajudem a resolver esta questão.

Agradeço desde já a atenção.

João Luiz

Controle Diário - Teste.zip

Basole · 24 de agosto de 2016

@João Luiz dos Santos Junio seja bem vindo ao forum.

Eu fiz um exemplo parecido ao que voce precisa:

PROGRAMAÇÃO FÉRIAS 2015-v1.zip

Veja se consegue adaptar.

João Luiz dos Santos Junio · 24 de agosto de 2016

@Basole não estou conseguindo baixar a planilha de exemplo, ao clicar no link abre uma página com a mensagem:

"Ops!

A página solicitada não existe

Código do erro: 1S160/2"

Agradeço a atenção.

Basole · 24 de agosto de 2016

O site (forum) esta com problemas para baixar os arquivos anexados.

Segue o link para downloads:

PROGRAMAÇÃO FÉRIAS 2015-v1.zip (46.38KB)

João Luiz dos Santos Junio · 24 de agosto de 2016

@Basole obrigado por compartilhar, mas o site para baixar é bloqueado aqui na empresa e hoje o pessoal de TI não está.

Se ajudar, o início da minha função é o seguinte:

Sub CadastroClientes()
Dim codNovoCli As String
    Sheets("Cadastro Clientes").Select
    codNovoCli = Range("A20").Value
    Dim linhaExistente As Integer
    linhaExistente = -1
    Sheets("Total por Cliente").Select
    For cont = 1 To 30
        If Range("A" & cont).Value = codNovoCli Then
            linhaExistente = cont
        End If
    Next
    If linhaExistente < 0 Then
      Sheets.Add After:=Sheets(Sheets.Count)
      Sheets(Sheets.Count).Name = codNovoCli

     Sheets("Cliente a Cliente").Select
    Columns("A:B").Select
    Range("B4").Activate
    Selection.EntireColumn.Hidden = False
    Cells.Select
    Selection.Copy
    Sheets(codNovoCli).Select
    Cells.Select
    ActiveSheet.Paste
    Range("B5").Select
    Application.CutCopyMode = False

...

Estou com dificuldades para que ali onde ele verifica o CodNovoCli passe a verificar toda a coluna a partir de A3 e caso encontre algum não cadastrado cadastrar automaticamente.