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

[ismailayan]

Merhaba Arkadaşlar herkese kolay gelsin...


Arkadaşlar benim istediğim hücre içine yazılacak olan yazıyı hem c sütununda hemde başka bir sayfada arama yapacak..

Yaniiii

C sütununa yazılan metni daha önce yazılmış isim listesinden aarayacak aynı zamanda Sayfa2 deki A sütunuda arama yapacak

benim yazdığım kod aşağıda ama bir türlü tamamlayamadım..

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Bul As Range, Adres
On Error GoTo HATA
If Target.Column = 3 And Not Target = "" Then
Set Bul = Range("C:C").Find(Target, LookAt:=xlWhole)
Adres = Bul.Address
Set Bul = Range("C:C").FindNext(Bul)
If Not Bul.Address = Adres Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
HATA:

End Sub


bu konuda bana yardımcı olurmusuunuz:???

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Find komutu hatalı sonuç verebilir, bunun yerine countif fonksiyonunu kullanmak daha iyi netice verecektir.

[vb:1:7803bcd1d8]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Not Target = "" Then
bul1 = WorksheetFunction.CountIf(Columns("c"), Target)
bul2 = WorksheetFunction.CountIf(Sheets("sayfa2").Columns("a"), Target)
If bul1 > 0 Or bul2 > 0 Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End Sub
[/vb:1:7803bcd1d8]

 

[ismailayan]

2 ayrı aratma

bu yarım olmuş gibi sanki

ayrı ayrı masaj çıkartmak mümkün değilmi

mesela aynı sütunda ise daha önce girilmiş kayıt

sayfa2 de ise girilmesi yasaklanmış isim diye mesaj veridmek mümkün değilmi


cevabını bkliyorum..