Excel 2010 + VBA - Cadastro de Clientes com gerador de código automático

rbtne0 · 10 de janeiro de 2013

Boa tarde pessoal, estou fazendo uma planilha de cadastro de cliente com macro.

O problema que estou encontrando é na geração de Código do Cliente automático. Na verdade não sei ao certo qual a rotina para que isso seja feito.

Esse é o link para quem puder me ajudar nessa parte:

https://www.4shared.com/file/BArU5jXT/Cadastro_de_Clientes.html

10 de janeiro de 2013

No código Private Sub btGravar_Click()

acrescente a linha em vermelho (pode excluir a caixa para o número do código no UserForm)

aproveite para corrigir os números das colunas, em azul são os números corretos

...
 'Cadastro
 '======================
 '======================

 [COLOR="Red"][B] Cells(lin, 2) = Application.Max(Range("B:B")) + 1[/B][/COLOR]
  [COLOR="SeaGreen"][B]Cells(lin, 3) = txtCod >> exclua esta linha[/B][/COLOR]
  Cells(lin, [COLOR="RoyalBlue"][B]3[/B][/COLOR]) = txtNome
  Cells(lin, [COLOR="RoyalBlue"][B]4[/B][/COLOR]) = txtEnd
  Cells(lin, [COLOR="RoyalBlue"][B]5[/B][/COLOR]) = txtFone
  Cells(lin, [COLOR="RoyalBlue"][B]6[/B][/COLOR]) = txtCel
  Cells(lin, [COLOR="RoyalBlue"][B]7[/B][/COLOR]) = txtObs

  MsgBox "Cadastro efetuado com sucesso", vbInformation, "SUCESSO"
...

rbtne0 · 10 de janeiro de 2013

No código Private Sub btGravar_Click()

acrescente a linha em vermelho (pode excluir a caixa para o número do código no UserForm)

aproveite para corrigir os números das colunas, em azul são os números corretos

...
 'Cadastro
 '======================
 '======================

 [COLOR="Red"][B] Cells(lin, 2) = Application.Max(Range("B:B")) + 1[/B][/COLOR]
  [COLOR="SeaGreen"][B]Cells(lin, 3) = txtCod >> exclua esta linha[/B][/COLOR]
  Cells(lin, [COLOR="RoyalBlue"][B]3[/B][/COLOR]) = txtNome
  Cells(lin, [COLOR="RoyalBlue"][B]4[/B][/COLOR]) = txtEnd
  Cells(lin, [COLOR="RoyalBlue"][B]5[/B][/COLOR]) = txtFone
  Cells(lin, [COLOR="RoyalBlue"][B]6[/B][/COLOR]) = txtCel
  Cells(lin, [COLOR="RoyalBlue"][B]7[/B][/COLOR]) = txtObs

  MsgBox "Cadastro efetuado com sucesso", vbInformation, "SUCESSO"
...

Obrigado Osvaldo, funcionou perfeitamente.