Userform startup position

rickblunt

Active Member
Greetings, I am using the following code to open a number of userforms simultaneously in a cascade layout. The first code (cleanroom zone) runs perfectly and the userforms layout just as I want them to. But the second one (grayroom zone) doesn't. The userforms do not start up in the same place, in fact a couple of them are stacked directly on each other. I can't figure out why, the code is exactly the same on each one. Anyone have an idea why they are not launching the same? Thanks,


Code:
Private Sub CleanroomZoneButton_Click()

    Unload EmergencyLightArea

    With DataEntryEmergencyShowerCr
    .Top = 10
    .Left = 10
    End With
    DataEntryEmergencyShowerCr.Show
        
    With DataEntryFeCr
    .Top = 50
    .Left = 50
    End With
    DataEntryFeCr.Show
        
    With DataEntryElCr
    .Top = 100
    .Left = 100
    End With
    DataEntryElCr.Show
        
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DataEntryLadder.Show
        
    
End Sub
Code:
Private Sub GrayroomZoneButton_Click()

    Unload EmergencyLightArea
    
    With DataEntryEmergencyShowerGr
    .Top = 10
    .Left = 10
    End With
    DataEntryEmergencyShowerGr.Show
        
    With DataEntryFeGr
    .Top = 50
    .Left = 50
    End With
    DataEntryFeGr.Show
        
    With DataEntryElGr
    .Top = 100
    .Left = 100
    End With
    DataEntryElGr.Show
        
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DataEntryLadder.Show
    

End Sub
 

DanteAmor

Well-known Member
Try this

Code:
Private Sub CleanroomZoneButton_Click()


    Unload EmergencyLightArea


    DataEntryEmergencyShowerCr.Show
    With DataEntryEmergencyShowerCr
    .Top = 10
    .Left = 10
    End With
[COLOR=#0000ff]    DoEvents[/COLOR]
        
    DataEntryFeCr.Show
    With DataEntryFeCr
    .Top = 50
    .Left = 50
    End With
    DoEvents
        
    DataEntryElCr.Show
    With DataEntryElCr
    .Top = 100
    .Left = 100
    End With
    DoEvents


    DataEntryLadder.Show
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DoEvents
End Sub


Private Sub GrayroomZoneButton_Click()


    Unload EmergencyLightArea
    
    DataEntryEmergencyShowerGr.Show
    With DataEntryEmergencyShowerGr
    .Top = 10
    .Left = 10
    End With
[COLOR=#0000ff]    DoEvents[/COLOR]
        
    DataEntryFeGr.Show
    With DataEntryFeGr
    .Top = 50
    .Left = 50
    End With
    DoEvents
    
    DataEntryElGr.Show
    With DataEntryElGr
    .Top = 100
    .Left = 100
    End With
    DoEvents
        
    DataEntryLadder.Show
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DoEvents
End Sub
 

rickblunt

Active Member
Thanks for the reply Dante, I realized later that I had made a rookie mistake and that the startup settings on some of my userforms was set to "1-center" instead of "0-manual". Duh, I appreciate the help
 

Some videos you may like

This Week's Hot Topics

  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • find many based on a certain criteria
    good evening, I hope someone can help me? I have a workbook sheet 2 contains lots of data.... I would like to be able to find anything on sheet...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...
  • Text Format
    I have a sheet for user to keyin the data. The format of the data can be 451 / 1903, 0012 / 9908 or 00287 / 0099. The number after the "/" is...
  • Syntax errors
    Good Morning, Trying to compile a workbook, I keep getting a few errors. Here are the first two: [code=rich]Syntax Error: Function...
Top