- Katılım
- 6 Ekim 2006
- Mesajlar
- 149
- Excel Vers. ve Dili
- 2013
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
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