Translate from Numbers to Descriptions

[Joey]

Each month many of us receive an auto-export in Excel that contains data that
we use to create charts and Pivot Tables from. One of the columns contains
numbers that reference a description that is not stored on the database that
contains the export.

We receive about 1000 records and what I have been doing is performing a
Search and Replace but now there are 100 descriptions!

I used to work with VLookup but was wondering if anyone has done something
like this with a macro as well.

I have Excel 2003

 

[Gary''s Student]

This is just an example that you can adapt for your use. It assumes that
Sheet1 conains in column A the numbers that you want to replace. It assumes
that Sheet2 contains the translation table (column A has the number and
column B has the description):

Sub descriptions()
Sheets("Sheet1").Activate
Set s2 = Sheets("Sheet2")
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
v = Cells(i, 1).Value
For j = 1 To 100
If v = s2.Cells(j, 1).Value Then
Cells(i, 1).Value = s2.Cells(j, 2).Value
End If
Next
Next
End Sub

 

[Joey]

Thanks Gary, I am real rusty with my Macros.... My data to translate in on
Sheet 1, Column F

The Translation Table is on Sheet 2 Column A for the number and B for the
description.

Can you explain how I would update your macro info?

 

[Otto Moehrbach]

Joey
Keep your responses in the same thread, otherwise it's difficult to know
to what post you are responding. HTH Otto