EULESSI,

Bom dia!

Não sei se entendi corretamente. Quando tiver uma necessidade específica como esta, anexe um arquivo exemplo compactado aqui mesmo no fórum. Isso ajudará a entender melhor e ficará mais fácil de todos ajudarem.

Veja se é assim.

ok. bom d + , mas falta a contagem sequencial de meses para indicar em qual parcela esta ou que ja foram pagas

Não entendi...

Obrigado Wagner!!! Acabei de consegui resolver. hje é feriado aki em BH to aki pensando e consegui! valeu mesmo!!! mas vou te enviar outro!Pode ser?

ESTE CODG TA DANDO ERRO DE DEPURAÇÃO NESTA LINHA (Codigo = USUARIOS.CxaTexto_CU_Codigo) ONDE NA HRA FICA AMARELA

'procedimento para CADASTRAR USUÁRIO

Sub cadastrar_NovoUsuario()

Codigo = USUARIOS.CxaTexto_CU_Codigo
NomeCompleto = USUARIOS.CxaTexto_CU_NomeCompleto
Email = USUARIOS.CxaTexto_CU_Email
NOMEUSUARIO = USUARIOS.CxaTexto_CU_NomeUsuario
senhaUSUARIO = USUARIOS.CxaTexto_CU_SenhaUsuario
CONFIRMEsenha = USUARIOS.CxaTexto_CU_ConfirmeSenha
senhaADMINISTRADOR = USUARIOS.CxaTexto_CU_Senha_Administrador

linha = 2

Do Until Sheets("USUARIOS").Cells(linha, 1) = ""
linha = linha + 1
Loop

If USUARIOS.CxaTexto_CU_Codig <> "" _
And USUARIOS.CxaTexto_CU_NomeCompleto <> "" And USUARIOS.CxaTexto_CU_Email <> "" _
And USUARIOS.CxaTexto_CU_NomeUsuario <> "" And USUARIOS.CxaTexto_CU_SenhaUsuario = CONFIRMEsenha _
And USUARIOS.CxaTexto_CU_SenhaAdministrador = "ADMIN" Then

Sheets("USUARIOS").Cells(linha, 1) = Codigo
Sheets("USUARIOS").Cells(linha, 2) = NOMEUSUARIO
Sheets("USUARIOS").Cells(linha, 3) = senhaUSUARIO
Sheets("USUARIOS").Cells(linha, 4) = Date
Sheets("USUARIOS").Cells(linha, 5) = Time
Sheets("USUARIOS").Cells(linha, 6) = NomeCompleto
Sheets("USUARIOS").Cells(linha, 7) = Email

LimparCadastro

MsgBox "USUARIO CADASTRADO COM SUCESSO", vbInformation, "NOVO USUARIO"

Else: MsgBox "VERIFIQUE OS DADOS DIGITADOS OU A SENHA DO ADMINISTRADOR", vbCritical, "CADASTRO NEGADO"

End If
End Sub

' Procedimento para LIMPAR CAMPO DO FORMULARIO

Sub LimparCadastro()

USUARIOS.CxaTexto_CU_NomeCompleto = Empty
USUARIOS.CxaTexto_CU_Email = Empty
USUARIOS.CxaTexto_CU_NomeUsuario = Empty
USUARIOS.CxaTexto_CU_SenhaUsuario = Empty
USUARIOS.CxaTexto_CU_ConfirmeSenha = Empty
USUARIOS.CxaTexto_CU_SenhaAdministrador = Empty

End Sub

EULESSI, conforme o Wagner disse acima, o ideal é anexar seu modelo para uma analise melhor.

Só por "ESTE CODG TA DANDO ERRO DE DEPURAÇÃO NESTA LINHA (Codigo = USUARIOS.CxaTexto_CU_Codigo) ONDE NA HRA FICA AMARELA" fica dificil sem saber qual a mensagem de erro.
Então pela rotina que postou, só da para supormos.

1º ) Dependendo de como declarou a Variável e se foi declarada, você faz referencia a "USUARIOS que está definido como Name do UserForm e tambem como nome de uma aba, isto pode gerar conflitos.

2º ) Estou quase certo que o erro na linha é devido a digitação errada do nome do Controle, pois comparando as duas linhas abaixo :
Codigo = USUARIOS.CxaTexto_CU_Codigo
e
If USUARIOS.CxaTexto_CU_Codig <> "" _

Vemos que os nomes estão diferentes, temos a letra "o" a mais o que ocasionaria um tipo de erro.
Reveja os nomes definidos em seu modelo e se ainda continuar a ter erros, anexe seu modelo.

[]s