Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit Event
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit Event
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" schreef in bericht ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit Event
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 "moon" wrote in message . .. 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" schreef in bericht ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
exit event | Excel Programming | |||
Need some help with Exit Event | Excel Programming | |||
How To Get An Event To Run When I Exit A TextBox | Excel Programming | |||
combobox exit event | Excel Programming | |||
Exit Event | Excel Programming |