Fóruns
Microsoft Excel - 2...
Formulários
Gerar Codigo de Ind...
 
Notifications
Clear all

Gerar Codigo de Indentificação Sequencial

 
Formulários
8 Posts
2 Usuários
0 Reactions
2,486 Visualizações
RSS
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Boa Noite,
estou criando um formulario para cadastro de fornecedores. Para cada cadastro gera um numero identificador novo, porem quando não tem nenhum cadastro surge o erro em tempo de execução '6'. Estouro.

O que vem a ser isso?

A logica que usei é a seguinte:
1) Conta as linhas preenchidas com dados do cliente
2) Pega o valor da ultima celula preenchida
3) Usa esse valor para a textbox para cadastrar o novo cliente.

Eis o codigo:

Sub atualiza_Codigo_Calculado()

Dim QuantDados As Integer
QuantDados = Range("A1").End(xlDown).Row

If QuantDados = 0 Then
TextBox_Codigo.Value = 1
Else

TextBox_Codigo.Value = Cells(QuantDados, 1)

End If
End Sub

 
Postado : 21/02/2012 5:51 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Já tentou um tratamento de erro.

Ex:.
On Error Resume Next

 
Postado : 21/02/2012 5:55 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Não. Nem sei do que se trata...rs. Pode explicar como se faz?

 
Postado : 21/02/2012 6:09 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Poste sua planilha modelo!

 
Postado : 21/02/2012 6:12 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

É a rotina 1 do form.

Com a planilha apagada do jeito que está da erro. Se colocar manual o numero 1 na celula codigo e o nome ela roda normalmente.

 
Postado : 21/02/2012 6:20 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Use esse codigo

Sub atualiza_Codigo_Calculado()

Dim QuantDados As Integer
Dim Num As Integer

On Error Resume Next
QuantDados = Range("A1").End(xlDown).Row

If QuantDados = 1 Then
TextBox_Codigo.Value = 1
Else

Num = Cells(QuantDados, 1)
TextBox_Codigo.Value = Num + 1
On Error GoTo 0
End If

End Sub
 
Postado : 21/02/2012 6:37 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Show!!!! Matou.... ganhou um joinha... rsrsrs
vlw!!!!

 
Postado : 21/02/2012 6:52 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Obrigado pelo retorno!!!

Att+++ ;)

 
Postado : 21/02/2012 7:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico