Liste ve şart

[fuat301]

Merhabalar,

Aşağıdaki her içerik kolonu kendi içinde listeli 1000 farklı ürün barındırıyor. Kaynak farklı bir sayfada. Yinelemenin önüne geçmek için örneğin İçerik 2'ye giriş yapıldığında İçerik 1 ile aynı ürün seçilirse hata vermesini veya girişin mümkün olmamasını istiyorum. Fakat hücrede hali hazırda validation olduğundan if ile yazım mümkün olmuyor. Bununla ilgili çıkar yol nedir ?

İçerik 1	İçerik 2	İçerik 3	İçerik 4	İçerik 5	İçerik 6	İçerik 7

 

[muratboz06]

Aşağıdaki kodu çalışma sayfanızın kod bölümüne ekleyiniz.
Range("A1:J10") aralığını çalışma alanınızdaki sütunların adını yazabilirsiniz Range("A:J") gibi. Dosyanızı macro içerebilen excel çalışma kitabı olarak .xlsm olarak kaydediniz.
Aşağıdaki kodlar A1:J10 aralığında aynı verinin birden fazla yazılmasını engeller.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1:J10")) Is Nothing Or Target.Cells.Count > 1 Or IsEmpty(Target.Value) Then Exit Sub
    Dim ara As String
    ara = Target.Value
     
    Dim bulSay As Byte
    bulSay = WorksheetFunction.CountIf(UsedRange, ara)
          
    If bulSay > 1 Then      
        Target.Clear
        Target.Activate
        Dim bul As Range
        Set bul = UsedRange.Find(ara, LookAt:=xlWhole)
        MsgBox "Bu ürün önceden kullanıldı. Kullanılan hücre :" & bul.Address         
    End If
 
End Sub

 

[fuat301]

çok teşekkürler