Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por kleitonkaza1
#18999
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!
Você não está autorizado a ver ou baixar esse anexo.
Por BetoSSena
Posts
#21397
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord