Userform to open at current cell position

[Chewyhairball]

Hi

How can I get a user form to open in line with the current cell position.
e.g if my current cell was F6 and i opened the userform it would look like this, and also to always open on the main screen if someone has multiple screens.

thanks

Rory

 

[My Aswer Is This]

Well on my computer this works.
Not sure it will work on all computers because it may have to do with screen resolution
And Excel sheet must be at 100% Zoom level
And I do not know how to this part:
to always open on the main screen if someone has multiple screens.

Private Sub UserForm_Activate()
'Modified  9/30/2021  2:00:50 PM  EDT
Me.Top = ActiveCell.Top + 165
Me.Left = ActiveCell.Left + 30
End Sub

 

[Chewyhairball]

Well on my computer this works.
Not sure it will work on all computers because it may have to do with screen resolution
And Excel sheet must be at 100% Zoom level
And I do not know how to this part:
to always open on the main screen if someone has multiple screens.

Private Sub UserForm_Activate()
'Modified  9/30/2021  2:00:50 PM  EDT
Me.Top = ActiveCell.Top + 165
Me.Left = ActiveCell.Left + 30
End Sub

Thanks

I adjusted it to fit one cell but then if i select another cell it doesn't fit to it.

 

[My Aswer Is This]

Thanks

I adjusted it to fit one cell but then if i select another cell it doesn't fit to it.

Yes with those numbers it might not always work for every one. I used like Range("A1") +165
And I used Active cell

 

[Chewyhairball]

Yes with those numbers it might not always work for every one. I used like Range("A1") +165
And I used Active cell

the height is consistent between cells in the same row but it moves further left with each column i move to the left

 

[My Aswer Is This]

the height is consistent between cells in the same row but it moves further left with each column i move to the left

I can see that happening if your columns are not standard width. If you come up with a solution let me know.

 

[Chewyhairball]

I can see that happening if your columns are not standard width. If you come up with a solution let me know.

i will do. If i can limit it somehow to columns CtoT they are all the same size.

watch this space

 

[My Aswer Is This]

i will do. If i can limit it somehow to columns CtoT they are all the same size.

watch this space

You do know if you open your userform like this:
UserForm1.show Modeless you can then click on the UserForm and move it around.

 

[dmt32]

Hi,
have a look here: Form Positioner
& see if this will do what you want

Author has provided link to download example of workbook.

Dave