Problema com Combob...
 
Notifications
Clear all

Problema com Combobox com números e textos

4 Posts
1 Usuários
0 Reactions
1,194 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenho uma planilha de prédios, em que tem seu nome e sua quantidade de andares.

Bom, criei a Combobox1 que tem a lista dos prédios, e, na célula J4, eu usei o PROCV pra trazer a quantidade de andares do prédio selecionado.

A Combobox 2 lista o "T" de térreo, e os valores de 1 até o valor que tem na célula J4.

Até aí tudo bem, conseguí fazer isso na Combobox.

O problema está quando seleciono um valor da Combobox, como tenho um valor de texto na Combobox( que é o "T") e depois selecionamos um número, ele vai ficar armazenado como texto, e eu precisarei desse número para referências futuras com o tipo número.

Já coloquei o comando pra mudar o tipo da célula ao alterar o valor, mas não vai, até porque fica aparecendo aquele erro 'verde' pedindo pra converter o número.

Eu já criei macros e botei pra converter pra ver se vai, não funciona.
Já tentei mudar o tipo, não funciona.

Já coloquei ao sair :

Range("K1").Select
Selection.NumberFormat = "0.00"

E não funciona.

Eu quero que, ao selecionar o "T" na Combobox, ele fique em texto. Quando eu selecionar algum número na combobox, ele fique em número.

Alguém tem a solução?

 
Postado : 30/06/2012 9:18 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Coloque este código na folha de código da planilha:

Private Sub ComboBox2_Click()
With ActiveSheet.Range("K1")
    If .Value <> "T" Then
            .Value = .Value * 1
            .NumberFormat = "General"
    End If
End With
End Sub
 
Postado : 30/06/2012 10:40 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Agora deu certo, obrigado, Fernando.

Obrigado. :)

 
Postado : 30/06/2012 12:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

:)

 
Postado : 01/07/2012 8:37 pm