hi,

not sure if this is possible, but i have a large range of unique dat
which i filter through. when i perform a search for a single row an
all other rows are hidden, i'd like to highlight the single filtere
row in yellow. is this possible with a macro? any ideas?

thanks,

Fran

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

Autofilter?

set rng = Activesheet.AutoFilter.Range
set rng = rng.offset(1,0).Resize(rng.rows.count-1)
set rng1 = rng.Columns(1).SpecialCells(xlVisible)
if rng.count = 1 then
rng.Resize(1,rng.columns.count).Select
' or
' rng.Resize(1,rng.columns.count).Interior.ColorInde x = 5
End if

Not sure what you mean by highight. First option selects the row, second
colors it.

--
Regards,
Tom Ogilvy

"fgatch" wrote in message
...

hi,

not sure if this is possible, but i have a large range of unique data
which i filter through. when i perform a search for a single row and
all other rows are hidden, i'd like to highlight the single filtered
row in yellow. is this possible with a macro? any ideas?

thanks,

Frank


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

try

Sub colorvisiblerows()
With Rows("1:" & Range("a" & Rows.Count).End(xlUp).Row)
.Interior.ColorIndex = xlNone
.SpecialCells(xlCellTypeVisible).Interior.ColorInd ex = 6
End With
End Sub

--
Don Guillett
SalesAid Software

"fgatch" wrote in message
...

hi,

not sure if this is possible, but i have a large range of unique data
which i filter through. when i perform a search for a single row and
all other rows are hidden, i'd like to highlight the single filtered
row in yellow. is this possible with a macro? any ideas?

thanks,

Frank


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/