Página 1 de 1

Macro Criar ABAs

Enviado: 16 Jan 2017 às 12:01
por kleitonkaza1
om dia a todos!
Primeiramente peço desculpas caso comenta alguma infração mediante as regras do fórum, sou iniciante aqui e busco conhecimento de todos e também poder compartilhar assim que possível com todos,

Bom, tenho uma planilha ao qual possuo uma pagina inicial onde tenho alguns botões para acessar algumas abas ocultas, cada uma com sua devida função,
Um desses botões serve para acessar uma aba oculta para cadastro de clientes, uma aba simples com VBA, ao clicar nesse botao ele ativa essa aba oculta ja abrindo uma Janela de cadastro, nesta aba o cadastro é simples por linhas como muitos encontrados na internet,
Porém necessito de algo um pouco diferente e que não estou conseguindo fazer, como sou principiante em VBA, tenho pouco conhecimento nesta área,
A Macro que gostaria de executar seria para seguinte função, ao invés desse método que expliquei acima para cadastrar clientes gostaria que este botão criasse uma aba nova ja abrindo uma janela VBA, semelhante ao citado, onde cada aba nova criada seria exclusiva para cada novo cliente, assim a cada cliente novo que fosse registrar seria criado uma nova Aba com seu nome, abrindo esta janela VBA para registrar seus dados, pois, esta aba ira conter o histórico somente deste cliente,

A planilha em anexo é um modelo inicial que estava criando, vejam que nesta versao o botao para Cadastro de cliente, cria uma lista de clientes cadastro em uma unica aba ja existente mas oculta,

Agradeço a todos que puderem me auxiliar neste momento, e desculpas pela ignorância na área.

obrigado!

Re: Macro Criar ABAs

Enviado: 16 Mar 2017 às 12:35
por BetoSSena
Veja se essa macro ajuda.

Sub criar_abas()

x = 1
xaga:
If x < 10 Then
x = "0" & x
End If
x = "" & x & ""
x2 = x + 1
If x2 < 10 Then
x2 = "0" & x2
End If
x2 = "" & x2 & ""
nun = " (2)"
x3 = x & nun
Sheets(x).Copy after:=Sheets(x)
Sheets(x3).Name = x2
x = x + 1

'alterar numero x para valor total de abas
If x = 31 Then ' quantidade de vezes que vai criar uma nova aba'
Sheets("01").Select ' aqui deve colocar o modelo que será duplicado'
Exit Sub
Else
GoTo xaga
End If
End Sub