I need to match data in cell A to cell B and then if they equal I need to
copy the adjacent cell C to cell X . How do I set up a macro to do this
automatically? I have over 5000 cells to compare and match up.. Can anyone
help? I have Office 2003.

You can do it with a formula. In X1 you type

=IF(A1=B1, C1, "")

And you copy down as far as necessary.

Does this help?
Kostis Vezerides

Does it have to be a macro? You could just put an IF statement into column
X, that says =if(exact(A1,B1),C1,""). Copy/paste the formula down. Then
autofilter or advanced filter the results.

"abmb161" wrote:

> I need to match data in cell A to cell B and then if they equal I need to
> copy the adjacent cell C to cell X . How do I set up a macro to do this
> automatically? I have over 5000 cells to compare and match up.. Can anyone
> help? I have Office 2003.

In cell Z1 enter:

=IF(A1=B1,C1,"")
and then copy down
--
Gary's Student


"abmb161" wrote:

> I need to match data in cell A to cell B and then if they equal I need to
> copy the adjacent cell C to cell X . How do I set up a macro to do this
> automatically? I have over 5000 cells to compare and match up.. Can anyone
> help? I have Office 2003.

In cell X1 put

=IF(A1=B1,C1,[whatever happens if A1 and B1 are not the same]

copy down as needed


--
mphell0
------------------------------------------------------------------------
mphell0's Profile: http://www.excelforum.com/member.php...o&userid=30153
View this thread: http://www.excelforum.com/showthread...hreadid=505426

Sub CTOX()
Application.ScreenUpdating = False
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(0, 1).Value Then
ActiveCell.Offset(0, 23).Value = ActiveCell.Offset(0, 2).Value
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub

This is if all 5000 in the column A are together with no breaks, it can be
adjusted to suit if there are breaks.

R
Pete

--
(][ THIS EMAIL HAS BEEN SCANNED BY NORTON ANTIVIRUS ][)
"abmb161" <(E-Mail Removed)> wrote in message
news:B6AA6134-A757-4627-B86C-(E-Mail Removed)...
>I need to match data in cell A to cell B and then if they equal I need to
> copy the adjacent cell C to cell X . How do I set up a macro to do this
> automatically? I have over 5000 cells to compare and match up.. Can anyone
> help? I have Office 2003.