Userform 1 holds a textbox (textbox1).
Userform 2 (test_mr) has a listbox (miss_rn)
I am trying to populate textbox1 with the value selected in miss_rn.
I have this, which is giving me an 'Object required' error.
This line is found in the initilaize code of userform1.
TextBox1.Value = test_mr.miss_rn.ListIndex
Thoughts?
Tried this also, and got "Invalid or unqualified reference."
Anyone? Such a simple (I hope) hurdle is becoming a major roadblock.TextBox1.Value = test_mr.miss_rn.List(.ListIndex, 1)
Hello Jenn68,
My first question is, "Are both UserForms loaded? "
A UserForm and it's controls can only be addressed when the UserForm is loaded into memory. Customarily, only one UserForm is displayed at a time. However, other UserForms can remain loaded in memory and not be visible until needed.
Your second post is a period with ListIndex. This would indicate the code is inside a With ... End With statement. Since the code shown is not the complete macro, it is unclear this is the case.
Provided the second UserForm is loaded then this should work for you.
UserForm1 Code
Private Sub UserForm_Initialize() With test_mr.miss_rn If .ListIndex > -1 Then TextBox1.Value = .List(.ListIndex) End If End With End Sub
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
Thank you soooo much Leith forcoming to my rescue ...
If .ListIndex > -1 Then[code=red]With test_mr.miss_rn
TextBox1.Value = .List(.ListIndex)
End If
End With[/code]
The line in red is still leaving me with an "Object required." error. ;-(
I believe both forms are loaded. They are both visible if thats the same as 'loaded'? There is actually 3 userforms visible, all have their ShowModal properties = False.Originally Posted by Leith Ross
Hello Jenn68,
I'll see if I recreate the error using a couple of UserForms.
This means one of the names is propably misspelled.
Can you post an example file ?
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
Note this has been cross-posted here
Last edited by Trebor76; 05-13-2019 at 12:52 AM.
____________________________________________
Please ensure you mark your thread as Solved once it is. Click here to see how
If this post helps, please don't forget to say thanks by clicking the star icon in the bottom left-hand corner of my post
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks