Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 26-11-2016, 14:57   #1
Elantra
Altın Üye
 
Giriş: 25/03/2014
Şehir: Muğla
Mesaj: 39
Excel Vers. ve Dili:
Excel 2010
Varsayılan Veri Doğrulama ile Hücre Renklendirme

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.

MüşteriTakip.xlsx
Elantra Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2016, 16:25   #2
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,028
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
Varsayılan

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.
__________________
Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2016, 16:30   #3
NBATMAN
Destek Ekibi
 
NBATMAN kullanıcısının avatarı
 
Giriş: 01/12/2007
Mesaj: 542
Excel Vers. ve Dili:
Office 2003 excel Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
Eklenmiş Dosyalar
Dosya Türü: xls Hücredeki değere göre başka hücreyi renklendirme.xls (48.0 KB, 9 Görüntülenme)
NBATMAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2016, 17:30   #4
sakman26
Altın Üye
 
Giriş: 31/01/2012
Şehir: Bursa
Mesaj: 2,440
Excel Vers. ve Dili:
Excel 2010 , Türkçe
Varsayılan

alternatif olarak
eki inceleyin.
koşullu biçimlendirme ile yapıldı.
Eklenmiş Dosyalar
Dosya Türü: xlsx MüşteriTakip.xlsx (16.7 KB, 13 Görüntülenme)
__________________
Geri dönüşü olmayan mesajlarımı siliyorum.
sakman26 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:42


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden