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 celular da plan for vazia ele gere um codigo caso já esteja preenchida ele carregue o codigo que já existe.... com o cogido de cliente esta funcionando mas o de contrato não funciona...

segue a planilha em anexo para alguém me ajudar....