troubleshooting Question

Create an Excel User-form to Display Filter Results - Modify Macro

Avatar of Adam Elsheimer
Adam ElsheimerFlag for Germany asked on
Microsoft OfficeMicrosoft ExcelVB ScriptVBA
10 Comments1 Solution855 ViewsLast Modified:
Found this very usefull macro created by Roy.

1. I would like copy all the information as row after selecting the member
2. Show all information in the userform before selecting the member
3. If possible multiple search criteria - not only the name of the member - would be great.

Screenshot
Thanks

Regards,

Adam


Option Explicit
Dim oWs As Worksheet
Dim rData As Range, rCL As Range

Private Sub cmdFind_Click()
    Dim strFind As String    'what to find


    If Me.TextBox1 = Empty Then
        MsgBox "Please enter a search term", vbCritical, "Input required"
        Exit Sub
    End If

    strFind = Me.TextBox1.Value

    With oWs
        If Not .AutoFilterMode Then .Range("B2").AutoFilter
        rData.AutoFilter Field:=2, Criteria1:="=*" & strFind & "*" _
                       , Operator:=xlAnd


        Me.MbrList.Clear
        For Each rCL In rData.Columns(2).SpecialCells(xlCellTypeVisible)
            With Me.MbrList
                If rCL.Row > 1 Then
                    .AddItem rCL.Offset(, -1).Value
                    .List(.ListCount - 1, 1) = rCL.Value
                End If
            End With
        Next rCL
    End With
    oWs.ShowAllData
End Sub


Private Sub MbrList_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim lRw As Long
    ''/// only run if filter has been applied
    If Me.TextBox1.Value = Empty Then Exit Sub
    With Sheet1
        lRw = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
        .Cells(lRw, 1).Value = Me.MbrList.Value
        ''//// optional: adds member name to column B
        '.Cells(lRw, 2).Value = Me.MbrList.List(Me.MbrList.ListIndex - 1, 1)
    End With
End Sub

Private Sub TextBox1_Change()
''/// enable TextBox when data is entered
    Me.cmdFind.Enabled = Len(Me.TextBox1.Value) > 0
End Sub

Private Sub UserForm_Initialize()
    Dim iX As Integer
    Dim CW As String
    Set oWs = Sheets("All Members")
    Set rData = oWs.Range("a1").CurrentRegion.Offset(1)
    ''/// disable find button, will be enabled when TextBox 1 is completed
    Me.cmdFind.Enabled = False
    With Me.MbrList
        .ColumnCount = 2
        .List = rData.Value
        'loop through each column & determine it's width, store it in a String
        CW = " "
        For iX = 1 To 3
            CW = CW & rData.Columns(iX).Width & ";"
        Next iX
        CW = CW
        'use the String to define the Column Widths of the listBox
        .ColumnWidths = CW & 0
    End With
End Sub
Sample.xlsm
ASKER CERTIFIED SOLUTION
Roy Cox
Group Finance Manager

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 10 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 10 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros