Koşullu Biçimlendirme hk.

[firfir]

Merhaba arkadaşlar,

Benim şöyle bir sorum olacaktı;

Bir gelir gider tablosu düşünün, diyelim ki A1 Sütununda Gelir veya Gider yazıyor,
ben birde B1 sütununa Miktar giriyorum, benim yapmak isteyip yapamadığım şu:

ben A1-GELİR-GİDER sütununa gider yazdığımda B1-MİKTAR sütununa girdiğim rakam otomatikman - ve kırmızı renkte olsun.

Yardımlarınız için şimdiden teşekkürler.

 

[çıtır]

B sütunun seçin.Koşullu biçimlendirme, yeni kural,Biçimlendirilecek hücreleri belirlemek için formül kullan,aşağıdaki formülü yapıştır,biçim ,yazı rengi kırmızı.sayı biçimi isteğe uyarlamış , -# ayaralyınız .kolay gelsin.

=$A1="GİDER"

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

B sütunundaki bir değişiklikle kodlar çalışır, rakamı eksiye çevirir ve biçimlendirir.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If UCase(Replace(Target.Offset(0, -1), "i", "İ")) = "GİDER" Then
        Application.EnableEvents = False
        Target.Value = Target.Value * -1
        Target.NumberFormat = "#,##0.00;[Red]-#,##0.00"
        Application.EnableEvents = True
    End If
    
End Sub