kutucukdaki değer eksi ise renklendirme

[siyar0044]

merhabalar
excel hücresine yazdığım rakamlar örnek tablodaki gibi kutucuk içerisine aktarılıyor rakam değeri eksi olursa koşullu biçimlendirmedi gibi renklendirme mümkünmüdür acaba

deneme2.xlsx dosyasını indir - download

deneme2.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[Greenblacksea53]

Kutu yada grafik biçimlendirme ile biçimlendirilmez benim bildiğim, ancak makro ile olabilir.

 

[siyar0044]

Kutu yada grafik biçimlendirme ile biçimlendirilmez benim bildiğim, ancak makro ile olabilir.

yapmaya çalıştığım tabloda =$B$16 şeklinde yaklaşık 25-30 adet kutucuk var
makro ile nasıl yapabilirm acaba sadece =$B$16 ve =$B$17 de eksi değer olursa dolgu ve yazı şekli değişecek

 

[uzmanamele]

Merhaba

Makro kaydet ile aşaağıdaki kodları elde ettim, Sayfanın kod bölümüne yazarak deneyiniz.
Çok sayıda kutucuğunuz varsa durum değişir, buna göre dosya ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B16")) Is Nothing Then Exit Sub
If Target.Value < 0 Then
    ActiveSheet.Shapes.Range(Array("Rectangle 2")).Select
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
    
    Else
    ActiveSheet.Shapes.Range(Array("Rectangle 2")).Select
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .ForeColor.RGB = RGB(0, 0, 0)
    End With
    End If

Range("B16").Select
End Sub

 

[siyar0044]

2_tarih_filtre__QQ_.xlsm dosyasını indir - download

2_tarih_filtre__QQ_.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

fark kısmında kutucuklara uygulayacaz