Hücre Değerine Göre Başka Hücreye Veri Aktarma

[kamilsrky]

Arkadaşlar ekte bulunan basit puantaj çalışmasında "AK10" hücresinin değeri 1 ile 12 arasında değişmektedir.Bu değişim esnasında eğer hücredeğeri 1 ise "AO4" hücresine "AK6" hücresindeki değeri yazacak. Hücre değeri 2 olunca "AO5" hücresine "AK6"hücresindeki değer yazacak. Bu şekilde 12 sayısına kadar bu işlem devam edecek.Her değişimden sonra "AO" sütunundaki değerler sabit kalacak.

Forumdan bulduğum aşağıdaki kod ile bu işi yapabilirmiyim.Yani bu kodu nasıl geliştirebilirim?

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("ak10") = 1 Then
Range("ao4") = Range("ak6")
End If
End Sub


Örnek dosyayı ekliyorum ve yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [AK10]) Is Nothing Then Exit Sub
    If Target.Value = "" Or Target.Value = 0 Then Exit Sub
    If Target.Value < 4 Then
        Range("AO" & Target.Value + 3) = Range("AK6")
    Else
        Range("AO" & Target.Value * 2) = Range("AK6")
    End If
    
End Sub

 

[zodiak]

necdet bey elinize sağlık

 

[kamilsrky]

Necdet Bey ilginiz ve yardımınız için çok teşekkür ederim.İyi çalışmalar .....

 

[Necdet]

Necdet Bey ilginiz ve yardımınız için çok teşekkür ederim.İyi çalışmalar .....

Rica ederim, bende iyi çalışmalar diliyorum.