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)



Teşekkürler...
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Koşullu Biçimlendirme ile 3 şart yazabilirsiniz. Daha fazla koşul için makro kullanmanız gerekir.
 
Katılım
10 Ekim 2006
Mesajlar
53
Excel Vers. ve Dili
office 2003 türkçe
Bende bir hatırlatmada bulunayım.
Office 2007 de sanırsam koşullu biçimlendirme sayısı 64 e çıkartılmıştı.
 
Katılım
22 Haziran 2007
Mesajlar
29
Excel Vers. ve Dili
excel 2007
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.
 
Katılım
19 Mart 2006
Mesajlar
205
Excel Vers. ve Dili
Excel 2007 Türkçe
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.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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
 
Katılım
18 Ekim 2006
Mesajlar
4
Excel Vers. ve Dili
excel 2003
Selamlar bu makro nasıl uygulanacak acil yardım lütfen
 
Üst