Solved: .Find and activate a Visible Cell within a Filtered Range

[Rlb53]

I'm trying to return values from adjacent columns based on the location of a cell within Filtered Data.


Dim LastRow As Long
With Worksheets("savedwork")
LastRow = .Range("K" & Rows.Count).End(xlUp).Row
.Range("K2:K" & LastRow).Find(TankNo)
End With



This is followed by a list of commands such as:



TankHeight = ActiveCell.Offset(0, 1)
TankDia = ActiveCell.Offset(0, 2)



Help ?

[Rlb53]

For My Application... I got it worked out.

I was able to setup multiple filter fields to return the information I needed.
Then call for the last row in the column to be selected.


Sheets("savedwork").Activate
ActiveSheet.AutoFilterMode = False
Range("A1").AutoFilter field:=1, Criteria1:=Owner

Range("A1").AutoFilter field:=2, Criteria1:=FacilityID
Range("A1").AutoFilter field:=11, Criteria1:=TankNo
ActiveSheet.Range("A:A").Range("K" & Rows.Count).End(xlUp).Select
TankHeight = ActiveCell.Offset(0, 1)
TankDia = ActiveCell.Offset(0, 2)
'etc, etc, etc...


Thanks...