on a separate Excel 2007 VBA question, how do i use the listbox under "Developer" > "Form Control" ?
i would like to display some data from another worksheet (say wsData), however i would like to display the data specific to a user (say wsInterface, cell A1), and NOT use the "format control" > "control" > "input range"
so i will have a form that pops up to prompt the user for a name to be keyed into worksheet wsInterface cell A1, and i would like the data relevant to the user to be displayed in the listbox. Thanks
wsData:
name | date | remarks
Mr A 22/2/11 blah blah blah 1.
Mr B 22/2/11 blah blah blah 2.
Mr A 23/2/11 blah blah blah 3.
wsInterface:
Cell A1: Mr A
ListBox (2 columns)
22/2/11 blah blah blah 1.
23/2/11 blah blah blah 3.
here are my codes in one of the macro:
Sub CustRemarkListBox_Change()
Dim lbtarget As MSForms.ListBox
Dim rngSource As Range
Dim rw As Range
Dim i As Long
Set rngSource = Range("Remarks")
Set lbtarget = CustRemarkListBox
With lbtarget
.ColumnCount = 2
.ColumnWidths = "50;200"
For Each rw In rngSource.Rows
If rw.Cells(1, 1) = Worksheets("ExistingCustomer").Range("C4") Then
.AddItem ""
For i = 1 To .ColumnCount
.List(.ListCount - 1, i - 1) = rw.Cells(1, i)
Next
End If
Next
End With
End Sub
The one in bold is my problem, it says "Object Required" meaning it did not detect my listbox in my Excel Worksheet that was named "CustRemarkListBox"
So if I understand you correctly, the user has to enter a name into a cell, and you want the listbox to get populated based on the name entered?
You could use something like the Worksheet_Range event to run some code to populate the listbox when you enter a name it can match.
How familiar are you with VBA? You could use something like the following in the codpage for the relevant sheet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A1" Then
'put your code here
End If
End Sub
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.