Extract only first "1" of the row

[Kishan]

Using Excel 2000

Hi,

Data In columns C:P ( Q is a result column) in the Column S:AF I want the First "1" results

I want VBA or Formula which can extract first "1" of the row CONDITION if column Q is grater than "0"

For example...
Row 7 there is no "1"
Row 8 & 9 is column Q is "0" (do not extract any "1")
Row 10 column Q is greater than "0" find "1" in the 10th position so place 1 in the 10 position in the results column S:AF, and like this continue so on....

Example data.

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG
1
2
3
4
5
6			P1	P2	P3	P4	P5	P6	P7	P8	P9	P10	P11	P12	P13	P14	Result		P1	P2	P3	P4	P5	P6	P7	P8	P9	P10	P11	P12	P13	P14
7			0	0	0	0	0	0	0	0	0	0	0	0	0	0	1
8			1	1	1	1	1	1	0	0	1	1	1	1	1	0	0
9			1	1	1	1	1	1	0	0	1	1	1	1	0	1	0
10			0	0	0	0	0	0	1	0	0	1	0	0	0	1	1								1
11			0	0	0	0	0	0	0	0	0	0	0	0	1		1														1
12			1	0	0	0	0	0	0	0	0	0	0	0	0	0	1		1
13			0	0	1	0	0	0	0	0	0	1	0	0	0	0	1				1
14			0	0	0	1	0	0	0	1	0	0	0	0	0	0	1					1
15			1	1	1	1	1	0	1	0	1	1	1	0	1	1	0
16			1	1	1	1	1	0	1	0	1	0	1	1	1	1	0
17			0	0	0	0	0	1	1	0	0	0	0	0	0	0	1							1
18			0	0	0	0	0	1	0	1	0	0	0	0	0	0	1							1
19			0	0	0	0	0	1	0	0	0	1	0	0	0	0	2							1
20			0	0	0	0	0	0	0	1	0	0	1	0	0	0	1									1
21			0	0	0	0	0	0	0	0	0	1	0	0	0	1	1											1
22			1	1	1	1	1	0	1	1	1	0	1	1	0	1	0		1
23			1	1	1	0	1	1	1	0	0	1	1	1	1	1	0		1
24			0	1	0	0	1	0	0	0	0	0	0	0	0	0	1			1
25			0	1	0	0	0	0	0	1	0	0	1	0	0	0	1			1
26			0	1	0	0	0	0	0	1	0	0	0	0	0	1	1			1
27			0	1	0	0	0	0	0	0	1	1	0	0	0	0	1			1
28			0	1	0	0	0	0	0	0	0	1	0	0	1	0	1			1
29			0	1	0	0	0	0	0	0	0	1	0	0	0	1	1			1
30			0	1	0	0	0	0	0	0	0	0	0	1	0	1	1			1
31			1	0	0	0	1	0	0	1	0	0	0	0	0	0	2		1
32			0	0	1	1	0	0	0	1	0	1	0	0	0	0	2				1
33			0	0	1	0	0	1	0	0	0	0	0	1	0	1	1				1
34			0	0	1	0	0	0	1	1	0	0	0	0	0	1	1				1
35			1	1	1	0	1	1	1	0	1	0	1	1	1	1	0
36			1	1	1	0	1	1	1	0	0	1	1	1	1	1	0
37			1	1	1	0	1	1	0	1	1	1	1	1	1	0	0
38			1	1	1	0	1	1	0	1	1	1	1	1	0	1	0
39			1	1	1	1	0	1	1	1	1	0	1	0	1	1	0
40			0	0	1	0	0	0	1	0	1	1	0	0	0	0	1				1
41			0	0	1	0	0	0	1	0	1	0	0	0	1	0	1				1
42			0	0	1	0	0	0	1	0	0	1	0	0	0	1	1				1
43			0	0	1	0	0	0	1	0	0	0	0	1	0	1	1				1
44			0	0	1	0	0	0	0	1	1	1	0	0	0	0	1				1
45			0	0	1	0	0	0	0	1	0	1	1	0	0	0	1				1
46			0	0	1	0	0	0	0	1	0	1	0	0	0	1	1				1
47			0	0	1	0	0	0	0	0	0	0	1	1	0	1	1				1
48			0	0	0	1	1	1	0	0	0	1	0	0	0	0	1					1
49			0	0	0	1	0	1	0	0	0	1	0	1	0	0	2					1
50			0	0	0	0	1	1	0	0	0	1	1	0	0	0	2						1
51			1	0	0	0	0	0	1	0	1	1	1	0	0	1	3		1
52			1	1	0	1	1	0	0	0	1	1	0	1	1	0	3		1
53			0	0	1	1	1	1	0	1	1	0	1	0	1	1	3				1
54			1	1	1	1	0	0	1	0	0	1	1	0	1	1	2		1
55			1	1	1	0	1	0	1	0	1	1	1	1	0	0	2		1
56			0	0	0	0	0	0	1	1	0	1	0	1	0	1	2								1
57			0	0	0	0	0	0	1	1	1	1	0	0	1	1	2								1
58			0	1	1	1	1	1	1	1	0	0	0	1	1	1	2			1
59			0	1	1	0	1	0	1	1	1	1	1	0	1	1	2			1
60			1	0	1	0	1	1	0	1	1	0	1	1	1	1	2		1
61			1	0	0	1	1	0	1	1	0	1	1	1	1	1	2		1
62			1	1	1	1	1	1	0	0	1	1	1	0	1	0	2		1
63			1	1	1	1	0	0	1	0	1	1	1	1	0	1	2		1
64			1	1	0	1	1	1	1	1	0	1	1	1	0	0	2		1
65			0	0	1	1	1	1	1	1	1	0	1	1	1	1	2				1
66			0	0	0	1	1	1	1	1	1	1	1	0	1	1	2					1
67			0	0	0	1	1	1	1	0	1	1	1	0	1	0	2					1
68			0	0	0	1	1	1	1	0	0	1	0	1	1	1	0					1
69			0	0	0	0	0	1	0	1	1	0	0	1	1	1	1							1
70			1	1	1	1	1	1	0	1	0	1	1	1	1	0	0		1
71			1	1	1	1	1	1	0	1	0	1	1	1	0	1	2		1
72			0	0	0	0	0	0	0	1	0	1	1	0	1	1	0									1
73			0	0	0	0	0	0	0	1	0	1	0	1	1	1	1									1
74			1	1	1	1	1	1	0	1	0	0	1	1	1	1	0		1
75
76
77
Sheet1

Thank you in advance

Regards,
Kishan

 

[JoeMo]

In S8 and copy across and down:

=IF(AND($R8>0,D8=1,SUM($S8:S8)=0),1,"")

 

[Kishan]

In S8 and copy across and down:

=IF(AND($R8>0,D8=1,SUM($S8:S8)=0),1,"")

Hi Joe, after applying your formula I notice that in some of the rows post#1 my results were not correct like in row 22, 23, 68, 70 & in 74

Your formula worked spot on

Thank you very much for your help and time

Have a nice day

Regards,
Kishan

 

[JoeMo]

Hi Joe, after applying your formula I notice that in some of the rows post#1 my results were not correct like in row 22, 23, 68, 70 & in 74

Your formula worked spot on

Thank you very much for your help and time

Have a nice day

Regards,
Kishan

You are welcome - thanks for the reply.