Mükerrer Kayıt

[arifbirgen]

Değerli arkadaşlar
Çizelgemdeki sütun ve hücrelerde veri doğrulamadan açılır kutu bulunmakta.Açılır kutudada isim listesi var.Sütun bazında hücrelere açılır kutudan isim başka hücredede girilince uyarı versin.Yardımlarınızı bekliyorum.
Şimdiden teşekkürler.

 

[xxrt]

http://www.excel.web.tr/showthread.php?t=17185&highlight=m%FCkerrer

Bu linkte birçok mükerrer kayda ait örnek geliştirilmiş.İşinize yarayan olabilir..

 

[arifbirgen]

Mükerrer kayıt

Sayın xxrt
Linktekileri inceledim işime yaramamakta.Açılır kutuyu kullanmam gerekmektedir.Bu konuda yardımcı olursanız memnun olurum.

 

[Recep İpek]

Sn.arifbirgen,

Küçük bir örnek eklerseniz sorunuz daha net anlaşılır.

 

[arifbirgen]

mükerrer kayıt

sn.ripek
Örnek ektedir.İlginize teşekkür ederim

 

[herguder]

aynı satırda iki aynı kayıt olursa son hüçre kırmızı oluyor.

 

[arifbirgen]

mükerrer kayıt

sn. herguder
Benim için satırdaki mükerrer kayıt önemli değil.Sütun( gün bazında) da mükerrer kayıt olmaması gerekli.Bu konuda açılır kutu kullanarak çözüm bulunursa memnun olurum.

 

[Recep İpek]

Anladığım kadarıyla haftalık bazda mükerrer kişilerin olmamasını istiyorsunuz.

Bu Veri Doğrulama ile yapılması pek mümkün görünmüyor.

Aşağıdaki kodları sayfanın VBE bölümüne kopyalarsanız mükerrer girişlerde size uyarıda bulunacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G9:K20]) Is Nothing Then Exit Sub
s = Application.WorksheetFunction.CountIf([G9:K20], Target)
If s > 1 Then
MsgBox "[color=red]Bu Kişinin Nöbeti Var[/color]", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Target.Select
Target.Value = ""
Exit Sub
End If
End Sub

 

[arifbirgen]

mükerrer kayıt

sn.ripek
Haftalık bazında değil gün bazında mükerrer kayıt uyarısı almam gerekiyor.Bazı öğretmenler haftanın iki ayrı gününde nöbet tutuyorlar.Bir öğretmeni gün içinde iki kez olmasını istemiyorum.İlginizden dolayı size çok teşekkür ederim

 

[Recep İpek]

s = Application.WorksheetFunction.CountIf([G9:K20], Target)

satırını

s = Application.WorksheetFunction.CountIf(Range(Cells(9, Target.Column), Cells(20, Target.Column)), Target)

olarak değiştirin.

 

[arifbirgen]

mükerrer kayıt

sn.ripek
Tam istediğim cevabı aldım.Süpersin.Size çok teşekkür ederim