Macro to auto Update values in different sheets

[feroguz]

Hi masters!!, It's Wednesday! !

I've searched the information, but cann't find how to auto update if I change a value in the cells.

For example:
If I have a value on Sheet 3 and modified it (Name), I need a function that find the old value that had originally and replace it on the sheet 2, is this possible?


attach the file for more explication..

Thanks a lot!
Best Regards!

[xladept]

On Sheet 2 B11:

=Sheet3!B4

[feroguz]

Thanks for the help..!

but if I have the same value in multiple cells in the sheet 2 would not be useful .. any ideas?

Best Regards!

[nilem]

Hi Feroguz, try it

Option Explicit
Dim OldName$

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
OldName = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If OldName = vbNullString Then Exit Sub
Dim r As Range
Set r = Sheets("Sheet2").UsedRange.Columns(2).Find(OldName, lookat:=xlWhole)
If Not r Is Nothing Then r.Value = Target.Value
End Sub

[feroguz]

Dear Amigo Nilem! Works Fine!!

I send you a PM.

Thanks a lot!!