Ayni Serİ No Uyarisi

[ANTALYA 01]

Merhabalar

Aşağıdaki Kodu Ekte Gönderdiğim örneğe göre uyarlarmısnız.Rica etsem.
Ekteki örnekten özet tabloyla verileri Gruplamaktayım.

BU KOD KOD Sayfasına Yapışıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("f:f"), Target)
If say > 1 Then
MsgBox "Aynı dolap seri nosunu ikinci kez giremezsin"
Target.Select
Target = ""
End If
End Sub

 

[ANTALYA 01]

G

Merhabalar

1.Sorumu Ben şöyle çözdüm VERİ DOĞRULAMA =EĞERSAY($D$2:$D$10;D2)=1
2.Sorumdaki D sütununda Aynı benzer Numaralar varsa Kırmızı renk yapan MAKRO yu rica etsem.

 

[Korhan Ayhan]

Selamlar,

2. sorunuzuda KOŞULLU BİÇİMLENDİRME ile halledebilirsiniz.

D2 hücresinde iken BİÇİM-KOŞULLU BİÇİMLENDİRME menüsünü açın ve formül kısmına aşağıdaki formülü uygulayın. Biçim menüsünden yazı fontunu kalın ve kırmızı olarak ayarlayıp tamam derseniz istediğiniz sonuca ulaşabilirsiniz.

=EĞER(EĞERSAY(D:D;D2)>1;1;0)

 

[ANTALYA 01]

F

Teşekkür ederim.