Exit Event

[Patrick Simonds]

The code below cause the contents of TextBox 80 to be placed onto the
worksheet when I exit the cell and it works fine if I Tab out of the cell or
click another TextBox on the same page of my MultiPage control.

My problem is, if the user clicks on the next page of the MultiPage control,
Excel does not recognize it as an exit event. So the value is not placed on
the worksheet. Any ideas?



Private Sub TextBox80_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox80.Value > "" Then
Worksheets("Income").Range("B3").Formula = "=" & TextBox80.Value

Else

Worksheets("Income").Range("B3").Formula = TextBox80.Value

End If

Call Initialization.Initialization

End Sub

 

[moon]

Add a Change-event to your MultiPage.
The .Value property represents the chosen page, so:

Private Sub YourMultiPage_Change()
If MultiPage.Value = 0 Then 'First Page
'TextBox handling here
End If
End Sub

 

[Patrick Simonds]

I tried many variants of your suggestion but was not able to get more than
the first page to update when I clicked to another page. The MultiPage
control has 6 pages (January, February, March, April, May, June). This is
where I am now, but again it only works when I click from January to any of
the other pages.


Private Sub MultiPage2_Change()

If MultiPage2.Value = 0 Then
PopulateWorksheets.PopulateWorksheets

ElseIf MultiPage2.Value = 1 Then
PopulateWorksheets.PopulateWorksheets

ElseIf MultiPage2.Value = 2 Then
PopulateWorksheets.PopulateWorksheets

ElseIf MultiPage2.Value = 3 Then
PopulateWorksheets.PopulateWorksheets

ElseIf MultiPage2.Value = 4 Then
PopulateWorksheets.PopulateWorksheets

ElseIf MultiPage2.Value = 5 Then
PopulateWorksheets.PopulateWorksheets

End If

End Sub