• DİKKAT

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

Koşullu Biçimlendirmede 3 Seçenek Var! 5 seçenek lazım, peki nasıl olur?

Katılım
19 Haziran 2007
Mesajlar
87
Excel Vers. ve Dili
Excel 2010 TR
5 koşullu renklendirme istiyorum ancak olmuyor. (bkz. ekle butonu pasif)

kosullu1yi0.jpg


Teşekkürler...
 
Koşullu Biçimlendirme ile 3 şart yazabilirsiniz. Daha fazla koşul için makro kullanmanız gerekir.
 
Bende bir hatırlatmada bulunayım.
Office 2007 de sanırsam koşullu biçimlendirme sayısı 64 e çıkartılmıştı.
 
ben vista kullanıyorum ofiste, yani 2007 oluyor ofis paketi sanırım. o zaman benim de kullanabilmem gerekirdi. ama başka bir yola başvurmaksızın ben herhangi bir şekilde 3ten başka şart giremedim. ilginiz için teşekkürler.
 
Ofis 2007 de Üçten fazla koşul girilebilir. Buyrun ispatı, Altı koşullu olarak dosya hazırlanmıştır. Tabi bunu sadece 2007 kullananlar bakıp inceleyebilir.

Bende hem dosya olarak, hem resim olarak ekliyorum. Böylece diğer versiyonlarda görebilir.
 
yanıt

Makro ile kullanmak isterseniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub

Set rng = Application.Intersect(Target, Me.Range("a:z"))
If rng Is Nothing Then Exit Sub
With Target
If Intersect(Target, [A:z]) Is Nothing Then Exit Sub
Satır = "A" & Target.Row & ":z" & Target.Row
Select Case Target
Case "1": Range(Satır).Interior.ColorIndex = 1
Case "2": Range(Satır).Interior.ColorIndex = 2
Case "3": Range(Satır).Interior.ColorIndex = 3
Case "4": Range(Satır).Interior.ColorIndex = 4
Case "5": Range(Satır).Interior.ColorIndex = 5
Case "6": Range(Satır).Interior.ColorIndex = 6
Case "7": Range(Satır).Interior.ColorIndex = 7
Case "8": Range(Satır).Interior.ColorIndex = 8
Case "9": Range(Satır).Interior.ColorIndex = 9
Case "10": Range(Satır).Interior.ColorIndex = 10
Case Else
Range(Satır).Interior.ColorIndex = xlNone
End Select
End With
End Sub
 
Selamlar bu makro nasıl uygulanacak acil yardım lütfen
 
Geri
Üst