Zemin renginde yazı yazmak

[bmutlu966]

G3:AQ3 arasında zemini renkli alana yazdığım metinlerin çalışma kitabında herhangi bir yerde kullanıldığında bulunduğu zemin renginde yazılmasını istiyorum. Biraz zor ve karışık bir kodlama gerekiyor sanırım. Böyle bir şey mümkünmüdür ? Ekli dosyada küçük bir örnek var.

 

[hamitcan]

ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    r = Sayfa1.Rows(3).Find(Target).Interior.ColorIndex
    Target.Font.ColorIndex = r
End Sub

 

[bmutlu966]

Çok teşekkürler sayın hocam. Peki sadece herhangi bir sayfada kullanmak istersem.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

kısmını nasıl değiştirmem gerekecek.

 

[hamitcan]

Başlığı değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)

 

[kan-nas]

Üstad " Private Sub Worksheet_Change(ByVal Target As Range)" gibi hücre değiştiğinde çalışsın yada sayfa değiştiğinde çalışsın gibi kodları Excelde görebiliyor muyuz. Otomatik attırabilir miyiz yoksa her defasında elle mi yazmak gerekiyor.

 

[hamitcan]

Üstad " Private Sub Worksheet_Change(ByVal Target As Range)" gibi hücre değiştiğinde çalışsın yada sayfa değiştiğinde çalışsın gibi kodları Excelde görebiliyor muyuz. Otomatik attırabilir miyiz yoksa her defasında elle mi yazmak gerekiyor.

Sorunuzu anlamadım, bir örnek ile açıklayın.