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