Solved

2 userforms modeless taking focus back to another in a certain object

Posted on 2013-01-31
8
327 Views
Last Modified: 2013-02-01
excel 2010 vba

I have 2 userforms  both modeless.
Userform1
Userform2

I open useform1
Then userform2
 
and once I'm done with userform2
I want to move the focus back to userform1


Problem.  I have Multipage object on Userform1. ( 8 tabs  )

First I need to make sure when I move back to the Useform1 I go to the right place.

So
if on Useform1 ,  Multipage (2) was the current tab,   I want to go to listbox2
that has a currently selected Item ?




Thanks
fordraiders
0
Comment
Question by:fordraiders
  • 4
  • 4
8 Comments
 
LVL 45

Expert Comment

by:Martin Liss
ID: 38841722
In userform2 Terminate event put code that selects userform1.multipage(2) or userform1.ListBox2.Setfocus
0
 
LVL 45

Expert Comment

by:Martin Liss
ID: 38842031
You may have to do

userform1.show
userform1.ListBox2.Setfocus
0
 
LVL 3

Author Comment

by:fordraiders
ID: 38842226
ok..that sounds simple enough..

But,  would i not have to loop through the listbox and see which one has the item selected to back to that item ?

i.e. If i had 20 items in the listbox and 17 was selected..i need to go back to that line in the listbox...

Thanks
0
 
LVL 45

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 38842255
Listbox1.Listindex will tell you which one is selected, if you just need to know the value you can do Listbox1.Text
0
Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

 
LVL 3

Author Closing Comment

by:fordraiders
ID: 38842272
Thanks
0
 
LVL 45

Expert Comment

by:Martin Liss
ID: 38842309
You're welcome and I'm glad I was able to help.

Marty - MVP 2009 - 2012
0
 
LVL 3

Author Comment

by:fordraiders
ID: 38844003
Martinliss,

these are the actual values Im using:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
frmResultAll.MultiPage1.SetFocus
frmResultAll.MultiPage1.Value = 0
frmResultAll.ListBox1.SetFocus
Unload UserForm1
end sub


The focus is still on the sheet1...

The userform
frmResultAll  does not get the focus..?
0
 
LVL 3

Author Comment

by:fordraiders
ID: 38844045
ok for some reason got this to work...sorry to bother you...

The form is already showing...but

I forgot your first line of code..!



frmResultAll.Show
frmResultAll.MultiPage1.SetFocus
frmResultAll.ListBox1.SetFocus
Unload UserForm1
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Improved? Move/Copy Add-in Replacement - How to avoid the annoying, “A formula or sheet you want to move or copy contains the name XXX, which already exists on the destination worksheet.” David Miller (dlmille)  It was one of those days… I wa…
Viewers will learn the basics of slicers and timelines for both PivotTables and standard Excel tables in Excel 2013.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now