View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] MiataDiablo@gmail.com is offline
external usenet poster
 
Posts: 31
Default Userform causing a slip for Worksheet activate?

I have a userform that works perfectly the first time it's used, but
the Worksheet Activate for the worksheet(s) isn't firing when the
command button on the userform is used to return the user to the
previous worksheet - regardless of which worksheet they chose first.
Should I use a toggle button instead? I don't know how to code a
toggle button to toggle between two worksheets. Should I have
something in Deactivate for the Userform? Am I completely off
target?

REAL ESTATE INDEX WORKSHEET
Private Sub Worksheet_Activate()
BuildingsForm.Show vbModeless
Application.ErrorCheckingOptions.BackgroundCheckin g = False
With ActiveSheet
If .Columns("d:e").Hidden = False Then
.Columns("d:e").Hidden = True
.Columns("f:f").Hidden = False
End If
End With

End Sub

USERFORM
Private Sub UserForm_Activate()
Call AddMinBox
If ActiveSheet.Name = "Real Estate Index" Then
cmdBldgTab.Visible = True
togEditParty.Visible = True
cmdRealEstateTab.Visible = False
End If

If ActiveSheet.Name = "Buildings" Then
cmdBldgTab.Visible = False
togEditParty.Visible = False
cmdRealEstateTab.Visible = True
End If
End Sub

COMMAND BUTTONS
Private Sub cmdBldgTab_Click()
'Visible when Real Estate Index worksheet is active
Sheets("Buildings").Select
Range("A1").Select
End Sub


Private Sub cmdRealEstateTab_Click()
'Visible when Buildings worksheet is active
Sheets("Real Estate Index").Select
Range("B1").Select
End Sub