Hücreye yazılan değeri makrodaki değerle değiştirme

[cemalc41]

Merhabalar,

Excelde giriş yaptığım bir tablom var. Bazı sütunlara bir değer girdiğimde ve enter dediğimde tanımladığım başka bir değerin hücreye yazılmasını istiyorum.
Örneğin; hücreye 6B değerini girdiğimde ve enter bastığımda hücrede -6 yazmasını istiyorum.
Sadece belirleyeceğim sütunlarda bu işlemi yapabilmeliyim.
Yardımcı olabilir misiniz?

Dosya ektedir.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Base 1

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    VeriA = Array("2B", "2H", "3B", "3H", "4B", "4H", "5B", "5H", "6B", "6H", "B", "F", "H", "HB")
    VeriB = Array(-2, 2, -3, 3, -4, 4, -5, 5, -6, 6, -1, 0.5, 1, 0)
    Application.EnableEvents = False
    Sonuc = WorksheetFunction.Match(Target.Value, VeriA, 0)
    Target.Value = VeriB(Sonuc)
10  Application.EnableEvents = True
End Sub

 

[cemalc41]

Çok teşekkürler Korhan Bey,

Geç yanıtladım ama oldukça işime yaradı ve kolaylaştırdı.