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
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
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 SubNota: 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!