Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Gerar codigo difere...
 
Notifications
Clear all

Gerar codigo diferente

 
2024 - VBA & Macros
Post Recente por Wagner Morel 10 anos atrás
4 Posts
3 Usuários
0 Reactions
969 Visualizações
RSS
 souzadenilson
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Criei um formulario para cadastro de cliente e fornecedor, porem coloquei um checklist.
Como proceder para quando escolher fornecedor ele me gere um codigo e para cliente outro codigo.
Segue a linha de comando.
Private Sub UserForm_Initialize()
Dim wsCadastro As Worksheet
Dim codigo

Set wsCadastro = Worksheets("Cliente_Fornecedor")
codigo = 1
codigo = codigo + 1

lastRow = wsCadastro.Cells(Rows.Count, 1).End(xlUp).Row - 1

Txt_CodFornCliente = Format(lastRow, "01#-1")

End Sub

 
Postado : 11/07/2014 8:01 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poderia deixar seu arquivo modelo postado aqui no fórum?!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/07/2014 8:07 pm
 souzadenilson
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Segue o arquivo anexado e compactado

 
Postado : 11/07/2014 8:22 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

souzadenilson,

Boa Tarde!

Veja se é assim.

Defini um código para fornecedor (0IF-) e outro para cliente (01C-). Esses código precisam estar gravados nas colunas A (Fornecedor) e na coluna B (Cliente). Do contrário, o sistema não tem de onde "ler" os códigos quando o usuário optar por Fornecedor ou Cliente.

Quando o formulário é iniciado nada ocorre, pois não há marcações ainda se se trata de um Fornecedor ou de um Cliente. Assim, quando o usuário clica em um dos checkbox's (Fornecedor ou Cliente) é disparado o código que ler a respectiva coluna, verifica qual é o último gravado e adiciona 1 unidade. Mostra o resultado na caixa de texto de código e grava isso na próxima linha da respectiva coluna.

Programa Pessoal.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 12/07/2014 3:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico