Aynı satırda mükerreri önlemek

[yyhy]

Aynı satırda mükerreri önleyebilir miyiz? Aynı okula herkes bir defa gitsin. İkinci bir defa daha yazıldığı zaman uyarı versin istiyorum. Yardımcı olan arkadaşlara teşekkürler.

 

[tugkan]

Merhaba,
H2 den Q2 ye kadar seçip koşullu biçimlendirme => hücre kurallarını vurgula => yinelenen değerleri seçerseniz aynı olanları kırmızı renkle uyaracaktır. İlk satıra kuralı uyguladıktan sonra H2-Q2 yi seçip en alta kadar kopyalarsanız kuralı bütün satırlara uygulamış olursunuz.
Fakat bu dosyayı çok yavaşlatabilir. Eğer makro ile bir çözüm bulan arkadaşlar olursa daha hızlı olur kanaatindeyim.

 

[yyhy]

Teşekkürler aynı satırda yinelenen değerleri de sütunun birisinde formül ile saydırırsak acaba formül ne olur?

 

[yyhy]

Koşullu biçimlendirme sayfayı baya bir kasma yapıyor acaba macro ile çözülebilir mi? Yardımcı olabilecek arkadaş var mı acaba?

 

[yyhy]

Şu kod üzerinde değişiklik yapılabilir mi acaba? Aşağıya eklediğim kod sayfanın tamamını görüyor her satır için olarak düzeltilebilir mi? Yardımcı olan arkadaşlara teşekkürler.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aralik As Range
Set aralik = Range("H2 :C4000")
say = WorksheetFunction.CountIf(aralik, Target.Value)
If say > 1 Then
MsgBox "Bu Okul Daha Önce Seçildi" & Chr(10) & _
"Lütfen Başka Bir Okul Seçiniz.", vbInformation, "YILMAZ YILDIZ"
Target.Value = ""
Exit Sub
End If End Sub

 

[Ömer BARAN]

Merhaba.

Alt taraftan, "Tüm Personel" isimli sayfanın adına fariyli sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılcak olan VBA ekranında sağdaki BOŞ alana aşağıdaki kod blokunu yapıştırın.
Kod blokunu yapıştırdığınız yerde, önceden Worksheet_Change kod bloku mevcutsa, onu silin.

Bu kod'un işlem yapacağı alan 2-3500 satır ve H:Q sütun aralığıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Or Target.Row > 3500 Or _
        Target.Column < 8 Or Target.Column > 17 Then Exit Sub
alan = "H" & Target.Row & ":Q" & Target.Row
If WorksheetFunction.CountIf(Range(alan), Target) > 1 Then
    MsgBox "Aynı okul, 1 kez seçilebilir." & vbLf & vbLf & _
            "Seçimi tekrar yapınız !", vbCritical, "..::.. H A T A ..::.."
    Target = "": Exit Sub
End If
End Sub

 

[yyhy]

Sayın Ömer BARAN kardeşim ellerin dert görmesin. İhtiyaca cevap verdi. Çok güzel olmuş. -