Valores e dados em UserForm/TextBox

Question

Pessoal, bom dia,

Elaborei uma planilha de controles de Não Conformidade no Excel Vba.

Todos os dados inseridos na mesma depende de um número (núnero da RNC - relatório de não conformidade).

Todos os dias são gerados novos números de RNC's, em ordem crescente, que é digitado em um TexteBox.

O problema é que os operadores estão repetido e pulando alguns números, com isso, tenho RNC's diferentes, com números iguais.

Eu gostaria que quando o usuário, ao lançar os dados de RNC o número já fosse gerado automaticamente (ou seja, o útimo número da RNC + 1), no TesteBox do UserForm.

Espero ter explicado bem minha dúvida para melhor entendimento.

No aguardo,

Leonardo Oliveira.

Answer 1

Há varias soluções seria interessante postar um modelo da plan para que possa lhe ajudar melhor.

Mas uma solução simples seria você adicionar em alguma planilha um campo com o último relatório gerado, e quando carregar o form adicionar mais um no valor e enviar para o textbox, depois quando cadastrar envia para o campo o valor do textbox.

ex.:

Private Sub CommandButton1_Click()
'Cadastra último relatório gerado

Sheets(1).Range("a1") = TextBox1.Text

End Sub
Private Sub UserForm_Initialize()

' Atualiza último relatório gerado
TextBox1.Text = Sheets(1).Range("a1") + 1

End Sub

Abrç

Answer 2

Valeu cara,

Vou tentar aqui e quaisquer outras duvidas posto novamente.

Leonardo.