Problems positioning UserForm

[FranktheBank]

Hello again,

I had this working before but, for some reason I messed it up. I have a UserForm called "New_Line_Insert" and I'm trying to get it near the top right hand side of the screen.

I have the following code in my 'ThisWorkbook'

Private Sub UserForm_Activate()
    With New_Line_Insert
        .Top = Application.Top + 1025 '< change 125 to what u want
        .Left = Application.Left + 2025 '< change 25 to what u want
    End With
End Sub

No good, I've tried:

Private Sub UserForm_Activate()
    With UserForm
        .Top = Application.Top + 1025 '< change 125 to what u want
        .Left = Application.Left + 2025 '< change 25 to what u want
    End With
End Sub

I've also put these Codes on mySheet4 Object where it is supposed to be working!!

The Userform is appearing but it is in the middle to the Left of the screen??

 

[SirJB7]

Hi, FranktheBank!
Check property StartUpPosition, it should be in Manual.
Regards!

 

[Debaser]

Hello again,

I had this working before but, for some reason I messed it up. I have a UserForm called "New_Line_Insert" and I'm trying to get it near the top right hand side of the screen.

I have the following code in my 'ThisWorkbook'

Private Sub UserForm_Activate()
    With New_Line_Insert
        .Top = Application.Top + 1025 '< change 125 to what u want
        .Left = Application.Left + 2025 '< change 25 to what u want
    End With
End Sub

No good, I've tried:

Private Sub UserForm_Activate()
    With UserForm
        .Top = Application.Top + 1025 '< change 125 to what u want
        .Left = Application.Left + 2025 '< change 25 to what u want
    End With
End Sub

I've also put these Codes on mySheet4 Object where it is supposed to be working!!

The Userform is appearing but it is in the middle to the Left of the screen??

The code should be in the userform module, not ThisWorkbook, and you should use:

With Me

rather than:

With Userform

 

[FranktheBank]

Great Thanks, Like a dolt I forgot to change the StartUpPosition, to Manual.

Issue Closed

 

[SirJB7]

Hi, FranktheBank!
Glad you solved it. Thanks for your feedback and welcome back whenever needed or wanted.
Regards!

 

[FranktheBank]

I'm back!! I thought it was solved but all that happened was the Box moved to the top and it didn't and won't go to the right!! Here's what I have in it's completeness:

In ThisWorkbook

Private Sub Workbook_Open()
    New_Line_Insert.Show
End Sub

This allows users to Open UserForm.

In Userform

Private Sub New_Line_Insert_Click()
    NextRow = ActiveCell.Row + 1
    Dim r As Range
    Const myPass As String = "Assumption" 'Allows Protected Sheet to be unlocked to insert Rows
    Set r = ActiveCell
       Application.ScreenUpdating = False
       With ActiveSheet
        .Unprotect myPass
        r.EntireRow.Copy
        r.Offset(1).EntireRow.Insert shift:=xlDown
        'Clear constants
            If Range("C" & NextRow) = 0 Then
            Else
        r.Offset(1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
            End If
        .Protect myPass
    End With
       Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Cells(NextRow, 3).Select
End Sub

This unlock Worksheet and Insert Row and Clear Contents

In Module1

Sub New_Line_Activate()
    New_Line_Insert.Show
End Sub
    Private Sub New_Line_Insert_Activate()
    With UserForm
        .Top = Application.Top + 125 '< change 125 to what u want
        .Left = Application.Left + 425 '< change 25 to what u want
    End With
End Sub

The first part is duplication to 'Start' the UserForm but the Second is supposed to position the Userform.

My Userform is Named: New_Line_Insert, sorry I can't link pictures

 

[FranktheBank]

Anyone have any input??