Where do you want it to show?
Maybe
Code
Private Sub UserForm_Initialize()
Me.TextBox1.Value = ActiveCell.Value
End Sub
Linking a cell's comment to a vba form's textbox
- pauly21
- Thread is marked as Resolved.
-
-
-
Unfortunately the code above crashes when trying to run.
I've attached pictures to try and explain better what i'm after.
For example, when selecting cell A4 i want to click the 'run form' box and for the form to display the entire row contents (row 4), whilst still having the ability to use the combobox 1 drop menu (index number on the form) to select other records.
-
That's what the code that I posted does, you need to change the control names and add the other control names
-
Here's the simplest way, change the code for the UserForm's Initialize event to this
Code
Display MorePrivate Sub UserForm_initialize() With Sheet1 Set rData = Sheet1.Range(.Cells(2, 1), .Cells(.Rows.Count, 43).End(xlUp)) End With Me.ComboBox1.List = rData.Value If Selection.CountLarge > 1 Then Exit Sub If Not Intersect(ActiveCell, rData) Is Nothing Then Me.ComboBox1.ListIndex = ActiveCell.Row End Sub -
I forgot to allow for the ListIndex starting at zero
Code
Display MorePrivate Sub UserForm_initialize() With Sheet1 Set rData = Sheet1.Range(.Cells(2, 1), .Cells(.Rows.Count, 43).End(xlUp)) End With Me.ComboBox1.List = rData.Value If Selection.CountLarge > 1 Then Exit Sub If Not Intersect(ActiveCell, rData) Is Nothing Then Me.ComboBox1.ListIndex = ActiveCell.Row - 2 End Sub -
Roy that is
-
Glad you got it working.
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!