none
gerar um codigo de indentificação(numero de registro) RRS feed

  • Pergunta

  • Bom dia pessoal

    Estou enfrentando mais um problema, não consigo gerar o numero de registro, ele tem que acompanhar e replicar na celula A2. cada item novo que é cadastrado gera um codigo e esse codigo tem de ser crescente na coluna A, porem a celula A2 deve ficar como conferencia do codigo atual, estou fazendo isso via uma interface criada no VBA, esse mesmo codigo de conferencia(A2) deve ser apresentado em uma Label eis meu codigo completo.

    Private Sub CommandButton1_Click()
        Sheets("Form1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End Sub
    
    Private Sub CommandButton3_Click()
        Unload Me
    End Sub
    
    
    Private Sub Label11_change()
    Range("a2").Value = Label11
    End Sub
    
    Private Sub Label13_Click()
    
    End Sub
    
    Private Sub Label14_Click()
    
    End Sub
    
    Private Sub lblprod_Click()
    
    End Sub
    
    Private Sub txtdat_Change()
        Range("c2").Value = txtdat
    End Sub
    
    Private Sub txtquant_Change()
    Range("S2").Value = txtquant
    End Sub
    
    Private Sub txtresp_Change()
        Range("d2").Value = txtresp
    End Sub
    Private Sub txtarea_Change()
        Range("e2").Value = txtarea
    End Sub
    Private Sub txtterceiro_Change()
        Range("g2").Value = txtterceiro
    End Sub
    Private Sub txtcodigo_Change()
        Range("h2").Value = txtcodigo
    End Sub
    Private Sub txtlote_Change()
        Range("j2").Value = txtlote
    End Sub
    Private Sub txtprod_Change()
        Range("k2").Value = txtprod
    End Sub
    Private Sub txtprocess_Change()
        Range("l2").Value = txtprocess
    End Sub
    Private Sub txtdesc_Change()
        Range("m2").Value = txtdesc
    End Sub
    Private Sub txtdisp_Change()
        Range("n2").Value = txtdisp
    End Sub
    Private Sub CommandButton2_Click()
        Dim lRow As Long
        
        With Sheets("Processos") '<- troque o nome da planilha, se necessário
            'Obtém última linha e soma 1:
            lRow = .Cells(.Rows.Count, "C").End(xlUp).Row + 1
            
            'Preenche dados na planilha:
            .Cells(lRow, "C") = txtdat
            .Cells(lRow, "D") = txtresp
            .Cells(lRow, "E") = txtarea
            .Cells(lRow, "G") = txtcodigo
            .Cells(lRow, "H") = txtcodigo
            .Cells(lRow, "J") = txtlote
            .Cells(lRow, "k") = txtprod
            .Cells(lRow, "l") = txtprocess
            .Cells(lRow, "m") = txtdesc
            .Cells(lRow, "n") = txtdisp
            .Cells(lRow, "s") = txtquant
        
                 
        End With
        
         
           
        ThisWorkbook.Save
    End Sub
    Private Sub UserForm1_Initialize()
    Me.ComboBox1.RowSource = "abre!a1:b50"
    End Sub
    
    Private Sub UserForm_Click()
    
    End Sub
    
     podem me ajudar?
    quinta-feira, 24 de janeiro de 2013 13:57

Respostas

Todas as Respostas

  • Esse código de conferência é um número sequencial que não se repete? Se não, como ele deve ser gerado?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 26 de janeiro de 2013 15:20
    Moderador
  • Exatamente, ele nao se repete, é um numero sequencial iniciado apartir do 50, porem estou enfrentando uma dificuldade, quando gera o numero ele nao salva o ultimo numero gerado, iniciando do 1 novamente.


    segunda-feira, 28 de janeiro de 2013 14:01
  • Continue a discussão nesse tópico: http://social.msdn.microsoft.com/Forums/pt-BR/vbapt/thread/21b0bfe2-77d3-4b69-b035-ec0bd671f262

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 29 de janeiro de 2013 21:06
    Moderador