Bir sayıya değer atama

[Arif_Akgun]

Merhaba, ben bir sayıya değer atamak istiyorum. Mesela 2 sayısına 34,1 değerini, 3 sayısına 34,2 değerini atamak ve bir hücreye 2 girdiğimde 34,1 değerinin, 3 girdiğimde 34,2 değerinin gelmesini istiyorum. Bunu yapabilirsem her gün düzenli olarak yaptığım ve yaklaşık bir buçuk saat süren bir çalışmam yarım saatte bitecek. Teşekkür ederim şimdiden.

 

[muratboz06]

Çalışma sayfasının kod bölümüne ekleyiniz.
Çalışma sayfasının A1:A10 hücre aralığında herhangi bir hücreye 2 yazarsanız 34.1, 3 yazarsanız 34.2 olarak değiştirir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = 2 Then
    Target.Value = 34.1
    ElseIf Target.Value = 3 Then
    Target.Value = 34.2
    End If
    Application.EnableEvents = True
End Sub

 

[Arif_Akgun]

Teşekkür ederim!