Thread: UserForm Not Opening

Hi all,

So I have a userform that opens and then closes upon the workbook opening. The reason that it does this is to get relative coordinates for that userform to appear, before the user has scrolled on the page.

Anyways, when I press the button to open the userform again, it doesn't open, and the entire excel screen loses focus (the bar up top is the shaded gray blue). No matter how many times I press it, it won't start. However if I go into the VB Editor, hit the stop button, and then go back and press the button for that userform, it will appear, but it will not appear in the proper area on the screen. I'm not sure much worried about it appearing on the proper area on the screen as I am to just getting the userform to appear again.

Anyone have any ideas as to what might be happening? I forgot to mention that the Forms open up properly on my computer, however they do not open up and I get this issue I described when I work on another computer of a different screen resolution. As you can see, the zoom is adjusted in the workbook open according to the screen resolution, this way the user is looking at the same view of the workbook everytime they open it.

Here is my workbook open code

Private Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Public Sub Workbook_open()
Application.WindowState = xlMaximized

Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points


Application.ScreenUpdating = False
ActiveWindow.Zoom = (w * 130) / 1600
Application.ScreenUpdating = True

Range("I8").Select
initialForm = True

ShowForm
Unload PMD_Wizard 'unloads the ShowForm call
ActivitiesMacro
Unload Activities 'Unloads the activities call

End Sub

Here is my code for calling the ShowForm (The same thing happens with the activities macro)

Public Sub ShowForm()
If firstElementPosit Then
Dim PS As Positions
PS = PositionForm(PMD_Wizard, Range("Z17"), -20, -3, cstFhpFormLeftCellRight, cstFvpFormTopCellTop)
firstElementPosit = False
formLeft = PS.FrmLeft
formTop = PS.FrmTop
End If
PMD_Wizard.top = formTop
PMD_Wizard.Left = formLeft
PMD_Wizard.Show vbModeless

End Sub

Public Sub ActivitiesMacro()
If firtActivPosit Then
Dim PS As Positions
PS = PositionForm(Activities, Range("Y17"), 8, -3, cstFhpFormLeftCellRight, cstFvpFormTopCellTop)
activLeft = PS.FrmLeft
activTop = PS.FrmTop
firtActivPosit = False
End If
Activities.top = activTop
Activities.Left = activLeft
Activities.Show vbModeless

End Sub

I don't think all the code is there so it's hard to see where the error is. Try attaching an example workbook.

As you showed perfectly well yourself you don't need to open a userform to set the screencoordinates:
You can store those coordinates everywhere in the workbook or in a public variable.
But you can also make this code part of the userform module:

Private Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Private Sub Userform_Initialize()
  tag=GetSystemMetrics32(0)& "|" & GetSystemMetrics32(1)
End Sub

I don't see any benefit in using several userforms in 1 project.
The module 'modformpositioner' seems to me to be totally redundant.

I've figured out that setting the positioning is somehow causing this.

Activities.top = activTop
Activities.Left = activLeft

when I comment out these lines of code, they form opens, however it just opens in the upper left hand corner and not where I want it (hence why I have set these coordinates to position it.) Any ideas as to why this codes would make it so the form isn't appearing? Is it possible that the form is appearing, but somewhere that is off the screen and not visible?

Apparently activTop = 226 on my computer and activLeft = 906, no matter what the resolution is. If I change the resolution, is it possible like I suggested above that it is placing the form off the screen? If so how would I know?