YAZI RENGİNE GÖRE HÜCRE RENKLENDİRME

[sintav25]

Merhaba

A1 hücresinde kırmızı ile sayı yazdığım zaman formüllü olan B1 hücresinin arka planını kırmızı yapıp sayıyı beyaz yazdırma ihtimalim var mı ?

 

[Necdet]

Merhaba,

Sub Deneme()

    With Range("B1")
        .Interior.ColorIndex = Range("A1").Font.ColorIndex
        .Font.ColorIndex = 2
        .Font.Bold = True
    End With

End Sub

 

[hamitcan]

Önce renk sonra sayı yazmanız halinde kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
     [b1].Interior.ColorIndex = xlNone
     [b1].Font.Color = xlAutomatic
     If Target.Font.Color = vbRed Then
        [b1].Interior.Color = 255
        [b1].Font.Color = vbWhite
     End If
End Sub

 

[ÖmerFaruk]

A1 hücresinde kırmızı ile sayı yazdığım zaman formüllü olan B1 hücresinin arka planını kırmızı yapıp sayıyı beyaz yazdırma ihtimalim var mı ?

Ben takıldım bu soruya.
İhtimalen cevaplar doğrudur. Ama yine de sormak istiyorum.

A1 hücresine ne yazıyorsunuz?

A1: Kırmızı ile sayı
A1: sayı
A1: Kırmızı sayı
A1: 65 (65 sadece örnektir)
A1: Kırmızı 65

 

[sintav25]

Ben takıldım bu soruya.
İhtimalen cevaplar doğrudur. Ama yine de sormak istiyorum.

A1 hücresine ne yazıyorsunuz?

A1: Kırmızı ile sayı
A1: sayı
A1: Kırmızı sayı
A1: 65 (65 sadece örnektir)
A1: Kırmızı 65

65

 

[uzmanamele]

Ben takıldım bu soruya.
İhtimalen cevaplar doğrudur. Ama yine de sormak istiyorum.

A1 hücresine ne yazıyorsunuz?

A1: Kırmızı ile sayı
A1: sayı
A1: Kırmızı sayı
A1: 65 (65 sadece örnektir)
A1: Kırmızı 65

Bence de soru biraz garip.
A1 hücreye veri girişi yaptıktan sonra manuel font kırmızı yapılıyorsa B1 hücresinin dolgu rengi kırmızı ve fond beyaz manuel yapılır?!
Yarısını manuel yapayım yarısı otomatik olsun? biraz tuhaf.

 

[sintav25]

Önce renk sonra sayı yazmanız halinde kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
     [b1].Interior.ColorIndex = xlNone
     [b1].Font.Color = xlAutomatic
     If Target.Font.Color = vbRed Then
        [b1].Interior.Color = 255
        [b1].Font.Color = vbWhite
     End If
End Sub

Merhaba,

Sub Deneme()

    With Range("B1")
        .Interior.ColorIndex = Range("A1").Font.ColorIndex
        .Font.ColorIndex = 2
        .Font.Bold = True
    End With

End Sub

Öncelikle cevaplarınız için teşekkür ederim.
Fotoğraf ekleyemediğim için tam anlatamadım kusura bakmayın.

8rqlayt.png

1

www.hizliresim.com

Burada ki fotoğrafta anlatayım
AG7, P7 YE BAĞLI OLARAK FORMÜLLÜ
AG7 - P7
AH7 - Q7 İLE BAĞLANTILI.
BÖYLE 100 TANE SATIR VAR TEK HÜCRE OLARAK DEĞİLDE GENEL OLARAK BUNU YAPABİLİR MİYİM ?

 

[sintav25]

Bence de soru biraz garip.
A1 hücreye veri girişi yaptıktan sonra manuel font kırmızı yapılıyorsa B1 hücresinin dolgu rengi kırmızı ve fond beyaz manuel yapılır?!
Yarısını manuel yapayım yarısı otomatik olsun? biraz tuhaf.

Tek bi tane hücre olsa evet dediğiniz gibi manuel yapardım ama binlerce hücre var birbiriyle bağlantılı ve farklı renklerde

 

[uzmanamele]

Tek bi tane hücre olsa evet dediğiniz gibi manuel yapardım ama binlerce hücre var birbiriyle bağlantılı ve farklı renklerde

O zaman dosyanızda nasıl bir renklendirme istiyorsanız ona göre kod yazılsın.
Bu şekilde eksik olmuyor mu?

Mesela şöyle bir yapı kurgulayabilirsiniz.
P sütununda; P7 hücreye, k-4 yazarsam font kırmızı olsun, AG7 hücre fond beyaz, dolgu kırmızı olsun,
P7 hücreye, s-4 yazarsam fond sarı, AG7 hücre fond beyaz, dolgu sarı olsun
Binlerce hücre için veri girişinde renklendirme yapılmış olur.
not: veri girişi yapıldıktan sonra k-4 verisi -4 olarak kalacak, renk kodu silinecek ki sayısal işlem yapılabilsin.