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

Numeração Automatica

 
2024 - VBA & Macros
Post Recente por drbeil 9 anos atrás
4 Posts
3 Usuários
0 Reactions
1,192 Visualizações
RSS
 drbeil
(@drbeil)
Posts: 0
New Member
Topic starter
 

Bom dia,

Achei esse código para fazer numeração automática.
Porém tem momento que os código tem que repetir e a numeração não reconhece o último número na célula, reconhece a contagem do código(macro).

Segue anexo o arquivo e abaixo o código.

Private Sub b_ordemservico_Click()
Linha = 10
cont = 1001

Do Until Sheets("teste").Cells(Linha, 4) = ""
cont = cont + 1

Linha = Linha + 1
Loop
txtordemservico.Text = cont
End Sub

Exemplo:
- Começa do 1001;
- Caso o 1001 se repete 3 vezes
- O próximo número automático é 1004

Eu quero que o próximo numero seja 1002, mesmo que seja repetido 3 vezes o número anterior.

Obrigago

 
Postado : 13/03/2015 9:27 pm
 messiasmbm
(@messiasmbm)
Posts: 0
New Member
 

Apague o seu e cole...

Private Sub b_ordemservico_Click()
Dim ultimonumero
If Sheets("TESTE").Range("C10") = "" Then
ultimonumero = 1001
txtordemservico = Sheets("TESTE").Range("C" & ultimonumero).Value
End If


If Sheets("TESTE").Range("C10") <> "" Then

ultimonumero = Sheets("TESTE").Range("C1000000").End(xlUp).Row
txtordemservico = Sheets("TESTE").Range("C" & ultimonumero).Value + 1

End If
End Sub

Espero ter ajudado!

 
Postado : 19/09/2015 2:39 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Se vc quer um contador pode fazer assim

sub contador()

range("a1").value = range ("a1).value
range("a1").value = range ("a1).value + 1

end sub

E so colocar em um botao e pronto.

 
Postado : 19/09/2015 6:42 am
 drbeil
(@drbeil)
Posts: 0
New Member
Topic starter
 

Messias boa tarde,

Deu certo esse código.

Abraço

 
Postado : 19/09/2015 12:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico