Arkadaşlar sayfa 2'de a1:a500 arasında bir listem var.sayfa 1'de c5,c7,c9,c11,c13,c15,c17,c19,c21,c23 hücrelerine yazdığım değer sayfa 2 deki a1;a500 arasında yoksa uyarı versin.nasıl yapabilirim.değerli yardımlarınızı bekliyorum.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo f1
If Intersect(Target, [C5], [C7], [C9], [C11], [C13], [C15], [C17], [C19], [C21], [C23]) Is Nothing Then
If IsEmpty(Target) Then: Exit Sub
Application.EnableEvents = False
deger = Target
Target = Empty
Set bul = Range("C5:C23").Find(deger, , , xlWhole)
If Not bul Is Nothing Then
If bul.Address = Target.Address Then: Exit Sub
MsgBox "Bu değerden zatn girilmiş", vbCritical, "UYARI"
Target = Empty
Target.Select
Set bul = Nothing
Application.EnableEvents = True
Exit Sub
Else
Target = deger
Application.EnableEvents = True
End If
Set bul = Sheets("Sheet2").Range("A1:A500").Find(Target, , , xlWhole)
If bul Is Nothing Then
MsgBox "Bu değer yok", vbCritical, "UYARI"
Application.EnableEvents = False
Target = Empty
Application.EnableEvents = True
Target.Select
Set bul = Nothing
Exit Sub
End If
End If
f1:
Application.EnableEvents = True
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim hucreler()
Dim i%, j%, x%
Dim deger As Variant
Dim Bul As Range
hucreler = Array("$C$5", "$C$7", "$C$9", "$C$11", "$C$13", "$C$15", "$C$17", "$C$19", "$C$21", "$C$23")
For i = 0 To UBound(hucreler) ' - 1
If Target.Address = hucreler(i) Then
Application.EnableEvents = False
deger = Target.Value
Target = Empty
For j = 0 To UBound(hucreler) - 1
If Range(hucreler(j)) = deger Then
MsgBox "Bu değerden zaten girilmiş", vbCritical, "UYARI"
' Target = Empty
Target.Select
Application.EnableEvents = True
Exit Sub
End If
Next j
Target = deger
Application.EnableEvents = True
x = x + 1
End If
Next i
If x = 0 Then: Exit Sub
Set Bul = Sheets("Sheet2").Range("A1:A500").Find(Target, , , xlWhole)
If Bul Is Nothing Then
MsgBox "Bu değer yok", vbCritical, "UYARI"
Application.EnableEvents = False
Target = Empty
Application.EnableEvents = True
Target.Select
Set Bul = Nothing
Exit Sub
End If
End Sub