Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Numeração sequencia...
 
Notifications
Clear all

Numeração sequencial com critério

 
2024 - VBA & Macros
Post Recente por araujors 10 anos atrás
3 Posts
2 Usuários
0 Reactions
1,067 Visualizações
RSS
 araujors
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Bom dia!
Pessoal eu tenho um código que cria números sequencias sem repetição que é o que eu preciso, mas to tentando fazer que ele crie o numero apenas quando eu adicionar algo numa próxima linha do Excel.

Exemplo:
A2 = Brasil então B2 = 001(Isso pq a primiera celula esta fazia se não ele já adiciona 002)
e quando eu digitar algo no A3 automaticamente ele tem que acrescentar no B3 = 002
e quando eu digitar algo no A4 automaticamente ele tem que acrescentar no B4 = 003
e assim por diante .... e se tiver celula vazia então não acrescenta numero.

Se puderem me ajudar agradeço.

Segue o código sequencial sem repetição:

Sub num()
On Error Resume Next
Dim j As Long
j = Plan1.Cells(Cells.Rows.Count, "b").End(xlUp).Row + 1
If IsNumeric(Plan1.Cells(j - 1, 2)) Then
Plan1.Cells(j, 2) = Plan1.Cells(j - 1, 2) + 1
Else
Plan1.Cells(j, 2) = 1
End If
End Sub

 
Postado : 21/01/2015 9:40 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Pode ser assim?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Target.Column = 1 Then Exit Sub
If IsNumeric(Target.Offset(-1, 1)) Then
Target.Offset(0, 1) = Target.Offset(-1, 1) + 1
Else
Target.Offset(-1, 1) = 1
End If
End Sub

Nota: não coloque em um módulo, coloque diretamente na planilha que vai receber o código

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 21/01/2015 10:06 am
 araujors
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Pode ser assim?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Target.Column = 1 Then Exit Sub
If IsNumeric(Target.Offset(-1, 1)) Then
Target.Offset(0, 1) = Target.Offset(-1, 1) + 1
Else
Target.Offset(-1, 1) = 1
End If
End Sub

Nota: não coloque em um módulo, coloque diretamente na planilha que vai receber o código

Obrigado amigão era isso mesmo que eu precisava, muito bom!

 
Postado : 21/01/2015 5:59 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico