Bloodening,

Não sei qual a mensagem de erro que está dando e referente a qual linha (é importante que você coloque estas coisas em futuras postagens), mas veja se o procedimento estiver em um módulo (separado do Userform) você precisa se referir especificamente ao detentor do objeto a ser manipulado.
Assim, antes de lblCodigo.Caption você deve colocar o nome do Userform.
Exemplo: Userform1.lblCodigo.Caption
O mesmo vale para os demais controles!
Caso o problema esteja em lblCodigo.Caption = Agenda.Range("Registro").Value + 1 por "Agenda" ser o nome da planilha, você precisa referenciar o objeto usando Sheets("Agenda"), ao invés do nome direto.
Assim, fica: Sheets("Agenda").Range("Registro").Value + 1

Val

Bom dia Amigo,

Voce ja tentou utilizar macros?

tenta fazer uma rotina na macro ou no vba!

Att,

Amigo,

Aqui esta o exemplo:

Sub_

Range("H14:J18").Select
    Selection.ClearContents
    
End Sub

Att,

òtima resposta!

mprbraex,

está rotina "limpa" um intervalo e a questão é sobre "limpar" Controles.

Está correta, porém pode suprimir o Select:

Range("H14:J18").Select.ClearContents

No entanto, este tópico trata sobre "limpar" TextBoxes e o procedimento está correto:

TextBox1 = ""

Faço o indicado por Val e, caso ainda retone erro, indique qual a linha que fica destacada na depuração.

Prezados, vou tentar a dica da Val!

Agradeço pela colaboração de todos!!!

sou novato nessa àrea de VBA e vou precisar muito da ajuda de vocês!

Caso alguém precise de ajuda referente a máquinas cnc!!! ai sim eu posso ajudar!!!

Grato!

Caso dê algum erro eu posto novamente!!

Você copiou e colou exatamente o que está na folha de macro?
Se sim, verifique o nome das caixas de texto. Provavelmente a caixa que você postou como "txt.Nome.Value" não tem este ponto, e seria, portanto "txtNome.Value". Além disso, se "Agenda" for o nome de uma folha da sua planilha (abas da sua planilha), como já foi mencionado pelo Val Concesso, você deve se referir a ela como Sheets("Agenda").

Espero ter ajudado...

Abraços!