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

--
Regards,
Tom Ogilvy


"floep" wrote:


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


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