Need help in macros

[Freeman_100]

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

[Tom Ogilvy]

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]

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

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
>
>

[Tom Ogilvy]

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

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

--
Regards,
Tom Ogilvy

"Freeman_100" <Freeman_100.25ums1_1144337423.5978@excelforum-nospam.com>
wrote in message
news:Freeman_100.25ums1_1144337423.5978@excelforum-nospam.com...
>
> 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
>