Problems with filtering and output

[floep]

Hi Guys,

I've got 2 problems with my vba code.

Description of my spreadsheet : The spreadsheet has 2 worksheets.
Worksheet A has 4 columns (descr, cl, il, and a1). All the columns
except for the descr column contain crosses (x). Worksheet B is a
worksheet where I have to post results (it's an output page).

Problems :
1. I've got to filter the descriptions (column descr) based on the
crosses in the columns cl, il and a1. However, filtering should be
based on the following rules :
Descr A : cl x, il, a1 x --> output because there is a cross in column
cl
Descr B : cl, il, a1 --> not sent to output because there are no
crosses
Descr C : cl, il x, a1 x --> output because there is a cross in columns
il and a1

2. I want to put the output from problem 1 in a single field in
worksheet B. The output will contain a list of descriptions.

Can someone help me to build this VBA code please ?

Floep

 

[Guest]

Sub ABC()
Dim cell as Range, rng as Range
Dim s as String
with worksheets("worksheet A")
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" or _
cell.offset(0,2).Value = "x" and _
cell.offset(0,3).Value = "x" then
s = s & cell.value & vbNewLine
end if
Next
Worksheets("Worksheet B").Range("B9").Value = s
End Sub