Atualização automát...
 
Notifications
Clear all

Atualização automática em Caixa de Texto

6 Posts
2 Usuários
0 Reactions
2,388 Visualizações
(@joaofan11)
Posts: 20
Eminent Member
Topic starter
 

Como faço para quando eu selecionar um item na Caixa de Combinação automaticamente Caixa de Texto apareça um resultado vinculado aquele item selecionado na Caixa de Combinação como em um PROCV?
:geek: :geek: :geek: :geek: :geek: :geek: :geek:

 
Postado : 02/06/2017 2:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

precisa programar o combobox pra alterar o valor da textbox,
daí neste código, vc pode preencher uma célula e pegar o resultado de um procv que dependa desta célula, ou fazer código para buscar o dado...
Existem mil maneiras.... precisamos de mais detalhes para escrever o código pra vc..
por exemplo, o que vc vai escolher na combobox, é pra buscar numa planilha, numa tabela... qual o nome da planilha, o endereço da tabela, se a tabela pode ou não aumentar, e qual a coluna do retorno...

Daí fica fácil montar um modelo pra vc !

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/06/2017 2:35 pm
(@joaofan11)
Posts: 20
Eminent Member
Topic starter
 

Boa tarde fernando.fernandes;

Segue Exemplo.

Gostaria que ao selecionar o item na combobox (Estados) logo em seguida a textbox fosse preenchido com a capital referente ao estado selecionado.

Obs: Os dados estão na Plan1

Desde já agradeço sua ajuda.

Sds, João Fernandes

 
Postado : 06/06/2017 1:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Utilize o código abaixo :

Private Sub ComboBox1_Change()
    
    Sheets("Plan1").Select
    
    With Worksheets("Plan1").Range("D:D")
        
        Set c = .Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlPart)
        
        If Not c Is Nothing Then
            
            c.Activate
            
            TextBox1.Value = c.Offset(0, 1).Value
        
        End If
        
    End With
    
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/06/2017 7:40 pm
(@joaofan11)
Posts: 20
Eminent Member
Topic starter
 

Obrigado pela a ajuda

 
Postado : 07/06/2017 8:04 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde João

Como a resposta do Mauro foi útil, você se esqueceu de clicar na mãozinha, para pontuar agradecimento para ele.
Vi que você nunca utilizou essa ferramenta.

Acesse o link para ver como funciona a regra:

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/06/2017 11:13 am