Macro to look in one column and insert info into another

[neilp]

Hi

I have a spreadsheet with a chunk of data.

Could do with a macro that would look in column I, starting at row 2 and place info into Column A in the corresponding row.

Info is as follows:
If it finds 1289 in column I, it needs to put XY40 in column A
If it finds 1060 in column I, it needs to put XY30 in column A
If it finds 1374 or 1128 or 1326 or 1259 or 1375 or 1115 or 1337 or 1331 or 1380 in column I, it needs to put XY20 in column A
Anything else it finds in column I needs to put XY10 in column A

Hope that makes Sense

Thanks in advance

Neil

 

[wideboydixon]

Try running this on a copy of the data:

Public Sub FillAFromI()

Dim lastRow As Long
Dim thisRow As Long

lastRow = Cells(Rows.Count, "I").End(xlUp).Row
For thisRow = 2 To lastRow
    Select Case Cells(thisRow, "I").Value
        Case 1289
            Cells(thisRow, "A").Value = "XY40"
        Case 1060
            Cells(thisRow, "A").Value = "XY30"
        Case 1374, 1128, 1326, 1259, 1375, 1115, 1337, 1331, 1380
            Cells(thisRow, "A").Value = "XY20"
        Case Else
            Cells(thisRow, "A").Value = "XY10"
    End Select
Next thisRow

End Sub

WBD

 

[neilp]

Thanks WBD thats brilliant