Searching a sheet and displaying on a userform

[colinharwood]

Hi
I use the following code to search for a members surname in a worksheet, and having found it, display a userform to show the details from the row. I have duplicate surnames in the worksheet and I would like to add a spin button to the userform to be able to view duplicate surnames in the userform, in turn.
Is this possible.
thanks

Private Sub SearchForMember2()

Dim FindString As String
Dim rng As Range
Dim Number As Range
Dim SelectedCell As String

FindString = Member.Value
If Trim(FindString) <> "" Then
With Sheets("tmes members").Range("B:B")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

If Not rng Is Nothing Then
Application.GoTo rng
ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Select



End If
End With
Else: Exit Sub
End If

FindAMember2.Hide
DisplayMemberDetails
End Sub

 

[colinharwood]

Thanks for all of your time and effort, much appreciated.
Not sure why it worked in the trial workbook, buts alls well now

 

[HighAndWilder]

Thanks for all of your time and effort, much appreciated.
Not sure why it worked in the trial workbook, buts alls well now

Good.

It's good practice not to have spaces in worksheet names.

It will always catch you out at some point if you do.

 

[colinharwood]

I have followed your advice and removed the spaces from the sheet names.
I have now found another anomoly.
If I search for a member in the first 43rows it all works as expected, but if I search for a member from row 44 onwards, I get the problem shown in the attached screenshot.
Any ideas please

 

[HighAndWilder]

I have followed your advice and removed the spaces from the sheet names.
I have now found another anomoly.
If I search for a member in the first 43rows it all works as expected, but if I search for a member from row 44 onwards, I get the problem shown in the attached screenshot.
Any ideas please

It's hard to say but at least one row has been found as that code wold not run had that not been the case.

What is in that cell in the first row for that member surname?

Is it anything but text?

 

[colinharwood]

I have now done some further testing, and the problem is not the number of rows, it occurs when there is only a single surname, If there are more than 1 member with the same surname it works.

 

[HighAndWilder]

I have now done some further testing, and the problem is not the number of rows, it occurs when there is only a single surname, If there are more than 1 member with the same surname it works.

Are you using the latest code because that was one of the problems that I cured in the latest version.

 

[colinharwood]

Sorry for wsting your time, my mistake, I had not changed the code in the
Private Sub subDisplayData(intIndex As Integer) section.
All now working.
Thank you again for your time & effort.