Colegas, estou tentando criar um simples botão no formulário para geração de códigos automaticamente. O código gerado vai ser exibido na TextBox, e após o cadastro dos demais dados toda informação do formulário vai ser transferida para a planilha.
Clicando no botão sozinho ele gera os códigos na sequência e transfere como esperado. O problema que estou encontrando é quando insiro as demais informações no formulário. Aí ao clicar em gerar código ele sempre gera de dois em dois. Segue o código do botão logo abaixo.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1
For j = 2 To i
If IsNumeric(Plan1.Cells(j - 1, 1)) Then
Plan1.Cells(j, 1) = Plan1.Cells(j - 1, 1) + 1
Else
Plan1.Cells(j, 1) = 1
End If
CampoCodigo.Text = Plan1.Cells(j - 1, 1) + 1
Next
End Sub
A ideia é gerar o código pelo botão, e transferir as demais informações do formulário na sequência do código sem saltos.
Alguém pode ajudar?
Postado : 17/02/2016 9:57 am