Quick Question

[Gamermatt]

Excel Workbook
	A	B	C	D	E
1	2	821351-2		1	821351
2	3	821350-CF		2	821351
3	4	CFR03N350		3	821350-CF
4	5	CFR05DM		4	CFR03N350
5	6	CFR06DC		5	CFR05DM
6	7	CFR08ML		6	CFR06DC
7	8	CFR94AI		7	CFR08ML
8	9	DF95ME-2		8	CFR94AI
9	11	F00FFBC		9	DF95ME
Sheet1

I need to go through the numbers in column A, find that number in column D, and replace the corresponding cell in column E with the corresponding one from column B

 

[asking]

If there is no match, I presume you wish to preserve values in E column with their present value.

If that is the case you need to insert a column by highlighting Column E and inserting a column.

Then this formula in cell E1 and fill down.

=IFERROR(INDEX(B:B,MATCH(D1,A$1:A$9,0)),F1)

If you don't wish to preserve what is in column E, this formula in Cell E1 and fill down, no need to insert column.

=IFERROR(INDEX(B:B,MATCH(D1,A$1:A$9,0)),"No Match")

 

[saltkev]

Hi

I think this VBA solution will do what you want, it can be used under a command button or ss event.

Dim FindString As String
Dim Rng As Range
Dim fcomp
For Each fcomp In Range("a1:a9") ' range of Source Comparison

    FindString = fcomp
   
        
        With Sheets("Sheet1").Range("d1:d9") 'range of cells to search
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(1), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False)
            
            If Rng Is Nothing Then
                
                
                
            Else
            
               Rng.Offset(0, 1).Value = fcomp.Offset(0, 1)
                
            End If
        
        End With
             
  Next fcomp

regards

Saltkev