Dependent textbox in form

S

*shudder*

Well-known Member

Joined

Aug 20, 2009

Messages

510

Office Version

1. 2016

Platform

1. Windows

• Mar 31, 2010

• #2

Hi,

This should work for you, right click on your listbox and then 'view code' and then copy and paste the following.

You will probably have to alter the Listbox & Textbox names according to your own and alter the first number in brackets to your necessary column.

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBoxCounrty = Me.ListBox1.Column(1, Me.ListBox1.ListIndex)
End Sub

HTH

 

Upvote 0

N

ndendrinos

Well-known Member

Joined

Jan 17, 2003

Messages

1,694

• Mar 31, 2010

• #3

Hello shudder and thanks for your solution.
I cannot get it to work and wonder if you have any named ranges in there.
My listbox is: ListBox1 (where i choose from)
and I need to see the result in TextBox1 (from column3 in sheet "Authors"

 

Upvote 0

S

*shudder*

Well-known Member

Joined

Aug 20, 2009

Messages

510

Office Version

1. 2016

Platform

1. Windows

• Mar 31, 2010

• #4

Actually yes, the project I took that from does use named ranges

 

Upvote 0

N

ndendrinos

Well-known Member

Joined

Jan 17, 2003

Messages

1,694

• Mar 31, 2010

• #5

thanks... any of these related to your code?

 

Upvote 0

S

*shudder*

Well-known Member

Joined

Aug 20, 2009

Messages

510

Office Version

1. 2016

Platform

1. Windows

• Mar 31, 2010

• #6

The code I provided is generic, all I have done is set the 'RowSource' property of the listbox in form design mode to my named range.

Although this can be done by VBA by using this line:

Code:

Listbox1.RowSource = Sheets("Sheet1").Range("Name of Your Range")

 

Upvote 0

N

ndendrinos

Well-known Member

Joined

Jan 17, 2003

Messages

1,694

• Mar 31, 2010

• #7

Thank you for your help.

 

Upvote 0

N

ndendrinos

Well-known Member

Joined

Jan 17, 2003

Messages

1,694

• Mar 31, 2010

• #8

Forgot to mention that this post is now closed.

 

Upvote 0