| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox exit event search error
No problem, glad that I could help.
"Craig" wrote: thanks for all your help, that got me closer, but still wasn't working quite right, as i was stepping that through it wasn't setting anything as the email address (or the range). so i took your suggestions and incorporated them into my original code, after some further debugging, it works great, here's the code i ended up with, thanks again Private Sub RequestorCBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim myEmail As String Dim myRequestor As String Call TurnOff myRequestor = RequestorCBox.Value If RequestorCBox.Value < "" Then Sheets("Data").Select Range("e10:e21").Select On Error Resume Next Selection.Find(What:=myRequestor, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, searchdirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate On Error GoTo 0 If (Not ActiveCell Is Nothing) Then ActiveCell.Offset(0, 1).Select myEmail = ActiveCell.Value Me.EmailBox.Value = myEmail End If End If End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| MsgBox in Enter event causes combobox not to run Change event | Excel Programming | |||
| Need some help with Exit Event | Excel Programming | |||
| ComboBox Exit | Excel Programming | |||
| combobox exit event | Excel Programming | |||
| Exit Event | Excel Programming | |||
Threaded Mode
