Notifications
Clear all

Eventos controles VBA

4 Posts
3 Usuários
0 Reactions
925 Visualizações
(@l-b-o)
Posts: 3
Active Member
Topic starter
 

Estou desenvolvendo uma pequena aplicação na empresa onde eu trabalho.
Os dados em que alimento meus controles, como combox estão em uma planilha do Excel.
Preciso de um código VBA para fazer o seguinte: Ao selecionar em um combox a matricula do funcionário registrado, o nome do mesmo apareça em um textbox.
Outro ponto que preciso resolver é o seguinte: tenho 4 textbox (1,2,3 e 4), 3 e 4 são os resultados dos cálculos entre 1 e 2. Gostaria de informar o valor no textbox 1 e 2 e os valores dos cálculos apareçam automaticamente nos textbox 3 e 4.

Poderiam me ajudar???

 
Postado : 14/01/2014 5:15 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

L.B.O,

Boa Noite!

Ao selecionar em um combox a matricula do funcionário registrado, o nome do mesmo apareça em um textbox

Supondo que o combobox se chama ComboBox1, o TextBox se chama TextBox1, as matrículas estão na coluna A, os nomes na coluna B e que os dados começam na linha 2 (fora o cabeçalho) na aba chamada Plan1.

Use o código abaixo no evento Click do ComboBox:

Private Sub ComboBox1_Click()
    Dim i, UltimaLinha As Long
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
    For i = 2 To UltimaLinha
        If Val(Range("A" & i).Value) = ComboBox1.Value Then
            TextBox1.Text = Range("B" & i).Value
            Exit For
        End If
    Next
End Sub

Gostaria de informar o valor no textbox 1 e 2 e os valores dos cálculos apareçam automaticamente nos textbox 3 e 4.

No evento Exit do TextBox2, faça assim:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Val1, Val2 As Integer
    Val1 = Val(TextBox1.Text): Val2 = Val(TextBox2.Text)
    TextBox3.Text = Val1 + Val2
    TextBox4.Text = Val1 * Val2
End Sub

Segue pequeno exemplo.

 
Postado : 14/01/2014 7:14 pm
(@l-b-o)
Posts: 3
Active Member
Topic starter
 

Show de bola Wagner. Deu certinho aqui. Grato pela ajuda!

 
Postado : 15/01/2014 2:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 15/01/2014 4:22 pm