Listbox Question

[dfenton21]

Hi All,

I am making a form that contains a list box. I know how to specify the source but I want to do this:

I have two columns (A & B). A contains a list of invoice numbers and B contains the year of the invoice. Is it possible to select A as the source for the list box, but only use the cells that have 2009 in column B.

Thanks,
Damien

 

[dfenton21]

If this can't be done, is it possible to copy and paste only the cells in A that has 2009 in B. I have a piece of VBA that can send emails this way, but I can't figure out how to modify it for this purpose.

Thanks,
Damien

 

[Legacy 68668]

Delete RowSource from the property box and paste the code onto your userform module

Private Sub UserForm_Initialize()
Dim r As Range
With Sheets("YourSheetNameHere")  '<- change the sheet name
    With Range("a1").CurrnetRegion.Resize(, 1)
        For Each r In .Cells
            If r.Offset(, 1).Value = 2009 Then _
                Me.ListBox1.AddItem r.Value
        Next
    End With
End With
End Sub