B Hücresindeki Verinin Font Rengini A1 Hücresine Yazdırmak

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki mantıkla renk belirleme işlemi yapılabilir mi ?

1) Hücresindeki Verinin Font Rengini A1 Hücresine yaz.
2) B1:B100 dizinde kırmızı font renkli hücre adresini A1 hücresine yaz

 

[baydeniro]

Bu konuda fikri olan var mı arkadaşlar !!!

 

[İdris SERDAR]

Örnek dosya birlikte açıklayın.

.

 

[baydeniro]

Örnek dosya ektedir.

 

[İdris SERDAR]

Örnek dosya ektedir.

.

Dosyanız ekte.

.

 

[baydeniro]

Sayın yurttas çok teşekkür ederim. Dolgu renginin makro syntax'ı nedir acaba ?

 

[ZİNDAN]

Dosyada hata var.!

 

[baydeniro]

Hata yok sayın ZİNDAN. Ben denedim mükemmel çalışıyor.

 

[ZİNDAN]

Evt.Haklısınız.Biraz önce neden öyle oldu anlamadım ama, şuan açılıyor ve de çalışıyor.

 

[İdris SERDAR]

Sayın yurttas çok teşekkür ederim. Dolgu renginin makro syntax'ı nedir acaba ?

Aynı dosyada kullanılacaksa;

Font Rengi için:

Function RenkbulF(target As Range) As Integer
RenkbulF = target.Font.ColorIndex
End Function

Dolgu rengi için:

Function RenkbulD(target As Range) As Integer
RenkbulD = target.Interior.ColorIndex
End Function


.

 

[baydeniro]

Çok çok teşekkür ederim sayın yurttaş. Sağlıcakla kalın.