Formül içeren hücreler boyansın

[tamer42]

Merhabalar;

Formül içeren hücreler kırmızıya boyansın istiyorum,

Bu yapılabilirmi?

İyi Çalışmalar dilerim...

 

[Ali]

A sütununda formül olan hücreler kırmızı olur

Sub formulbul()
For Each k In Range("A1:A65536")
If k.HasFormula Then
k.Font.ColorIndex = 3
Else

k.Font.ColorIndex = 1
End If
Next
End Sub

 

[Necdet]

Sayın tamer42,

Benim gibi makro bilmeyen biri iseniz ben yine excelden yararlanırdım.
F5 (Ctrl+G)
Ã?zel
Formüller
deyip seçerim
istediğim renge de boyarım sonra.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

[vb:1:881dcae7c7]Sub formulbul()
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 3
End Sub[/vb:1:881dcae7c7]

Not:Bu kod Sn Necdet bey'in önerdiği çözümün vba daki karşılığıdır.

 

[Ali]

Sonradan farkettim fontları kırmızı yapmışım neyse alternatif olarak işe yarar sanırım. Necdet Bey şartlanmış gibi hep makrolu çözümler üretmeye (Levent Bey aşıladı bize ) çalışıyorum,sizinki pratik tabiki. :hey:

 

[Levent Menteşoğlu]

Sn fructose

Benim makro ile kafayı yemek gibi kötü alışkanlıklarım vardır, aman dikkat

Þaka bir yana gerçekten bazen hazır çözümleri atlayabiliyorum. Halbuki her zaman öncelikle hazır olan mevcut özelliklerin ve fonksiyonların kullanılmasını önerir ve tercih ederim.