renkli uyarı

[eseseski]

örnek vermiş olduğum tabloda aynı sıradaki verilerden mükerrer girilenlerin renginin değişerek uyarması mümkünmüdür. bilgisi olanlar yardım edebilirmi

 

[kan-nas]

Örnek yok )

 

[SOYOLA]

Tabloyu eklememişsiniz

 

[Korhan Ayhan]

Merhaba,

Koşullu biçimlendirme ile istediğiniz işlemi yapabilirsiniz.

Ekteki örnek dosyayı inceleyiniz.

 

[eseseski]

yardımınız için teşekürler,dosyayı ekleyebildim nihayet bunada bakarak bir çözümü varsa yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Merhaba,

Aynı hücreye iki isim girmek zorundamısınız. Eğer mecburiyet varsa makro kullanmak gerekecektir.

 

[eseseski]

evet bazen üç isim bile girmem gerekiyor ve bu liste 60 kişinin üstünde

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız. B-F sütunları arasına veri girip deneyin.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Integer, Data As Variant, BUL As Range, ADRES As String, Say As Integer
 
    If Intersect(Target, Range("B2:F" & Rows.Count)) Is Nothing Then Exit Sub
 
    Range("B:F").Interior.ColorIndex = 0
    Data = Split(Trim(Target), " ")
 
    For X = 0 To UBound(Data)
        If Data(X) <> "" Then
            Set BUL = Range("B:F").Find(Data(X), , , xlPart)
            If Not BUL Is Nothing Then
                ADRES = BUL.Address
                Do
                    If BUL.Address <> Target.Address Then
                        BUL.Interior.ColorIndex = 6
                        Say = Say + 1
                    End If
                    Set BUL = Range("B:F").FindNext(BUL)
                Loop While Not BUL Is Nothing And BUL.Address <> ADRES
            End If
        End If
    Next
 
    If Say > 0 Then
        MsgBox "Mükerrer kayıt !", vbExclamation
    End If
End Sub

 

[eseseski]

vba viev de code kısmına worksheed change alanına kodu yapıştırıyorum fakat değişkeni tanımlı değil hatası veriyor

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodda "X" değişkenini tanımlamayı unutmuşum. Yeniden düzenledim. Tekrar denermisiniz.

 

[eseseski]

ilginize teşekür ederim ama ben bu işi beceremiyeceğim galiba exceliln başlangıcının başlangıcı durumundayım istediğim şey boyumu baya aşacak gibi sabahdan beri bununla uğraşıyorum yardımlarınız olduğu halde beceremedim tekrar sağ olun

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.