Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub CommandButton1_Click()
- TextBox2.Value = Application.VLookup(Me.ListBox1.Text,Sheets("Sheet1").Range("B.C"), 2, False)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement