Q Re: userform txtbox population with row data from cell clicked to access userform.

[OTOTO]

In my worksheet I created code and a module so that when I double-click cells in column N a userform will open up. I need to pull information from the other columns in the same row that was used to access the form to populate text boxes in the userform. I am new to VBA and Excel Userforms so replies in some detail are more helpful. Thanks in advance for the help.

 

[tweedle]

Thank You, but how are the controls on the form getting their intial values from the worksheet(s). I don't believe we've been privvy to that and I suspect that the problem may be there.

 

[OTOTO]

Thank You, but how are the controls on the form getting their intial values from the worksheet(s). I don't believe we've been privvy to that and I suspect that the problem may be there.

my text box which is being populated from the initial worksheet and which in turn populates the subsequent worksheet cell is titled txtRiskIDEdit. Here is the code which is used to pull the information I believe as you suggested.


Private Sub UserForm_Initialize()

Me.txtRiskIDEdit.MultiLine = True
Me.txtRiskIDEdit.Text = currSheet.Cells(currRow, "A") & vbLf & _
currSheet.Cells(currRow, "A")

End Sub

 

[tweedle]

OK - That was example code:

[COLOR=#333333]Me.txtRiskIDEdit.MultiLine = True[/COLOR]
[COLOR=#333333]Me.txtRiskIDEdit.Text = currSheet.Cells(currRow, "A") & vbLf & _[/COLOR]
[COLOR=#333333]currSheet.Cells(currRow, "A")[/COLOR]

If you don't want the textbox to be multi-line (i.e. stacking the values, then)

Me.txtRiskIDEdit.MultiLine = False

To get the cell value into the textbox just once then use

[COLOR=#333333]Me.txtRiskIDEdit.Text = currSheet.Cells(currRow, "A") [/COLOR][COLOR=#333333]
[/COLOR]

Then you'll need to clean up where the values in the cells that have been 'stacked' in the worksheet data [i.e. '6' linefeed '6']

 

[OTOTO]

Your suggestion works. I turned indicated Multiline as False and removed the example code which didn't apply to end up with
Private Sub UserForm_Initialize()

Me.txtRiskIDEdit.MultiLine = False
Me.txtRiskIDEdit.Text = currSheet.Cells(currRow, "A")

End Sub

I'm not sure what you mean by the "Linefeed" cleanup. The problem currently is that the value is being identified as text although it is a number.



Then you'll need to clean up where the values in the cells that have been 'stacked' in the worksheet data [i.e. '6' linefeed '6']

[/QUOTE]

 

[tweedle]

Back in this post you stated

but when I submit it into the destination sheet I see 6 (Paragraph) 6, stacked on top of each other, but the cell identifies that its value is "6"?

Note: Your 'Paragraph' = My 'linefeed'

So the values are now stored in the worksheet and due to the Paragrah/linefeed, are interpreted as text.

When you select the cell and F2, you would see
6
6

re-enter the data as 6 and it will become numeric again, asuming the formatting is General or some Numeric-allowable format.

 

[OTOTO]

Thanks for your help tweedle. I appreciate your input. This project is nearing completion thanks in part to your help