Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Auto numeração - Pu...
 
Notifications
Clear all

Auto numeração - Pulando dois - Formulário

 
2024 - VBA & Macros
Post Recente por jvra 9 anos atrás
5 Posts
2 Usuários
0 Reactions
1,016 Visualizações
RSS
 jvra
(@jvra)
Posts: 21
Eminent Member
Topic starter
 

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
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Se eu entendi vc esta gerando o contador entao tente ajustar o codigo

Substitui o seu por este

Sub contador()

Cont As Long

Cont = Cont

Cont = Cont + 1

CampoCodigo.Text = Cont

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/02/2016 12:44 pm
 jvra
(@jvra)
Posts: 21
Eminent Member
Topic starter
 

Se eu entendi vc esta gerando o contador entao tente ajustar o codigo

Substitui o seu por este

Sub contador()

Cont As Long

Cont = Cont

Cont = Cont + 1

CampoCodigo.Text = Cont

End Sub

Sim, mas ele não começa do zero. Estava inserindo o código via formulário manualmente. A ideia é padronizar a inserção do código via botão. Estou na lina "a754".

O código que mencionei acima insere na sequência somente se o campo "código" estiver só ele preenchido no formulário. A partir do momento que preencho todo o formulário, o contador começa os registros (linhas) de dois em dois. Para me atender ele deveria contar de um em um.

Agradeço MPrudencio. Aguardando dicas.

 
Postado : 17/02/2016 1:21 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Disponibilize seu arquivo que fica mais facil ajudar, os dados pouco importam.

Mas analisando o codigo novamente tente o seguinte

Retire o +1

Dessa parte do codigo

CampoCodigo.Text = Plan1.Cells(j - 1, 1) + 1

Deixando assim

CampoCodigo.Text = Plan1.Cells(j - 1, 1)

Provavelmente vai funcionar.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/02/2016 1:35 pm
 jvra
(@jvra)
Posts: 21
Eminent Member
Topic starter
 

Disponibilize seu arquivo que fica mais facil ajudar, os dados pouco importam.

Mas analisando o codigo novamente tente o seguinte

Retire o +1

Dessa parte do codigo

CampoCodigo.Text = Plan1.Cells(j - 1, 1) + 1

Deixando assim

CampoCodigo.Text = Plan1.Cells(j - 1, 1)

Ainda não foi. Segue a planilha em anexo MPrudencio.

Provavelmente vai funcionar.

 
Postado : 17/02/2016 2:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico