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