Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

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

Posted on 2013-01-31
8
Medium Priority
?
374 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
8 Comments
 
LVL 49

Expert Comment

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

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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 49

Accepted Solution

by:
Martin Liss earned 2000 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
 
LVL 3

Author Closing Comment

by:fordraiders
ID: 38842272
Thanks
0
 
LVL 49

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

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.

650 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