Recimo da imas sledecu tabelu i formu
gde ComboBox sluzi da pronadjes Sifru, odnosno ako ukucas sifru da ti u ComboBox-u odabere proizvod.
Ubaci sledeci kod za ovakvu formu:
Code:
Private Sub UserForm_Activate()
ComboBox1.Clear
ComboBox1.RowSource = "Sheet1!B2:B6"
End Sub
Private Sub ComboBox1_Click()
TextBox1.Text = Range("A1").Offset(Application.WorksheetFunction.Match(ComboBox1.Text, Sheets("Sheet1").Range("B2:B6"), 0))
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo errHandle
ComboBox1.Value = Range("A1").Offset(Application.WorksheetFunction.Match(TextBox1.Text, Sheets("Sheet1").Range("A2:A6"), 0), 1)
Exit Sub
errHandle:
ComboBox1.Value = ""
End Sub
Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub
Pozdrav