Veri Doğrulama ile Hücre Renklendirme

[Elantra]

Merhabalar,

Veri doğrulama içerisinde liste seçimine bağlı olarak seçtiğimiz isme göre diğer hücrenin renklenmesini sağlayabilirmiyiz acaba? Dosya Ektedir. İlgilenen ve vakit ayıran herkese teşekkür ederim.

Ekli dosyayı görüntüle MüşteriTakip.xlsx

 

[YUSUF44]

B3'ü seçin
Koşullu biçimlendirme menüsünden yeni kural ekleyin
Kural olarak formül kullanmayı seçin
Formül alanına

=C3="AhmetSOYKAN"

yazın ve AhmetSOYKAN için olması gereken renk ayarını yapın

Diğer satış danışmanları için aynı işlemleri tekrar yapın, formülde ilgili satış danışmanının ismini kullanın.

 

[NBATMAN]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim oRng As Range 'Satış Danışmanının bulunduğu satırların aralığı için değişken tanımlanıyor.
Set oRng = Range("G2:G10") 'Satış Danışmanının bulunduğu satırların aralık değişkene atanıyor
Dim bulundugusatır As Integer 'Satış Danışmanınismini atamak için değişken tenımlanıyor
Dim adres As String ' Makroyu yalnızca C3 teki veriye göre açılıştırmak için aktif hücre yönteminde aktif hücre adresinin alınacağı değişken tanımlanıyor.
    If WorksheetFunction.CountA(Range("G2:G10")) > 0 Then 'Satış Danışmanının bulunduğu satırların ("G2:G10")kontrol edilerek listede isim varmı yok mu? kontrol ediliyor.
    'varsa işlem yapılıyor.
        adres = ActiveCell.Address 'aktif hücrenin adresi adres değişkenine atanıyor.

            If adres = "$C$3" Then 'aktif hücrenin adresi C3 ise
                 isim = ActiveCell.Value 'aktif hücrenin değeri isim değişkenine atanıyor.
                 
                 
                 
                 bulundugusatır = Application.WorksheetFunction.Match(isim, oRng, 0) 'Aktif hücre (C3) teki satış danışmanı, oRng = Range("G2:G10") aralığında aranıyor.
                 'Varsa eğer kaçıncı sırada olduğu biligisi sayılsal olarak bulundugusatır değişkenine atanıyor
                 
              
                
                          
                               Range("B3").Select 'B3 seçiliyor
                                   With Selection.Interior
                                       .ColorIndex = bulundugusatır 'B3 hücre rengi bulundugusatır değişkenindeki sayıya göre renk alıyor.
                                       .Pattern = xlSolid
                                   End With
            Else
                Exit Sub
            End If
     
    End If
End Sub

Merhaba,

dosyanızın makro kodlama ile yapılmış hali ektedir.

 

[sakman26]

alternatif olarak
eki inceleyin.
koşullu biçimlendirme ile yapıldı.