Thread: Paste 1st & 2nd columns with DependantlistBoxes

I would to say thank you to RoyUK for helping me out with this DependantlistBoxes where a Userform has two columns.

Now I've manupilated a Userform so that whenever I double click on the cell, the selected text from the second box in Userform is pasted to the cell in the next column to the right.

But I what I really want it to do is to past the text fromt the first box in Userform to the active cell and when move to the second box in Userform, the selected text will be paste to the cell on the right.

Like I double click on B3 (in "Fullarton") sheet, a userform appear. When I choose CB from the first box in userform, it should paste in B3.
Then when I choose Electrician from second box in userform, Electrician should be paste in C3.

I have enclosed the file for you to see and hope there is a way to it
Thank you in advance

DependantlistBoxesShort.xls

Hello unley,

I changed two of the UserForm event procedures to paste the information into the ActiveCell and into the cell to the right of the ActiveCell. The changes shown have been added to the attached workbook.

When writing code for UserForm procedures, it is redundant to prefix a Control with the keyword Me and usually unnecessary. Since the code is being written for the UserForm module, VBA assumes the Control references belong to this module. This is equivalent to adding the UserForm name to the Control name.

   'These 2 statements are equivalent...
    UserForm1.ListBox2.List = rSource.Value
    Me.UserForm1.LstBox2 = rSource.Value

   'You can use this statement instead
    ListBox2.List = rSource.Value

Private Sub CommandButton1_Click()
 'PASTE
  ActiveCell.Value = ListBox1.Value
  ActiveCell.Offset(0, 1) = ListBox2.Value
End Sub


Private Sub ListBox1_Click()
  Dim Col    As Long
    Col = ListBox1.ListIndex + 1
      With wsLists
        Set rSource = .Range(.Cells(2, Col), .Cells(.Rows.Count, Col).End(xlUp))
      End With
    ListBox2.List = rSource.Value
End Sub