Hi Tom,

The items are in column 1, the types in columns 2 till 5 and the
properties in columns 6 till 16. I tried to crack the problem with the
code below but now it gives me an error on 'cell.Offset(0, 5).Value +
cell.Offset(0, 9).Value + cell.Offset(0, 13).Value' when I try to run
the code. If I don't do the extra filtering (the filtering after the
and _) the code runs fine. It's like the offsets are out of range.
There is also always an extra empty line in the output. Thanks for your
help ...


Dim cell As Range, rng As Range
Dim s As String

With Worksheets("Mechanismen volgens object")
Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With

For Each cell In rng
If cell.Offset(0, 1).Value = "x" and _
cell.Offset(0, 5).Value + cell.Offset(0, 9).Value +
cell.Offset(0, 13).Value "0" Then
s = s & cell.Value & Chr(10)
End If
Next



--
floep
------------------------------------------------------------------------
floep's Profile: http://www.excelforum.com/member.php...o&userid=36853
View this thread: http://www.excelforum.com/showthread...hreadid=565970