Excel Hücresindeki değerler ACİLL

[Aykut_2121]

Arkadaşlar benim şöyle bir sorunum var; Mesala A1 hücresine 10 A2 hücresine 5 yazdım. Ve bu değerler gözükmesin ben A1 e 5 yazınca 10 la çarpıp 50 A2 ye 7 yazınca 7 ile çarpıp 35 olsun istiyorum. Nasıl olacak bu

 

[uzmanamele]

Merhaba

Bu kodları deneyiniz.

Public veri_1 As Double
Public veri_2 As Double

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Row = 1 Then Range("A1").Value = Target.Value * veri_1
If Target.Row = 2 Then Range("A2").Value = Target.Value * veri_2
10:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = 0 Then
veri_1 = 1
Else
veri_1 = Range("A1").Value
End If
If Range("A2").Value = 0 Then
veri_2 = 1
Else
veri_2 = Range("A2").Value
End If
End Sub