(14/12/2018, 11:34)yyhy yazdı: Veri sayfasında bulunan verilerden satıra mükerrer kayıt girdirmeme her okuldan bir tanesini girmesini istiyorum. İkinciyi girince uyarı versin bu satıra daha önce bu veriyi girdiniz listeden başka veri giriniz şeklinde. Satır sayısı 4000 olmasını istiyorum? Ek dosya ekledim. Yardımcı olacak arkadaşlara teşekkür ederim.
Şöyle bir macro uyguladım ama her satır için bunu uygulayamadım düzenleme yapılabilir mi? Veya başka bir öneriniz olur mu?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aralik As Range
Set aralik = Range("H2C4000")
say = WorksheetFunction.CountIf(aralik, Target.Value)
If say > 1 Then
MsgBox "Bu Okul Daha Önce Seçildi" & Chr(10) & _
"Lütfen Başka Bir Okul Seçiniz.", vbInformation, "YILMAZ YILDIZ"
Target.Value = ""
Exit Sub
End If
End Sub
Kodlarınızı aşağıdaki gibi deneyiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 4000
Dim aralik As Range
Set aralik = Range("H" & i & ":" & "dc" & i)
say = WorksheetFunction.CountIf(aralik, Target.Value)
If say > 1 Then
MsgBox "Bu Okul Daha Önce Seçildi" & Chr(10) & _
"Lütfen Başka Bir Okul Seçiniz.", vbInformation, "YILMAZ YILDIZ"
Target.Value = ""
Exit Sub
End If
Next i
End Sub