İkinci Sorguyu Çalıştıramadım

[ayagiz44]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, ss As Long, alan As Range, k As Range
If Not Intersect(Target, [B8:B509]) Is Nothing Then
Set sh = Sheets("Sayfa1")
ss = sh.Range("B" & Rows.Count).End(3).Row
Set alan = sh.Range("aj2:aj" & ss)
aranan = Target.Value
Set k = alan.Find(aranan, , xlValues, xlWhole)
If Not k Is Nothing Then
MsgBox "BU PERSONEL ......LÜTFEN! ..... PERSONELİ GİRMEYİNİZ...", vbExclamation, ""
Exit Sub
End If
ElseIf Not Intersect(Target, [B8:B509]) Is Nothing Then
Set sh = Sheets("Sayfa1")
ss = sh.Range("A" & Rows.Count).End(3).Row
Set alan = sh.Range("AA2:AA" & ss)
aranan = Target.Value
Set k = alan.Find(aranan, , xlValues, xlWhole)
If Not k Is Nothing Then
MsgBox "BU PERSONEL AKTİF GÖREV YAPAMAZ.LÜTFEN! BU PERSONELİ GİRMEYİNİZ...", vbExclamation, ""
Exit Sub
End If
End If
End Sub

aj sütununda arama yapıyor
aa sütununda arama yapmıyor hatada vermiyor

 

[askm]

Örnek dosyanızı eklerseniz yardımcı olalım.

 

[ayagiz44]

Dosyam

Daha önce bana yardımcı olmuştun saygılar ancak dosyam müsait değil boşaltıp eklemeye çalışayım mı selamlar

 

[askm]

Buraya ekleyecek kadar küçük değilse mail olarak ta atabilirsiniz. askmadige34@hotmail.com.
Not: T.C. gibi özel bilgileri silip farazi bilgiler yazın.

 

[ayagiz44]

Dosyam

http://s5.dosya.tc/server5/hijp2i/ORNEK.rar.html

 

[askm]

Malesef indirme linklerini kullanamıyorum.

 

[ayagiz44]

ayagiz44@hotmail.com

göndermeye çalıştım

 

[ayagiz44]

Sayın Korhan Ayhan
Sayın antonio
yardımlarınızı bekliyorum selamlar