In discussions I found this code. Is it possible to change it so that the value of a text box is the parameter to search for and that all items are redirected to a listbox? Example in column C there are pages of a catalog. There are 10 lines on page 7. In the textbox, type 7 and lines A to J should appear
Mr.
Rick Rothstein
Oct/28/2014 wrote:
Mr.
Rick Rothstein
Oct/28/2014 wrote:
VBA Code:
Sub SelectEntireRow()
Dim FindMe As String, Rng As Range
FindMe = InputBox("What did you want to find?")
If Len(FindMe) Then
On Error GoTo RangeNotSelected
Set Rng = Application.InputBox("Select the range to look in...", Type:=8)
If TypeOf Rng Is Range Then
Rng.Replace FindMe, "#N/A", xlWhole
With Rng.SpecialCells(xlConstants, xlErrors)
.EntireRow.Select
.Value = FindMe
End With
End If
End If
RangeNotSelected:
End Sub