Çözüldü aynı numaraları kıyaslama

incsoft' Alıntı:

Sayfamda aynı numaradan 2 tane kullanmak istemiyorum. Bununla ilgili sorum ektedir. Nasıl bir yöntem olabilir? Macro harici olursa iyi olur arkadaşlar. Kullanacak kişilerin fazla bilgisi olmadığından girdikten sonra her seferinde macro çalıştıramazlar..

Teşekkürler...

Genişletmek için tıkla ...

ozkansabanci' Alıntı:

Koşullu biçimlendirme ile renklendirebilirsiniz. Her girişte aynı olanları renklendirir. (Makrosuz çözüm)
Ekten inceleyebilirsiniz.

Saygılarımla.

Genişletmek için tıkla ...

incsoft' Alıntı:

Çok teşekkürler..
Aşağıdaki şekilde bir macro ile uğraşıp duruyordum hocam çözememiştim bu daha iyi oldu.




Dim OncekiHucre As Range

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Alan As Range
Dim Bak As Range
Set Alan = Range("F20:F30,F51:F61,U20:U30,U51:U61,AM20:AM30,AM51:AM61")
If Not Intersect(Alan, Target) Is Nothing Then
For Each Bak In Alan
If Target.Text = "" Or Bak = Target And Bak.Address <> Target.Address Then
Set OncekiHucre = Target
Exit For
Else
Set OncekiHucre = Nothing
End If
Next
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OncekiHucre Is Nothing Then
If Not OncekiHucre.Text = "" Then
Application.EnableEvents = False
OncekiHucre.Select
MsgBox "Aynı rakamdan iki tane olamaz, lütfen kontrol ederek tekrar deneyiniz.", vbCritical, "Hata"
Application.EnableEvents = True
End If
End If
End Sub

Genişletmek için tıkla ...