Avatar of Adam Elsheimer
Adam Elsheimer
Flag for Germany asked on

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

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

Open in new window

Sample.xlsm
Microsoft ExcelVBAVB ScriptMicrosoft Office

Avatar of undefined
Last Comment
Roy Cox

8/22/2022 - Mon
Shums Faruk

Hi Adam,

Please find attached...edited code as per your requirement. UserForm will display all the columns.
Sample_v1.xlsm
Adam Elsheimer

ASKER
Hi Shums, thank you for your fast answer.

Following error and can not search the member:

error
Thanks
Shums Faruk

Surprised, I tested and I haven't got any error.
Let me check again.
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes
Adam Elsheimer

ASKER
As soon as click the search button I got this message:

Unbenannt.JPG
Shums Faruk

Yes you were right. I am also getting error. Wait let me fix it.
Roy Cox

There's a simple reason why that error is occurring.  I suspect that you are searching on Column 1 of the data so -1 results in 0 and there is no Column zero.

I'm not entirely sure what you want but maybe this example is more suitable. Check it out and post back and I'll help you amend it when I get back from work.
FilterForm--1-.zip
⚡ FREE TRIAL OFFER
Try out a week of full access for free.
Find out why thousands trust the EE community with their toughest problems.
Adam Elsheimer

ASKER
It is really excellent. I tested it with 53000 entries.

Sample
Q: I would like copy the filtered value in a new sheet, so that I can build a list of selected values.

It would be great if I can do this.

Thank you very much for your effort.

Regards,

Adam
ASKER CERTIFIED SOLUTION
Roy Cox

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
Adam Elsheimer

ASKER
Hi Roy:

Thank you very much for your effort.  I can use the macro for other purposes. I changed the intial version, it works for me.

Regards,

Adam
Roy Cox

Pleased to help
All of life is about relationships, and EE has made a viirtual community a real community. It lifts everyone's boat
William Peck