Check that 2 cells = the same value

[ipbr21054]

Evening,
I am using the working code supplied below.

I would like to add some kind of check value code after the supplied code below has run.
So in this particular code, values are copied from sheet name EXPENSES1 & pasted to sheet name EXPENSES2

This would be the additional code required please.
Once pasted to sheet EXPENSES2 the code would need to make sure that the value in cell K32 on EXPENSES2 is the same value as cell M1 on sheet EXPENSES1
If the value is the same then show msgbox with the text Values are the same.
If the values are different then msgbox with the text value do not match

Private Sub CommandButton1_Click()  Sheets("EXPENSES2").Range("D4").Value = Sheets("EXPENSES1").Range("D30").Value
  Sheets("EXPENSES2").Range("F4:K4").Value = Sheets("EXPENSES1").Range("F30:K30").Value
  Sheets("EXPENSES2").Activate
  ActiveSheet.Range("A5").Select
End Sub

Many Thanks

 

[Richard U]

Private Sub CommandButton1_Click()  Sheets("EXPENSES2").Range("D4").Value = Sheets("EXPENSES1").Range("D30").Value
  Sheets("EXPENSES2").Range("F4:K4").Value = Sheets("EXPENSES1").Range("F30:K30").Value
  Sheets("EXPENSES2").Activate
  ActiveSheet.Range("A5").Select

'''  *****************  new code below *****************

  if Sheets("EXPENSES2").Range("K32").Value <> Sheets("EXPENSES1").Range("M1").Value then msgbox "No Ma


End Sub

 

[Richard U]

 Private Sub CommandButton1_Click() Sheets("EXPENSES2").Range("D4").Value = Sheets("EXPENSES1").Range("D30").Value
 Sheets("EXPENSES2").Range("F4:K4").Value = Sheets("EXPENSES1").Range("F30:K30").Value
 Sheets("EXPENSES2").Activate
 ActiveSheet.Range("A5").Select

 ''' ***************** new code below *****************

 if Sheets("EXPENSES2").Range("K32").Value <> Sheets("EXPENSES1").Range("M1").Value then msgbox "No Match"


 End Sub

 

[ipbr21054]

Many thanks works a treat