Sorry Bob, it still doesn't work. I get a hint saying:
allkodok.Offset(1, 0).Resize...<Application-defined or object-defined error
It seems as if Offset wouldn't work (perhaps because allkodok is NOT a
contiguous range).
Regards,
Stefi
€˛Bob Phillips€¯ ezt Ć*rta:
Set allkodok = allkodok.Offset(1, 0).Resize(allkodok.Rows.Count - 1)
--
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
"Stefi" wrote in message
...
Hi All,
I created a unique range with this piece of code:
Dim allkodok As Range, osszsor As Range
darab = Columns("B:B").End(xlDown).Row
Set osszsor = Range("B1:B" & darab)
osszsor.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Set allkodok = osszsor.SpecialCells(xlVisible)
My problem is that range "allkodok" contains the header row (cell B1) and
I
want to exclude it. I tried
Set allkodok = allkodok.Offset(1, 0).Resize(allkodok.Count - 1)
but it fails. Please help!
Regards,
Stefi