Szia!

 

Itt egy kódsor példa, ami kezeli a feladatot:

 

Private Sub Worksheet_Change(ByVal Target As Range)

dim x as double,y as double,regiveg as string,ujveg as string

if not intersect("A1",Target) is nothing then
   Application.EnableEvents = False
   y = Target.Value
   Application.Undo
   x = Target.Value

   Target.Value=y
   regiveg=range("X1:Y100").find(what:=x,lookin:=xlvalues,lookat:=xlwhole).offset(0,1).value

   ujveg=range("X1:Y100").find(what:y,lookin:=xlvalues,lookat:=xlwhole).offset(0,1).value

   range("A2:J500").replace(what:=regiveg,replacement:=ujveg,lookat:=ylpart)
   Application.EnableEvents = True

endif

endsub

 

A1 cella a "kódcella"

x = a régi kód

y = az új kód

X1:Y100 tartomány a kódtartomány: első oszlop a kódszámok, második oszlop a betűvégek

A2:J500 tartomány a megváltoztatandó cellák

 

Üdv.