- 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
ben windows vista ile birlikte lisanslı olarak gelen ofis sürümü demek istemiştimVista Windows sürümüdür yani işletim sistemi. Office ise programdır.
Her ikiside farklı şeylerdir.
http://www.microsoft.com/turkiye/