Rlb53
04-16-2012, 06:48 PM
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 ?
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 ?