A sütununda hücreye sayı yazıldığında excelin aynı hücrede otomatik olarak işlem yapması nasıl sağlanır?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
A sütununda hücreye sayı yazıldığında excelin aynı hücrede otomatik olarak işlem yapması nasıl sağlanır?
Örneğin hücreye yazılanın 3 katının 1 fazlasını yazsın.
Yani A2 ye 2 yazıp entere basınca A2 de 7 görünsün ve kursor B2 ye geçsin
A3 e 5 yazıp entere basınca A3 te 16 görünsün ve kursor B3 e geçsin
Saygılarımla

 

[Muzaffer Ali]

Merhaba.

Sayfanın kod kısmına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If IsNumeric(Target.Text) And Not Intersect(Target, Range("A:A")) Then
        Application.EnableEvents = False
        Target.Value = (Target.Value * 2) + 1
        Application.EnableEvents = True
    End If
End Sub

B'ye geçmek için koda ilave yapmaya gerek yok Excelin kendi özelliği olan TAB tuşuna bastığınızda B'ye geçer. TAB tuşuna basarak B'ye geçtiğiniz zaman B de iken Entere basarsanız A ya geçer, TABa basarsanız C ye geçer.

 

[Tevfik_Kursun]

Teşekkür ederim Muzaffer Ali,
İyi çalışmalar