kod değişikliğini hücreden alma

[esad45]

aşağıda yazılı bir kodum var ;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim alan As Range
Set alan = Range("B2:B4000")
If Not Intersect(Target, alan) Is Nothing Then
If Target <> "" Then
On Error Resume Next
Target(1, 6).Formula = "=450 - " & Target(1, 4).Address
On Error GoTo 0
Else:
Target(1, 6) = ""
End If
End If
End Sub


burada "Target(1, 6).Formula = "=450 - " & Target(1, 4).Address" deki " 450" rakamını sayfa 1 deki a2 hücresinden almasını istiyorum bu rakam değişken çünkü nasıl yapabilirim

 

[asi_kral]

Merhaba
Bu şekilde dener misiniz_?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim alan As Range, S1 As Worksheet
Set S1 = Sheets("Sayfa1")
Set alan = Range("B2:B4000")
If Not Intersect(Target, alan) Is Nothing Then
If Target <> "" Then
On Error Resume Next
Target(1, 6).Formula = "=" & S1.Range("A2").Value & "- " & Target(1, 4).Address
On Error GoTo 0
Else:
Target(1, 6) = ""
End If
End If
End Sub