Çoklu sütunda mükerrer uyarısı

[Yesilyurtlu]

C6:F200 arasında
F sütununa değer girildiği zaman aynı bilgilere sahip daha önce girilen veri var ise MÜKERRER KAYIT VAR uyarısı vererek Mükerrer olan satıra direk gitmesini istiyorum.
Bunu makro ile sağlamak istiyorum. Bu konuda yardımcı olabilir misiniz?
Teşekkür Ederim

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızdaki sayfa1'in kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [f6:f200]) Is Nothing Then Exit Sub
sat = Target.Row
formul1 = Evaluate(Replace("SUMPRODUCT((C6:C200=Cxx)*(D6:D200=Dxx)*(E6:E200=Exx)*(F6:F200=Fxx))", "xx", sat))
If formul1 > 1 Then
MsgBox "Bu veri daha önceden kayıtlıdır.", 32, "Uyarı!"
formul2 = Evaluate(Replace("SUMPRODUCT((C6:C200=Cxx)*(D6:D200=Dxx)*(E6:E200=Exx)*(F6:F200=Fxx)*ROW(C6:C200))", "xx", sat)) - sat
Rows(formul2).Select
End If
End Sub

 

[Yesilyurtlu]

Levent Abi;
Ellerine sağlık.
Yardımınız için teşekkür ederim

 

[Pcqopat]

Merhaba,

Bu kod çok işime yaradı ama biraz düzenlemem gerekti uğraştım bi kaç yerini hallettim tek sorun aramayı tek bi sütunda değil bütün sütunlarda yapmasıya da en azından A'dan G'ye kadar olan sütunlarda.
Yani B ya da C sütununa herangi bir veri girildiğinde Diğer sütunların hepsinde arama yapması lazım.

Yardımcı olursanız çok sevinirim.