Mauro se puder postar a planilha te agradeço, novamente deu erro, na linha que tu sugeriu. Não acredito, desculpa minha falta de conhecimento.

Ai vou ver e comparar com a versao anterior e ver se localizo os erros por conta. Para aprender.

No meu anexo, está rodando OK...

No meu anexo, está rodando OK...

Edson, baixei o seu modelo e ele roda se a aba Cadastro não estiver Oculta, e na rotina : Private Sub BtnCadastrar_Click() na primeira linha temos o espaço no nome da aba e gera erro : Sheets("Cadastro ").Select.

Andre, para não ter de anexar o mesmo modelo, copie e troque suas rotinas pelas a abixo :

Private Sub BtnCadastrar_Click()
    
    Sheets("Cadastro").Activate ' seleciona a planilha de cadastro
    Dim Linha As Integer
    Linha = 5 'linha =5 por que os IDs serão cadastrados a partir da linha 3
    
    Dim ID As Integer
    ID = 1
    
    Do While Range("C" & Linha) <> "" ' <> significa diferente de algo, nesse caso diferente de vazio enquanto B+Linha diferente de fácil continua no laço
        Linha = Linha + 1 ' esse comando todo serve para que não entre num laço infinito
        ID = ID + 1
    Loop ' o loop sempre vem depois do while e sempre há um antes do while
    
    Range("C" & Linha).Select 'seleciona a célula e atribui a ela
    ActiveCell.Value = ID ' ActiveCell.value atribui valor as celulas antes selecionados
    
    Range("D" & Linha).Value = TxtUser 'Essa é outra forma de atribuir valor a uma celula
End Sub


Private Sub UserForm_Initialize()
    Sheets("Cadastro").Activate  ' seleciona a planilha de cadastro
    Dim Linha As Integer
    Linha = 5
    
    Do While Range("C" & Linha) <> "" ' sempre antes do While usa-se "do" , ficando "do while".Quando for diferente de ""(vazio), o ID ele irá adiciona os usuários da célula ao lado na combox, toda vez que o formulário iniciar
       Linha = Linha + 1
       ID = ID + 1
       CBLista.AddItem (Range("D" & Linha))
    Loop
End Sub

[]s

Valeu Mauro, vou tentar.

Tem razão, Mauro, faltou eliminar o espaço ao utilizar o Cadastro efetivamente.

Valeu!

Em forma de agradecimento e paciência a voces gurizada, com o mesmo arquivo baleado, posto ele corrigido

Agradeço a paciencia, compreensao e empenho pra me ajudar a resolver o problema. Desculpa o tempão. A mim valeu o aprendizado, vou comparar com o que tava acontecendo e aprender com o erro.

Valeu Mauro e Edson.

Abraço, André.

Bom dia andrek78!

Abri o seu arquivo e fiz as mesmas alterações que o Edson citou aí no comentário acima.
A opção de Cadastrar Usuario funciona somente quanto a planilha "Cadastro" NÃO estiver oculta.
Quando vc oculta ela, pede para depurar.

Att,

Bom dia andrek78!

Abri o seu arquivo e fiz as mesmas alterações que o Edson citou aí no comentário acima.
A opção de Cadastrar Usuario funciona somente quanto a planilha "Cadastro" NÃO estiver oculta.
Quando vc oculta ela, pede para depurar.

Att,

Marciel, se seu comentário for uma duvida, é só olhar nas postagens anteriores onde eu disse para trocar o "Select" por "Activate", assim podemos trabalhar com a aba Oculta.

[]s

Marciel verdade. Agora se verificar com mais atenção as postagens anteriores o Mauro o Mauro deixou a solução disponível, acredito que a correção abaixo te ajudará na planilha que tem em mãos.

Private Sub BtnCadastrar_Click()

Sheets("Cadastro").Activate ' seleciona a planilha de cadastro
Dim Linha As Integer
Linha = 5 'linha =5 por que os IDs serão cadastrados a partir da linha 3

Dim ID As Integer
ID = 1

Do While Range("C" & Linha) <> "" ' <> significa diferente de algo, nesse caso diferente de vazio enquanto B+Linha diferente de fácil continua no laço
Linha = Linha + 1 ' esse comando todo serve para que não entre num laço infinito
ID = ID + 1
Loop ' o loop sempre vem depois do while e sempre há um antes do while

Range("C" & Linha).Select 'seleciona a célula e atribui a ela
ActiveCell.Value = ID ' ActiveCell.value atribui valor as celulas antes selecionados

Range("D" & Linha).Value = TxtUser 'Essa é outra forma de atribuir valor a uma celula
End Sub

Private Sub UserForm_Initialize()
Sheets("Cadastro").Activate ' seleciona a planilha de cadastro
Dim Linha As Integer
Linha = 5

Do While Range("C" & Linha) <> "" ' sempre antes do While usa-se "do" , ficando "do while".Quando for diferente de ""(vazio), o ID ele irá adiciona os usuários da célula ao lado na combox, toda vez que o formulário iniciar
Linha = Linha + 1
ID = ID + 1
CBLista.AddItem (Range("D" & Linha))
Loop
End Sub

Abração Marciel, valeu mauro pela ajuda ontem.