Verileri aldığı Hücrenin fontunu alsın

[memodino]

Arkadaşlar Ek deki dosyada grafiğin verileri aldığı hücrenin fonunu da almasını istiyorum başaramadım
yardımcı olabilir misiniz Teşekkürler

 

[hamitcan]

Sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$H$1" Then Exit Sub
    If Target.Text = "PERFORMANS " Then
        [c10:c13].NumberFormat = "0%"
    Else
        [c10:c13].NumberFormat = "0.000"
    End If
End Sub

 

[memodino]

teşekkürler ellerinize sağlık..