Gerar código de contrato
Enviado: 15 Jul 2016 às 20:38
Boa noite,
Estou finalizando minha planilha e logo não incomodarei mais com minhas duvidas, mas até lá preciso de ajuda...
Estou tentando fazer com que o numero de cliente e o numero de contrato se alto some,
estou usando este codigo
linha = 2
contador = 0
Do Until Sheets("Cadastro_de_Clientes").Cells(linha, 1) = ""
If Sheets("Cadastro_de_Clientes").Cells(linha, 1) > contador Then
contador = contador + 1
linha = linha + 1
Else
End If
Loop
contador = contador + 1
txtFcodcliente = contador & "." & Format(Date, "dd.m.yy")
>>>>>>>>>>>>>>>>>>>> Preciso carregar uma combo que esta meus clientes e referente a este cliente se a célula da plan for vazia ele gere um codigo caso já esteja preenchida ele carregue o codigo que já existe.... com o codigo de cliente esta funcionando mas o de contrato não funciona...
segue a planilha em anexo para alguém me ajudar....
Estou finalizando minha planilha e logo não incomodarei mais com minhas duvidas, mas até lá preciso de ajuda...
Estou tentando fazer com que o numero de cliente e o numero de contrato se alto some,
estou usando este codigo
linha = 2
contador = 0
Do Until Sheets("Cadastro_de_Clientes").Cells(linha, 1) = ""
If Sheets("Cadastro_de_Clientes").Cells(linha, 1) > contador Then
contador = contador + 1
linha = linha + 1
Else
End If
Loop
contador = contador + 1
txtFcodcliente = contador & "." & Format(Date, "dd.m.yy")
>>>>>>>>>>>>>>>>>>>> Preciso carregar uma combo que esta meus clientes e referente a este cliente se a célula da plan for vazia ele gere um codigo caso já esteja preenchida ele carregue o codigo que já existe.... com o codigo de cliente esta funcionando mas o de contrato não funciona...
segue a planilha em anexo para alguém me ajudar....