Hücredeki yazı rengine göre başka hücre siyah yada beyaz olması

[ASLAN7410]

Merhaba, hayırlı sabahlar.

Ekte gönderdiğim, excel dosyamın Sayfa1 B5 hücresinde isim yazıyor, bu sayfada butona bastığımda beyaz yada siyah oluyor.
Yapmak istediğim, Sayfa1'deki B5 hücresindeki yazı beyaz ise, Sayfa2'ye geçtiğimde E8 hücresindeki yazıda beyaz olsun istiyorum.
Yada Sayfa1'deki B5 hücresindeki yazı siyah ise, Sayfa2'ye geçtiğimde E8 hücresindeki yazıda siyah olsun istiyorum.

Bir türlü kodu oluşturamadım, yardımcı olur musunuz?

 

[ASLAN7410]

Koşullu biçimlendirme ile de yapmaya çalıştım olmadı.
Yardımcı olur musunuz?

 

[YUSUF44]

Makrolarınızı aşağıdakiyle değiştirseniz olur mu?

Sub BeyazRenk()
Sheets("Sayfa1").Range("B5:E5").Font.ThemeColor = xlThemeColorDark1
Sheets("Sayfa2").[E8].Font.ThemeColor = xlThemeColorDark1
End Sub
    
Sub SiyahRenk()
Sheets("Sayfa1").Range("B5:E5").Font.ThemeColor = xlThemeColorLight1
Sheets("Sayfa2").[E8].Font.ThemeColor = xlThemeColorLight1
End Sub

 

[ASLAN7410]

Sayın Yusuf Bey, bir türlü kodu kurgulayamamıştım, Allah razı olsun, ellerinize sağlık çok teşekkür ederim.
Hayırlı günler diliyorum.

 

[ASLAN7410]

Mesaj silindi.