Excel de Hücrelerin İçerisine girilen değeri sabitleme

[toleo]

Arkadaşlar başlığı nasıl tanımlayacağımı bilemediğim için biraz karışık oldu. Sorunum şu; bir tane çalışma kitabım var 2 sayfalık. 1. sayfada kişisel veriler var 2. sayfada puanlama var, 1.sayfadaki verileri yatayara ile 2. sayfaya aktarıyorum ve kişisel olarak puanlama yapıyorum. İhtiyacım1. sayfada toplam puan sütunuma her kişinin toplam puanını otomatik olarak yansıtmak istiyorum. Fakat her seferinde 2. sayfada yaptığım değişiklikte puanlar değişiyor. İsteğim 1.kişinin puanını verinde toplam puan 1. sayfadaki sütüna yansısın ama değişmesin. ikinci kişiyi çağırdığımda ve puanladığımda o kişininde puanı1. sayfadaki kişinin yanına yazsın. Yardımcı olursanız çoook sevinirim. Şimdiden teşekkürler.

http://dosya.web.tr/O3Ekx2

 

[YUSUF44]

Aşağıdaki kodları Değerlendirme bölümünün kod bölümüne yapıştırırsanız H23 hücresi her değiştiğinde veri sayfasına aktarır:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("H23")) Is Nothing Then Exit Sub
For i = 2 To Sheets("veri").Cells(Rows.Count, "B").End(3).Row
    If Sheets("veri").Cells(i, "B") = [B7] Then
        Sheets("veri").Cells(i, "I") = Target
        GoTo 10
    End If
Next
10:
End Sub

Ancak bu kodlar H23 değişmediğinde yani iki kişi de aynı ortalamaya sahip olduğunda çalışmaz. Aşağıda tırnak içinde belirttiğim hücreler değiştiğinde aktarma yapması için aşağıdaki kodu kullanınız:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B7, B17:G23, H23")) Is Nothing Then Exit Sub
For i = 2 To Sheets("veri").Cells(Rows.Count, "B").End(3).Row
    If Sheets("veri").Cells(i, "B") = [B7] Then
        Sheets("veri").Cells(i, "I") = [H23]
        i = Sheets("veri").Cells(Rows.Count, "B").End(3).Row
    End If
Next
End Sub