Activating a Cell after using a filter

N

Neil Ensor

I am trying to retrieve the contents of a cell (as a string) returned
after applying a filter.
The filter acts on the 1st column of the worksheet and gradually reduces
the filter results and the number of rows returned as text is entered
into my form. untill I am left with only 1 row. The reference of this
row is variable as the entire list is alphabetical and the results are
narrowed the more keypresses I make. I need to be able to set a cell as
active so I can apply an edit to the row using the offset command, once
the filter has returned row I need. Any thoughts would be appreciated.

Rgds
Neil

this is an extract from my code:

Private Sub txtDescription_KeyUp(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)

Dim strDesc As String

strDesc = txtDescription.Text & "*"
SearchColumn strDesc
End Sub

Private Function SearchColumn(strSearch As String)
Dim objsheet As Excel.Worksheet
Set objsheet = Application.ActiveSheet
With objsheet
.Range("A1").AutoFilter Field:=1, Criteria1:=strSearch
End With
End Function

*****Posted via: http://www.ozgrid.com
Excel Templates, Training & Add-ins.
Free Excel Forum & Business Software*****
 
Top