Worksheet_SelectionChange(ByVal Target As Range) for Newbie

[cliffmid]

I have never used "Target" before. I have a list of name (a18:a150) and want to click on one and have the name inserted into textBox1 in userForm2. I can get the range set correctly and "userform2.show" brings up userform2 (which has my textbox1). I cannot figure out how to get the name from a18:a150 to be inserted into textbox1. I am very new to VBA. Most of what I have gleaned has come from videos and "reverse engineering" similar code for my project. Can you help me?

 

[cliffmid]

I am running Office 365.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Intersect(Target, Range("A18:A150")) Is Nothing Then Exit Sub
   UserForm2.TextBox1.Value = Target
   UserForm2.Show
End Sub

 

[cliffmid]

Wish I could delete this thread. My question makes the problem too complex for my VBA skills. I think the easiest solution to what I want to do is be able to click on a cell in a10:a150 and have the contents of that selected cell appear in cell d10. I think if I could do that I would understand "Val Target as Range" better, and I could use that to use "userForm2.show". From there, I would be able to get my project finished.

 

[Fluff]

Have you tried the code I posted?

 

[cliffmid]

You got it. I "reverse engineered" what you sent to become:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("A18:A150")) Is Nothing Then Exit Sub
Sheet1.Range("d10").Value = Target
UserForm2.Show
End Sub

It does precisely what I needed to do. Thank you so much.

 

[Fluff]

You're welcome & thanks for the feedback

 

[cliffmid]

You're welcome & thanks for the feedback

I did and showed my "reverse engineering." It worked beautifully. I am bothered you did not get my note. That would not be polite on my part. When someone takes time out of his day to help, you don't use the code and ignore the person who helped you. I am sorry my note did not get to you.

BTW. THANK YOU again. You solved a perplexment for me and I really appreciate it.

Cliiff