Arkadaşlar lafı fazla uzatmadan sadede geleyim. Yardım edenlere şimdiden teşekkürler.
Benim istediğim formülün içeriği şöyle olacak. Mesela bir hücreye 50-100 arasında herhangi bir sayı girildiğinde "siyah" yazacak, fakat bu aralığın dışında bir sayı girildiğinde, "kırmızı" renkte yazacak. 50-100 arası temsili bir değer. Bunu değiştirebilirim tabi sonradan. Aslında basit gibi ama yapamadım. Eğer yapabilen varsa yardımcı olursa sevinirim. Teşekkürler.
Hücreyi seç ve giriş sekmesinde koşullu biçimlendirmeyi seç
Hücre kuralını vurgula-arasında'yı seç
ilk kutuya 50 ikinci kutuya 100 yaz
Biçim açılan kutuya tıkla ve en altta özel biçim var oradan istediğin şekilde düzenle
sayın youngeagle_3,
Aşağıdaki kodlamayı boş bir
Excel uygulaması açıp Visual Basic (Alt + F11) kod sayfasına geçip buradan Sayfa1’i seçip yapıştır işaretlemesi ile kodlamayı dahil ediniz.ardından da,excel uygulamasını Dosya - Farklı Kaydet –
Excel Makro Etkin Çalışma Kitabı şeklinde kaydediniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=50", Formula2:="=100"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = vbBlack
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:="=50", Formula2:="=100"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = vbRed
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Bu kod ile,sayfa üzerindeki istediğiniz herhangi bir hücresine (aktif hücreye) gireceğiniz değere göre;talebiniz doğrultusunda hücre font renklendirmesi yapacaktır.bilgilerinize.
İyi çalışmalar,
saygılar.
İkinize de çok teşekkürler. Ben gereken cevaplarımı aldım. Sağ olun var olun.