Bu kodu ilgili sayfanın kod bölümüne yapıştırıp deneyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then Range("A1").NumberFormat = "[Red][=1]0 ""Var"";General"
If [A1] = 2 Then Range("A1").NumberFormat = "[Blue][=2]0 ""Yok"";General"
If [A1] = 3 Then Range("A1").NumberFormat = "[Green][=3]0 ""Oldu mu?"";General"
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.