• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Doğrulama ile Hücre Renklendirme

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.
 
Kod:
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.
 

Ekli dosyalar

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

Ekli dosyalar

Geri
Üst