Hope I can explain this properly.
I have a formula in column E that matches data in column C and displays a hyperlinked name based on that data. Looks like this:
Now I've created a UserForm to make data entry on the main sheet easier. I'd like to add the same auto populate feature found in column E to the UserForm "Field Manager" text box. So, when I type data in the "Sub/Lot Code" text box I need the "Field Manager" text box to auto populate based on that data. The "Field Manager" text box is named FieldManagerReturn.
I'm not sure where the code that does the matching would reside. Perhaps with the actual Form?
I have a formula in column E that matches data in column C and displays a hyperlinked name based on that data. Looks like this:
Now I've created a UserForm to make data entry on the main sheet easier. I'd like to add the same auto populate feature found in column E to the UserForm "Field Manager" text box. So, when I type data in the "Sub/Lot Code" text box I need the "Field Manager" text box to auto populate based on that data. The "Field Manager" text box is named FieldManagerReturn.
I'm not sure where the code that does the matching would reside. Perhaps with the actual Form?
VBA Code:
Option Explicit
Private Sub cmdReset_Click()
Call Reset
End Sub
Private Sub cmdSave_Click()
Call Submit
Call Reset
End Sub
Private Sub GarageHandling_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Submit
End If
If KeyCode = 13 Then
Reset
End If
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub txtID_Change()
End Sub
Private Sub Frame2_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
Call Reset
End Sub
Private Sub userform_terminate()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Database").Visible = True
Sheets("Database").Select
Dim WorkRange As Range
Dim Cell As Range
Set WorkRange = ActiveSheet.UsedRange
For Each Cell In WorkRange
If Cell.Locked = False Then Cell.ClearContents
Next Cell
Sheets("Database").Visible = False
Sheets("Calendar").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Private Sub CloseButton_Click()
Unload Me
End Sub
