makro ile yazı rengi değiştirme

[iaslan517]

iyi akşamlar ekte yer alan dosyadaki yeşil birleşik hücrelerdeki yazıların rengini makro ile beyaz yapabilmemiz mümkün mü

 

[Necdet]

Merhaba,

Sub Makro1()

    Range("B1:C4,B7:C8,B9:C9,B11:C12,B13:C15,B24:C26,B27:C29,H29:I31").Font.ColorIndex = 2
    
End Sub

 

[iaslan517]

hocam ilgilendiğiniz için teşekkür ederim. fakat hücreler belli olmuyor ve o örnek olarak yaptığım dosya. makro ile sadece sayfadaki yeşil birleşik hücrelerin içindeki yazıları bulup siyahtan beyaza çevirmek için çözüm olabilir mi

 

[Necdet]

2 diye verdiğim rakamı 1 den itibaren değişik rakamlar vererek deneyin. 56 ya kadar yolu var her şeye de hazıra konmayın canımmm

 

[Ömer]

Merhaba,

Ben biraz daha farklı anladım.
Bu şekilde deneyin.

Sub Renk()
    
    Dim c As Range
    
    For Each c In Cells.SpecialCells(xlCellTypeConstants, 23)
        If c.Interior.ColorIndex = 10 Then
            c.Font.ColorIndex = 2
        End If
    Next c
    
End Sub

.

 

[iaslan517]

Merhaba,

Ben biraz daha farklı anladım.
Bu şekilde deneyin.

Sub Renk()
    
    Dim c As Range
    
    For Each c In Cells.SpecialCells(xlCellTypeConstants, 23)
        If c.Interior.ColorIndex = 10 Then
            c.Font.ColorIndex = 2
        End If
    Next c
    
End Sub

.

Ömer bey çok teşekkür ederim. başarılarınızın devamını diliyorum.