Hi,
I have a combobox that looks up a range on a sheet, code snippet is:
Private Sub snamesearch_Change()
Dim ws As Worksheet
Set ws = Worksheets("ConKins")
Me.snamedup.Value = ws.Range("sur_full").Cells(Me.snamesearch.ListIndex + 1, 1).Offset(0, 0)
Me.crdate.Value = ws.Range("sur_full").Cells(Me.snamesearch.ListIndex + 1, 1).Offset(0, -8).Text
'Me.crdate.Value = Format(Me.crdate.Value, "mm/dd/yy")
Me.creator.Value = ws.Range("sur_full").Cells(Me.snamesearch.ListIndex + 1, 1).Offset(0, -7)
Me.pactmem.Value = ws.Range("sur_full").Cells(Me.snamesearch.ListIndex + 1, 1).Offset(0, -6)
Me.title.Value = ws.Range("sur_full").Cells(Me.snamesearch.ListIndex + 1, 1).Offset(0, -5)
End Sub
That works fine, except if the value typed in does not match an entry in the drop down list. All the headers for the columns enter the textboxes on my form. Which is posing a real pain when entering data. Is tehre a way to stop that from happening without purely using teh match function?
Thank you in advance,
JP
Bookmarks