Mükerrer mesajını boş hücre için vermesin

[sdegirmenci]

Merhaba;
Ekli drnek doyam üzerinde "h" hücresinde bulunan dosya numaraları mükerrer yazıldığında uyarı mesajı vermekte, Mükerrer satırı sildiğimde boş satırlarıda birden fazla kabul edip tekrar uyarı vermekte; bu uyarıyı vermemesi için
"Private Sub Worksheet_Change(ByVal Target As Range)"
olayı altındaki kod üzerinde çeşitli denemeler yaptım ama olmadı, bu konuda yardımcı olabilirseniz çok sevinirim, Saygılarımla

 

[Orion1]

Merhaba;
Ekli drnek doyam üzerinde "h" hücresinde bulunan dosya numaraları mükerrer yazıldığında uyarı mesajı vermekte, Mükerrer satırı sildiğimde boş satırlarıda birden fazla kabul edip tekrar uyarı vermekte; bu uyarıyı vermemesi için
"Private Sub Worksheet_Change(ByVal Target As Range)"
olayı altındaki kod üzerinde çeşitli denemeler yaptım ama olmadı, bu konuda yardımcı olabilirseniz çok sevinirim, Saygılarımla

ekte dosya yok

 

[sdegirmenci]

Hocam özür dilerim, dosya büyük uyarısına dikkat etmemişim , ekledim.

 

[Orion1]

Dosyanız ektedir.

If Intersect(Target, [H:H,J3]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Exit Sub
    End If

 

[sdegirmenci]

Hocam çok teşekkür ederim, hayırlı geceler diliyorum.