Listeden Seçince Enter Yapmış Gibi Kabul Etmiyor

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kod sadece manuel olarak Enter yapınca çalışıyor. Listeden seçerek hücreye "Paris" yazınca işlem yapmıyor ama el ile yazınca işlemi yapıyor.

İşlem : J sütununda "Paris" yazarsa I sütunudaki verisin soldan 1. harfini M sütununa yazmalı. Örnek dosya ekte.

 

[fedeal]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J1:J60000]) Is Nothing Then Exit Sub
If Cells(ActiveCell.Row + 0, 10) = "Paris" Then
Cells(ActiveCell.Row - 0, 13).Value = Left(Cells(ActiveCell.Row - 0, 9).Value, 1)

End If
End Sub

1leri 0 yapınca oldu. iyi çalışmalar

 

[baydeniro]

Sayın fedeal çok teşekkür ederim. Çok makbule geçti, sağlıcakla kalın.

 

[fedeal]

ricaederim pek bir şey yapmış sayılmam ama bu seferde manual girip enter yapınca alt satıra işliyor kodlar iyi çalışmalar.

 

[baydeniro]

Olsun yine de bu şekli ile daha yararlı oldu. Uyarınız için ayrıca teşekkür ederim, bu şekilde çalıştığını da öğrenmiş oldum. İyi günler.