Notifications
Clear all

Eventos controles VBA

4 Posts
3 Usuários
0 Reactions
936 Visualizações
(@l-b-o)
Posts: 3
New 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

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

 
Postado : 15/01/2014 2:04 pm
Fernando Fernandes
(@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.

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

 
Postado : 15/01/2014 4:22 pm