- 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...
Teşekkürler...
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Vista Windows sürümüdür yani işletim sistemi. Office ise programdır.
Her ikiside farklı şeylerdir.
http://www.microsoft.com/turkiye/