PDA

View Full Version : UserForm text box info passing to cells



kellyhell
01-20-2012, 05:33 AM
Good Afternoon - could someone give me a hand with this?

When a user selects Yes from a drop down list in a particular cell a UserForm pops up to request further information.

How can I pass this information to the cells to the right of the "Yes" cell.

E.G. Cell H6 contains Yes, the UserForm info is to be passed to I6 and J6.

This needs to happen on each row everytime the user selects "Yes" -

Yes in H7, Userform info to I7 and J7 etc etc.

Thanks in advance

Bob Phillips
01-20-2012, 07:54 AM
IN the userform OK button



With Worksheets("Sheet1")

.Range("I6").Value = Me.TextBox1.Text
.Range("J6").Value = Me.ListBox1.Text
End With

as example

Kenneth Hobs
01-20-2012, 08:09 AM
Private Sub CommandButton1_Click()
If ActiveCell.Value = "Yes" Then ActiveCell.Offset(0, 1).Value = ActiveCell.adddress & ": " & ActiveCell.Value
End Sub