Hücredeki Formül Font Rengi Kırmızı Olan HÜcrelere Makro İle Kopyalanbilir mi

[baydeniro]

Merhaba arkadaşlar. Ekteki dosyada TANIM sayfasının H2 hücresinde bulunan formül B10:F20 alanında bulunan Font rengi kırmızı olan hücrelere "formül olarak" makro ile kopyalanabilir mi ?

Yardımcı olanlara şimdiden çok teşekkürler.

 

[baydeniro]

Ekli dosya :

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DEG As Range
For Each DEG In Range("B10:F20")
If DEG.Font.ColorIndex = 3 Then
[H2].Copy DEG
End If
Next
End Sub

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz. Allah sizden razı olsun. Bu kodun modül varyantı nasıl olmalı ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Allah sizdende razı olsun.
Sub KIRMIZIYAPAS()
Dim DEG As Range
For Each DEG In Range("B10:F20")
If DEG.Font.ColorIndex = 3 Then
[H2].Copy DEG
End If
Next
End Sub

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz, size minnettarlığımı nasıl anlatacağımı bilemiyorum. Allah sizlere zeval vermesin, tuttuğunuz altın olsun, başarılarınız daim olsun. Hep böyle yüce gönüllü kalın. Sizlerle gurur duyuyoruz.