Değerin karşılığını yazma

[furmet]

Arkadaşlar her furkan yazdığımda yanındaki sütuna 11 yazmasını her ali yazdığımda 10 yazmasını istiyorum

Arkadaşlar bununla ilgili formülü nasıl yazabilirim ?

 

[çıtır]

Formülle olacağını zannetmiyorum.Kod olarak.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "Furkan" Then Target.Offset(0, 1) = 11
If Target.Value = "Ali" Then Target.Offset(0, 1) = 10
End Sub

 

[furmet]

PEki bunu nasıl kullanıcam ? Hangi Satır hangi sıra olduğunu gösteren dizin nedir ? Ve formülü visual Basic ile nasıl tanımlatabilirim?

 

[çıtır]

1)Geliştirci sekmesinde Visual Basic çift tıkla
2)Sayfa(Sayfa1) tıkla ve kodu kopyala .Yapıştır
Geliştiri yoksa
https://www.youtube.com/watch?v=fzPl2Sc0rWI

 

[furmet]

Dediklerinizi Sayfa 2 de gerçekleştirdim Fakat hata veriyor. Formülde Furkan yazısını nereye arıyacağına dair bir bilgi yer almıyor yazacağı yeri belirtmişsiniz ama bundan kaynaklı br hata olabilir mi ?

 

[haimow]

Düşeyarayla da yapabilirsiniz diye düşündüm.