Ir ao conteúdo

Visual Basic Tenho um userform e preciso que ele só aceite até 10 cadastros


Ir à solução Resolvido por Midori,

Posts recomendados

Postado

Tenho uma planilha e preciso limitar meu userform a cadastrar apenas 10 usuários. Como posso fazer isso, usando o vba.

Já tenho todo o código do cadastro, só preciso limitar a 10 cadastros nesse userform especifico 

Alguém pode me ajudar?

Postado

@C.Lima2021 Identifique a quantidade de linhas com cadastros e execute as instruções apenas se for menor que 10. Um exemplo com currentregion para uma tabela começando em A1.

 

Dim QtdCadastros As Long
    
QtdCadastros = [A1].CurrentRegion.Rows.Count - 1
    
MsgBox QtdCadastros & " cadastros"

 

O -1 é para tirar o título da quantidade

  • Solução
Postado

@C.Lima2021 Como não sei como está estruturada a sua planilha, foi um exemplo hipotético onde o cadastro da sua planilha começa na célula A1. Assim, supondo que ela tenha dados no range A1:A11, significaria que já está com os 10 cadastros e portanto não seria mais possível cadastrar mais. É isso que o código faz, conta a quantidade de linhas cadastradas e foi o que entendi que você precisa. Então se o cadastro de usuários da sua planilha começa em outra célula, é só adaptar para o seu caso.

 

Mas se não for isso, explique de outra forma ou anexe o arquivo para facilitar a ajuda, pode ser com dados fictícios.

  • Amei 1

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!