makro ile yazı rengi değiştirme

**iaslan517** · 20-03-2017, 19:17

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** · 20-03-2017, 19:57

Merhaba,

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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** · 20-03-2017, 20:02

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** · 20-03-2017, 20:34

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** · 20-03-2017, 20:42

Merhaba,

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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** · 21-03-2017, 15:25

Alıntı:

Ömer tarafından gönderildi

Merhaba,

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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.

20-03-2017, 19:57	#2
Necdet Moderatör Giriş: 04/06/2005 Şehir: Ankara Mesaj: 12,187 Excel Vers. ve Dili: Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe	Merhaba, Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) Sub Makro1() Range("B1:C4,B7:C8,B9:C9,B11:C12,B13:C15,B24:C26,B27:C29,H29:I31").Font.ColorIndex = 2 End Sub __________________ Sayfada Boş Satırları Silmek: Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam, Sağ Klik, Sil, Tüm Satır, Tamam Türkçe'nin Bir Eksiği Yok, Ya Sizin?

20-03-2017, 20:34	#4
Necdet Moderatör Giriş: 04/06/2005 Şehir: Ankara Mesaj: 12,187 Excel Vers. ve Dili: Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe	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 __________________ Sayfada Boş Satırları Silmek: Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam, Sağ Klik, Sil, Tüm Satır, Tamam Türkçe'nin Bir Eksiği Yok, Ya Sizin?

20-03-2017, 20:42	#5
Ömer Moderatör Giriş: 18/08/2007 Şehir: Kuşadası Mesaj: 19,101 Excel Vers. ve Dili: Excel 2010 Türkçe	Merhaba, Ben biraz daha farklı anladım. Bu şekilde deneyin. Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) 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 . __________________ . FORUM KURALLARI

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

20-03-2017, 20:02	#3
iaslan517 Altın Üye Giriş: 24/02/2017 Şehir: Adana Mesaj: 87 Excel Vers. ve Dili: 2010-Türkçe	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