Aynı hücrede çarpma işlemi

[sirkülasyon]

Hayırlı Sabahlar
Selamün Aleyküm
Değerli arkadaşlar D4158 aralığında
hücreye iki kere rakam girildiğinde her iki rakamın çarpımını aynı hücreye yazacak bir makroya ihtiyacım var.
Örnek:
D14 hücresine ilk olarak 40 rakamını sonra da 150 girdiğim zaman D14 hücresine 6000 yazacak.
Yardımını esirgemeyen arkadaşlarıma teşekkür ederim.

 

[Korhan Ayhan]

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

Dim Ilk As Double, Son As Double

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("D4:D158")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target <> "" And IsNumeric(Target) Then
        If Ilk = 0 Then
            Ilk = Target
            GoTo 10
        End If
        If Ilk <> 0 And Son = 0 Then
            Son = Target
        End If
        If Ilk <> 0 And Son <> 0 Then
            Target = Ilk * Son
            Ilk = 0: Son = 0
        End If
    End If
10  Application.EnableEvents = True
End Sub

 

[sirkülasyon]

Korhan Abi
Ömrün Uzun Olsun. Bilgin ziyade olsun.
Ellerine sağlık. Teşekkür Ederim abim benim