aynı değer uyarısı

[burhantapu]

ben bir kurumda çalışıyorum ve bir excel listemiz var.
ör: a1 sütununa mahalle ismi - b1 sütununa ada numarası - c1 sütununa da parsel numarası yazıyorum.
yaklaşık 1000 e yakın satır var ve sonraki satırlara ayı mahalle, aynı ada ve aynı parseli yazdığımda beni uyarmasını istiyorum. konu hakkında yardımcı olurmusunuz.

 

[burhantapu]

24 kişi görmüş... bu demek oluyor ki çözümü yok bu istediğimin.

 

[kulomer46]

Merhaba

Çözümü var elbette.
Şimdi birçok yolu olmasına rağmen ben makrolu çözümünü ekliyorum.

Makroda Worksheet_Change Olayına aşağıdaki kodu eklerseniz talebiniz gerçekleşmiş olur.

İndirmek isteyenler içinde ilgili dosya Ek' tedir.

Kolay Gelsin... Selamlar...

İlgili Kod

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column > 3 Then Exit Sub

For i = 1 To Target.Row - 1
 
    If Trim(Cells(i, 1)) = Trim(Cells(Target.Row, 1)) Then
 
        If Trim(Cells(i, 2)) = Trim(Cells(Target.Row, 2)) Then
     
            If Trim(Cells(i, 3)) = Trim(Cells(Target.Row, 3)) Then
         
                If Len(Trim(Cells(Target.Row, 1))) > 0 Or Len(Trim(Cells(Target.Row, 2))) > 0 Or Len(Trim(Cells(Target.Row, 3))) > 0 Then
                 
                    MsgBox "Bu satırdaki verilerle,  yukarda  " & i & ".  Satırdaki veriler aynıdır." & Chr(10) & Chr(10) & "Bilginiz Olsun", , "Girdiğiniz Satır  " & i & ".  Satır ile Aynı"
             
                End If
         
            End If
         
        End If
     
    End If

Next


End Sub

Kodun Yazıldığı Yerle İlgili Resim