Two workbooks and need text changed after comparing them

[dawsonsoo]

I'm hoping someone can help me because I'm really stumped.

1) I have two workbooks (sample1 & sample2). I need to be able to compare values in column A on both sheets.
2) IF a value in column A for sample1 matches a value in column A in sample2 I need column B values in sample2 to replace existing column B values in sample1
3) I have other data in columns C&D in both samples but those need to stay unchanged.

Could someone please help? This would make my day!!
Thank you!
~S

[mehmetcik]

Very easily done

Click on the button to run this macro
The two files must be open

Sub Macro5()

'Ok these are common formulas that I often need.
'I have a macro that pastes then into any spreadsheet
'I then delete the ones I don't need'
'
'This finds the last used cell in column A. could be improved to cells(Row.count,1).End(xlUp).Row
'The Row.count returns the maximum number of rows supported by the version of excel that you are using.
'
LR = Range("A65536").End(xlUp).Row
'
'This finds the last used cell in Row. could be improved to cells(1,Columns.count).End(xltoLeft).Column.
'
LC = Range("IV1").End(xlToLeft).Column
'
'This returns the Address of the last used cell on the spreadsheet
LCell = Selection.SpecialCells(xlCellTypeLastCell).Address
'
' This returns the column of the last used cell
'
LCC = Selection.SpecialCells(xlCellTypeLastCell).Column
'
''This returns the row of the last used cell
LCR = Selection.SpecialCells(xlCellTypeLastCell).Row

'People often have problems like your so I am creating a flexible solution
'Based on your request
'So I am using variables to store your search parameters
'
'Search Column in Master
Master = "Sample1.xlsm"
SearchCol1 = "A"
Target = "B"

'Search Column in Import
Export = "sample2.xlsx"
SearchCol2 = "A"

'So this is These are the columns that I am interested in
Emptycol = Selection.SpecialCells(xlCellTypeLastCell).Column + 1
TargetCol = Range(Target & 1).Column
SearchcolN1 = Range(SearchCol1 & 1).Column
SearchColN2 = Range(SearchCol2 & 1).Column

'These are are the last used cells in those columns
LR = Cells("65536", SearchcolN1).End(xlUp).Row
LR2 = Workbooks(Export).Sheets(1).Cells("65536", SearchColN2).End(xlUp).Row

'I fill the column next to my search column with a formula to find the matching data on the import file
'I used the macro recorder to create the formula and then edited it to insert my variables

Range(Cells(2, Emptycol), Cells(LR, Emptycol)).Select
Selection.FormulaR1C1 = _
"=if(isna(MATCH(RC" & SearchcolN1 & ",[" & Export & "]Sheet1!R1C" & SearchColN2 & ":R" & LR2 & "C" & SearchColN2 & ",0)),RC[" & TargetCol - Emptycol & "],index([" & Export & "]Sheet1!R1C" & TargetCol & ":R" & LR2 & "C" & TargetCol & ",MATCH(RC" & SearchcolN1 & ",[" & Export & "]Sheet1!R1C" & SearchColN2 & ":R" & LR2 & "C" & SearchColN2 & ",0)))"

'This is a copy paste value
Range(Cells(2, TargetCol), Cells(LR, Target)).Value = Selection.Value

Columns(Emptycol).Delete

Range("A1").Select

End Sub