Yazılan yazıyı 2 ayrı yerde arama

[ismailayan]

Günaydın

daha önce yardım istenmiş bir konu ama


istediğim arama işlem olduğu zaman

yapılan bulma işlemine göre mesaj versin.

aynı sütundaysa daha yazılmış
yada
diğer belirlenmiş sayfa2 de ise yasaklanmış isim diyerek
------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Bul1 As Range
Dim Bul2 As Range, Adres

If Target.Column = 4 And Not Target = "" Then
Bul1 = WorksheetFunction.CountIf(Columns("d"), Target)
Bul2 = WorksheetFunction.CountIf(Sheets("kayıtdışı").Columns("b"), Target)
If Bul1 > 0 Or Bul2 > 0 Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If

End Sub
-------------------------------------------

mümkünse bu konuda bana yardımcı olurmusunuz?????


bu arada herkese kolay gelsin