Font Rengine Göre Hücredeki Değeri Value Yap

[baydeniro]

Merhaba arkadaşlar. Bir sayfadaki değerlerden bazılarının fontları başka renktir. Makro ile bu renkte olanları (örneğin kırmızı) formülle oluşan değerlerini sabit değere çevirmek mümkün mü ?

 

[baydeniro]

Örnek dosya ektedir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Dim HUC As Range
For Each HUC In Range("B10:F21")
If HUC.Font.ColorIndex = 3 Then
HUC.Copy
If HUC.Font.ColorIndex = 3 Then
HUC.PasteSpecial xlPasteValues
End If
End If
Next
Application.CutCopyMode = False
End Sub

 

[baydeniro]

Teşekkürler

Sayın N.Ziya Hiçdurmaz. Yardımlarınız için çok çok teşekkürler. Hızır gibi yetiştiniz vallahi. Allah razı olsun, başarılarınızın devamını dilerim. İyi çalışmalar.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bişey değil.