Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then
sat = Target.Row
If Cells(sat, 1).Value = "" Then Cells(sat, "b").Interior.ColorIndex = xlNone
If Cells(sat, 1).Value = "a" Then Cells(sat, "b").Interior.ColorIndex = 3 'kırmızı
If Cells(sat, 1).Value = "b" Then Cells(sat, "b").Interior.ColorIndex = 4 'açık yeşil
If Cells(sat, 1).Value = "c" Then Cells(sat, "b").Interior.ColorIndex = 5 'mavi
If Cells(sat, 1).Value = "d" Then Cells(sat, "b").Interior.ColorIndex = 6 'sarı
If Cells(sat, 1).Value = "e" Then Cells(sat, "b").Interior.ColorIndex = 7 'pembe
If Cells(sat, 1).Value = "f" Then Cells(sat, "b").Interior.ColorIndex = 8 'açık mavi
If Cells(sat, 1).Value = "g" Then Cells(sat, "b").Interior.ColorIndex = 9 'kahverengi
If Cells(sat, 1).Value = "h" Then Cells(sat, "b").Interior.ColorIndex = 10 'koyu yeşil
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.