Hücre değerinin otomatik değişmesi

[Özgür DALDABAN]

Merhaba Arkadaşlar
Sadece A sütununa ait herhangi bir hücreye değer girdiğimde o hücre değerini 100000 e bölüp +1 de eklemesini istiyorum.
Hücre içeriğini temizlediğimde hiç bir işlem yapmayacak.
Örneğin A1 hücresine 4502 yazdığımda 1,04502 olarak değişmesini istiyorum..
Yardımlarınız için teşekkür ederim...

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    With Target
        If Not IsEmpty(.Value) And IsNumeric(.Value) Then
            x = (.Value / 100000) + 1
        Else
            x = .Value
        End If
        Application.EnableEvents = False
        .Value = x
        Application.EnableEvents = True
    End With
   End Sub

 

[Özgür DALDABAN]

Saol kardeş emeğine sağlık...