Çözüldü VBA ile düşeyara kullanımı

Merhaba, Kodlarınızı inceleyince;
a) 1 adet end if fazladan koymuşsunuz bu hata veriyordu sildim.
b) Application.EnableEvents=False satırını if şartının dışına, Application.EnableEvents=True satırını ise if şartının içerisine yerleştirmişsiniz.
şart sağlanmadığından Application.EnableEvents=False olarak kalıyor ve uygulama çalışmıyordu.
Application.EnableEvents=True satırını if dışına aldım.
c) Hasar sayfası "A" sütununa yazılacak plakaları veri doğrulama ile Araçlar sayfasından çektirdim. Listeden seçim yapabilirsiniz.
(Veri doğrulama istemezseniz, A sütunundan bir hücreyi seçip; üst menüden Veri>Veri Doğrulama seçtikten sonra açılan pencere içerisinden Bu değişiklikleri aynı ayarlara sahip diğer hücrelerin tümüne uygula seçeneğini seçtikten sonra, Tümünü Sil butonunu tıklayabilirsiniz.)

Şu anda çalışıyor görünüyor.

Dosyayı inceleyiniz.

Ellernize sağlık,

Ancak Application.EnableEvents ve çok sağlıklı sonuçlar çıkartmıyor.
Örneğin; "J" sütuna tarih girmediğiniz zaman yani text girildiğinde uyarı veriyor ve kodlar Application.EnableEvents nedeni ile kitleniyor çalışmıyor. Dosyayı aç kapa yapmak gerekiyor.

Diğer taraftan If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub başlayan kodlar mantıklı çalışmıyor.
"Cells(Target.Row, "B") = Sheet1.Range("B" & c.Row)" kod çalıştıktan sonra alt satırındaki kodu çalıştırmak diğer yerine If Not Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub kodlarını çalıştırdıktan sonra Cells(Target.Row, "C") = Sheet1.Range("C" & c.Row) kodu çalıştırıyor. Daha yalın bir kod yazabilmek için araştırıyorum. şöyle birşey =VLOOKUP($A$11;Araclar!A:G;{2;3;4;5;6;7};0)

Yapmak istediğim;

Hasarlar sayfası çalıştığım sayfa / Araclar sayfası verilerimin olduğu sayfadır.

1. Hasarlar sayfası A sütununda herhangi bir hücresine plaka girdiğim zaman Araçlar sayfasında eşleşeni bulup B;C;D;E;F;G sütunlarına verileri yazdıracak (VLOOKUP($A$11;Araclar!A:G;{2;3;4;5;6;7};0) gibi...
Ancak birden fazla aynı plakadan bulur ise uyarı verecek ve end sub yaparak işlemi sonuçlandıracak.

Devamında..

2. "I" sütununda ki yazı proper formülü uygulanacak

3. "J" Sütununa tarih girilmesini zorunlu kılacak. Tarih girilmemiş ise uyarı çıkacak ve tarih girilmesini isteyecek.

4. Tarih girildikten sonra "K" sütununa ay yazacak Text;activecell;("mmmm") bu formatta olmalı ama
Tarih girildikten sonra "L" sütununa yıl yazacak Text;activecell;("yyyy") bu formatta olmalı ama