Página 1 de 1

Comobobox personalizado

Enviado: 10 Ago 2017 às 13:16
por intercon
Boa tarde, pessoal!

Como eu faço para que uma combobox no VBA apresente os itens exatamente como estão nas células?

Por exemplo: minhas células estão personalizadas com o formato "123456-0"

Então criei a variável:

boxNF = format(boxNF.text, "000000-0")

mas não está dando certo. Nas opções aparecem os números sem formatação (1234560).

Porém, quando clico na opção escolhida, ele vai para a combo da maneira que deve ir (123456-0). Só que tem um detalhe: quando o digito verificador (o número depois do hífen) é diferente de zero, o número muda completamente.

Exemplo: suponhamos que o numero seja 000123-0. O resultado será 000123-0.
Mas se o número for 000123-1, o resultado é algo totalmente diferente, algo do tipo "059236-9".

Alguém pode me ajudar?

Segue um print pra vocês terem uma ideia.

Comobobox personalizado

Enviado: 11 Ago 2017 às 10:34
por wesleyribeiro123
Intercon
Bom dia,

Brother, reveja teu código, pois tem algo estranho acontecendo...
Observe o exemplo que te enviei.

Nele eu simplesmente me referencio a célula e no ComboBox já corretamente preenchido, ele sempre será um espelho do Excel, desde que não haja nenhum procedimento para mudar esta condição, exemplo o Format() ou se você estiver convertendo este número das NF's para número e tirando o formato de texto da mesma. Ele deverá permanecer como texto pois se convertido para número ele omitirá os zeros que antecedem o número da NF e ao tentar corrigir usando o Format() vc acaba alterando a estrutura deste número, ai onde provavelmente gere o erro que mencionou.

Veja meu exemplo com os códigos que utilizei.

Comobobox personalizado

Enviado: 11 Ago 2017 às 14:10
por intercon
Obrigado, Wesley! Era exatamente isso que eu tava precisando. Você matou dois coelhos com uma caixa dágua só: solucionou o problema de formatação do campo e da repetição das NFs quando trocava o cliente...
Valeu mesmo!