Hi guys

-I like to compare to columns (A, S) ,
for exemple A2 with the hole of S depnds to rows numbers of S
-and if for exemple A2 = S10, then I like to put all the row (M10, N10,
O10, P 10, Q 10 and R10) in another coloumn X2

thanks alot for your advise
Cherrs


--
Freeman_100
------------------------------------------------------------------------
Freeman_100's Profile: http://www.excelforum.com/member.php...o&userid=33208
View this thread: http://www.excelforum.com/showthread...hreadid=530506

Dim rng as Range, i as long, res as Variant

set rng = Range(Cells(1,"S"),cells(rows.count,"S"))
i = 2
do while not isempty(cells(i,"A"))
res = application.Match(cells(i,"A"),rng,0)
if not iserror(res) then
cells(res,"X").Resize(1,6).Value = _
cells(i,"M").Resize(1,6)
end if
i = i + 1
Loop

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy


"Freeman_100" wrote:


Hi guys

-I like to compare to columns (A, S) ,
for exemple A2 with the hole of S depnds to rows numbers of S
-and if for exemple A2 = S10, then I like to put all the row (M10, N10,
O10, P 10, Q 10 and R10) in another coloumn X2

thanks alot for your advise
Cherrs


--
Freeman_100
------------------------------------------------------------------------
Freeman_100's Profile: http://www.excelforum.com/member.php...o&userid=33208
View this thread: http://www.excelforum.com/showthread...hreadid=530506

Dear Tom
Thank you alot for your help, please help to set up this progarm.
Inever used marcos and I have already all the data over excel.

if you dont mind step by step, thanks again

Cherrs


Tom Ogilvy Wrote:
Dim rng as Range, i as long, res as Variant

set rng = Range(Cells(1,"S"),cells(rows.count,"S"))
i = 2
do while not isempty(cells(i,"A"))
res = application.Match(cells(i,"A"),rng,0)
if not iserror(res) then
cells(res,"X").Resize(1,6).Value = _
cells(i,"M").Resize(1,6)
end if
i = i + 1
Loop

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy


"Freeman_100" wrote:


Hi guys

-I like to compare to columns (A, S) ,
for exemple A2 with the hole of S depnds to rows numbers of S
-and if for exemple A2 = S10, then I like to put all the row (M10,
N10,
O10, P 10, Q 10 and R10) in another coloumn X2

thanks alot for your advise
Cherrs


--
Freeman_100

------------------------------------------------------------------------
Freeman_100's Profile:
http://www.excelforum.com/member.php...o&userid=33208
View this thread:
http://www.excelforum.com/showthread...hreadid=530506




--
Freeman_100
------------------------------------------------------------------------
Freeman_100's Profile: http://www.excelforum.com/member.php...o&userid=33208
View this thread: http://www.excelforum.com/showthread...hreadid=530506

http://www.mvps.org/dmcritchie/excel/getstarted.htm

Tutorials:
http://www.mvps.org/dmcritchie/excel....htm#tutorials

--
Regards,
Tom Ogilvy

"Freeman_100"
wrote in message
...

Dear Tom
Thank you alot for your help, please help to set up this progarm.
Inever used marcos and I have already all the data over excel.

if you dont mind step by step, thanks again

Cherrs


Tom Ogilvy Wrote:
Dim rng as Range, i as long, res as Variant

set rng = Range(Cells(1,"S"),cells(rows.count,"S"))
i = 2
do while not isempty(cells(i,"A"))
res = application.Match(cells(i,"A"),rng,0)
if not iserror(res) then
cells(res,"X").Resize(1,6).Value = _
cells(i,"M").Resize(1,6)
end if
i = i + 1
Loop

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy


"Freeman_100" wrote:


Hi guys

-I like to compare to columns (A, S) ,
for exemple A2 with the hole of S depnds to rows numbers of S
-and if for exemple A2 = S10, then I like to put all the row (M10,
N10,
O10, P 10, Q 10 and R10) in another coloumn X2

thanks alot for your advise
Cherrs


--
Freeman_100

------------------------------------------------------------------------
Freeman_100's Profile:
http://www.excelforum.com/member.php...o&userid=33208
View this thread:
http://www.excelforum.com/showthread...hreadid=530506




--
Freeman_100
------------------------------------------------------------------------
Freeman_100's Profile:
http://www.excelforum.com/member.php...o&userid=33208
View this thread: http://www.excelforum.com/showthread...hreadid=530506