none
Valores e dados em UserForm/TextBox RRS feed

  • Pergunta

  • 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.



    sexta-feira, 2 de março de 2012 16:25

Respostas

  • 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ç


    sexta-feira, 2 de março de 2012 22:45

Todas as Respostas

  • 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ç


    sexta-feira, 2 de março de 2012 22:45
  • Valeu cara,

    Vou tentar aqui e quaisquer outras duvidas posto novamente.

    Leonardo.

    segunda-feira, 5 de março de 2012 11:12