Hücredeki formülü renklendirme

[numanmuhendiss]

merhabalar, excel dosyamda bir hücrede formül oluşturduğumda formül içeriğinin olduğu hücrelerin oluşturduğum hücredeki renkleri almasını istiyorum.
melesa C5 içinde =A1+A2 yazdığımı varsayın C5 e verdiğim renk sarıysa formülün içindekilerde sarı rengini alsın.ekte çalışma sayfam var orda daha ayrıntılı görebilirsiniz.

 

[ElitNET]

Kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     a = Split(Replace([c5].FormulaLocal, "=", ""), "+")
    Range(a(0) & ":" & a(1)).Interior.ColorIndex = _
    [c5].Interior.ColorIndex
End Sub

 

[numanmuhendiss]

Kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     a = Split(Replace([c5].FormulaLocal, "=", ""), "+")
    Range(a(0) & ":" & a(1)).Interior.ColorIndex = _
    [c5].Interior.ColorIndex
End Sub

öncelikle teşekkür ederim ancak tüm kodu kopyalayıp ALT+F11 tuşunu kullanarak kodu girdim ve hata verdi.yani olmadı.bu arada excelde çok acemiyim bunuda belirtmeliyim

 

[Necdet]

Merhaba,

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

F sütununda değişiklik olduğunda çalışacaktır.

Not : Formüller sadece toplama içermeyebilir.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [F:F]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    Dim rngPrecedents As Range
    Dim rngPrecedent As Range
  
    On Error Resume Next
    Set rngPrecedents = Target.Precedents
    On Error GoTo 0
 
    If rngPrecedents Is Nothing Then
        ' Hucre etkilenmemiş
    Else
        For Each rngPrecedent In rngPrecedents
            Range(rngPrecedent.Address(External:=True)).Interior.ColorIndex = Target.Interior.ColorIndex
        Next rngPrecedent
    End If
    
End Sub

 

[numanmuhendiss]

Merhaba,

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

F sütununda değişiklik olduğunda çalışacaktır.

Not : Formüller sadece toplama içermeyebilir.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [F:F]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    Dim rngPrecedents As Range
    Dim rngPrecedent As Range
  
    On Error Resume Next
    Set rngPrecedents = Target.Precedents
    On Error GoTo 0
 
    If rngPrecedents Is Nothing Then
        ' Hucre etkilenmemiş
    Else
        For Each rngPrecedent In rngPrecedents
            Range(rngPrecedent.Address(External:=True)).Interior.ColorIndex = Target.Interior.ColorIndex
        Next rngPrecedent
    End If
    
End Sub

Teşekkür ederim .tek bi pürüz kaldı ( C62 ) İLE ( F27:F28 YANİ BİRLEŞTİRİLMİŞ HÜCRE ) BİRBİRİNİ TUTMAZSA UYARI VERMESİNİ İSTİYORUM MÜMKÜNSE ?

 

[Necdet]

Merhaba,

G27 hücresine aşağıdaki formülü girin, en basit yol bu bence

=F27=C62

Eşitlik durumunda DOĞRU, Eşit olmazsa YANLIŞ sonucunu üretecektir.

 

[numanmuhendiss]

Merhaba,

G27 hücresine aşağıdaki formülü girin, en basit yol bu bence

=F27=C62

Eşitlik durumunda DOĞRU, Eşit olmazsa YANLIŞ sonucunu üretecektir.

Necdet bey sorun halledilmiş oldu emeğiniz ve ilginiz için teşekkürler