Aynı hücreye değer girip aynı hücreye değer çağartma

[safi6003]

Merhaba arkadaşlar.Başlık biraz garip oldu sanırım.Elimde notlarla ilgili excel dosyası var ve şunu yapmak istiyorum.Bir hücreye "D" değerini girdiğimde aynı hücreden farklı hücreye geçtiğimde d değerini girdiğim hücrede başka sayfadan d değerine göre atadığım değerin belirmesini istiyorum.Bu olabilirmi?

 

[safi6003]

Çok iyi anlatamadım ancak dosyayı ekte size sunuyorum. Üstadlar anlayacaktır.

 

[safi6003]

Arkadaşlar bi yardım lütfen.

 

[Ömer]

Merhaba,

1.Sınav sayfasının kod bölümüne kopyalayın.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Sd As Worksheet, sat As Byte, i As Byte
 
    If Intersect(Target, Range("F5:AI30")) Is Nothing Then Exit Sub
 
    Set Sd = Sheets("NOT Ba.")
    sat = 14
    With Target
        If Cells(.Row, "C") = "A" Then
            sat = 9
        End If
 
        i = WorksheetFunction.Match(Cells(4, .Column), Sd.Range("A8:AG8"), 0)
        If .Value = "D" Then
            .Value = Sd.Cells(sat, i)
        ElseIf .Value = "Y" Then
            .Value = 0
        End If
    End With
 
End Sub

.