Edit contacts; fill textbox out of listbox

Bandito1

Board Regular
Joined
Oct 18, 2018
Messages
82
Hi all,

I'm making a contactbook for phone contacts.

On userform frmTelephoneSearch i have a listbox named lstSearchResults. It displays all my contacts.

Now i would like to make a new userform to edit contacts that are in lstSearchResults.
I would like to select a name in the lstSearchResults, press a button and open a new userform and there there are textboxes that are filled with the data i clicked in lstSearchResults.

I made this test;

Code:
Private Sub lstSearchResults_Click()TextBox1.value = lstSearchResults.Text
End Sub
It works, the Full name is displayed in textbox1. But i would like that textbox on another userform.
Also there is more date; Full name, Department, Gender, phone and email. How do i specify each column to a textbox?

Hope someone can help.
Thanks in advance.
 

Bandito1

Board Regular
Joined
Oct 18, 2018
Messages
82
Found the answer on this;

It works, the Full name is displayed in textbox1. But i would like that textbox on another userform.
Also there is more date; Full name, Department, Gender, phone and email. How do i specify each column to a textbox?


Code:
[/COLOR]Private Sub UserForm_Initialize()
Me.txtSurname.value = frmTelephoneSearch.lstSearchResults.value
Me.txtDepartment.value = frmTelephoneSearch.lstSearchResults.Column(1)
End Sub
[COLOR=#333333]
 

Forum statistics

Threads
1,078,541
Messages
5,341,061
Members
399,414
Latest member
EMW2159

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top