Lütfen acil yarım tüm formu aradım bulamadım

[RAULBJK]

Merhaba tüm formları aradım bulamadım yada aradığım seyi dogru tarif edemedim tek istediğim şey şu örneğin;

benim bir tablom var ve rakamların karşılıkları var şu şekilde

5 karşılığı 10
6 karşılığı 15
7 karşılığı 20

benim istediğim şey ben hücrece 5 yazarsam 10 6 yazarsam 15 gelmesi
bunun için yardımcı olursanız çok mutlu olurum saygılarımla.

 

[ugurcoskun]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cells.Replace What:="5", Replacement:="10"
Cells.Replace What:="6", Replacement:="15"
Cells.Replace What:="7", Replacement:="20"
End Sub