Chaguelito,

Bom dia!

Anexe, aqui mesmo no fórum, um arquivo exemplo compactado. Você pode colocar dados fictícios, porém com o layout real dos seus dados.

Aí está wag!

Eu fiz uma macro de localização e substituição, porém ela não se altera se eu mudar os valores da tabela.

Vê oq vc acha.

Aqui no trabalho não consigo abrir arquivo .rar. Só Zip!

Experimente

Sub SubstituiCódigos()
 Dim k As Long, d As Long, MA As Range, x As Long
  For Each MA In Range("L4:L" & Range("L4").End(4).Row)
   d = Right(MA.Value, 1 + -CInt(Len(MA.Value) = 4))
   x = Int(((d - 1) / 29)) * -29 + 3
   k = Int(((d - 1) / 29)) * 3 + 3
   MA.Value = Cells(d + x, k)
  Next MA
End Sub

obs. código válido para 58 itens e tabela em 'B2:F32' conforme a amostra disponibilizada

Muito bom Oswaldo!

Muito obrigado, vai me economizar um tempo.

Sem querer abusar, mas eu não consegui entender oq vc fez, será que vc podia criar outra macro pra segunda aba?

Vou anexar o arquivo sem compactar caso o wag queira dar uma olhada.

Obrigado a todos.

... será que vc podia criar outra macro pra segunda aba?

O código abaixo funciona em tabelas com qualquer quantidade de linhas. Experimente nas tabelas das planilhas 'MURO 1' E 'MURO 2'.

Sub SubstituiCódigosV2()
 Dim k As Long, d As Long, MA As Range, x As Long, c As Long
 c = Range("B4").End(4).Row - 3
  For Each MA In Range("L4:L" & Range("L4").End(4).Row)
   d = Right(MA.Value, 1 + -CInt(Len(MA.Value) = 4))
   x = Int(((d - 1) / c)) * -c + 3
   k = Int(((d - 1) / c)) * 3 + 3
   MA.Value = Cells(d + x, k)
  Next MA
End Sub

Perfeito Osvaldo!!

Muito obrigado cara.