Renkli hücrelerin başlıklarını yaz

[excellcan]

Forumda emeği geçen tüm arkadaşlara merhaba. Arkadaşlar A1:C1 aralığında
sırasıyla A B C diye sütun başlıklarım var. Sorum şu : A2:C2 aralığında hangi hücre yeşil boyalı ise o sütunun sütun başlığını D2 ye yazsın. Yani B2 yeşil boyalı ise D2 ye sadece B yazsın. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Küçük bir örnek dosya ekleyerek detaylı açıklama yapınız..

.

 

[excellcan]

Merhaba,

Küçük bir örnek dosya ekleyerek detaylı açıklama yapınız..

.

Aynı mesaja ekledim hocam. İlginiz için teşekkürler.

 

[Ömer]

Renklendirmeyi koşu ile mi yapıyorsunuz manuel mi?

Eğer koşullu biçimlendirme ile yapıyorsanız kullandığınız koşulu yazarmısınız. Manuel yapıyorsanız makro yazmak gerekir. Başlıkta belirttiğiniz gibi koşullu biçimlendirme ile bu işlemi yapamazsınız. Bilgi verirseniz ona göre düzenlemeye çalışırım..

.

 

[excellcan]

Renklendirmeyi koşu ile mi yapıyorsunuz manuel mi?

Eğer koşullu biçimlendirme ile yapıyorsanız kullandığınız koşulu yazarmısınız. Manuel yapıyorsanız makro yazmak gerekir. Başlıkta belirttiğiniz gibi koşullu biçimlendirme ile bu işlemi yapamazsınız. Bilgi verirseniz ona göre düzenlemeye çalışırım..

.

Hocam ben örneği manuel olarak yaptım. İşin doğrusu bana lazım da bu. Ama size zahmet olmayacaksa koşullu biçimlendirme ile olanını da öğrenmek isterim. Ben basit bir koşullu biçimlendirme düzenlemesi yaparak dosyayı yeniden ekledim. Koşullu biçimlendirmeyle ilgili sütün başlıklarını E
sütununa yazabiliriz. İlginiz için bir kez daha teşekkürler.

 

[Ömer]

Ben koşullu biçimlendirme ile yapılır demedim. Eğer renklendirmeyi koşullu biçimlendirme ile yapıyorsanız şartlarını yazın demek istedim. Koşullu biçimlendirme sadece hücreye biçim verir herhangi bir değer yazmaz.

Bu koşula göre;

F2 hücresine yazarak alt satırlara kopyalayın..

=İNDİS($A$1:$C$1;;KAÇINCI(1;A2:C2;0))

.

 

[excellcan]

Ben koşullu biçimlendirme ile yapılır demedim. Eğer renklendirmeyi koşullu biçimlendirme ile yapıyorsanız şartlarını yazın demek istedim. Koşullu biçimlendirme sadece hücreye biçim verir herhangi bir değer yazmaz.

Bu koşula göre;

F2 hücresine yazarak alt satırlara kopyalayın..

=İNDİS($A$1:$C$1;;KAÇINCI(1;A2:C2;0))

.

Bu bilgi için çok teşekkür ederim hocam. Ama sanırım ben konu başlığını yanlış yazdığım için soru da pek anlaşılır olmadı herhalde. Bunun için özür dilerim. Benim istediğim hangi satır renkli ise ait olduğu sütünun sütun başlığının F sütununda görünmesi. Bu renklendirmenin de manuel olarak yapıldığını varsayalım.

 

[Ömer]

İşlerim nedeniyle geri dönüşü geç yapabildim..

Butona atayarak çalıştırın..

Sub RenkBaşlık()
sat = 2
For i = 2 To 10
    For j = 1 To 3
        If Cells(i, j).Interior.ColorIndex <> xlNone Then
            Cells(sat, "F") = Cells(1, j)
            sat = sat + 1
        End If
    Next j
Next i
End Sub

.

 

[excellcan]

Ömer hocam emeğinize sağlık. İstediğim gibi olmuş. Hocam benim için çok şart
değil ama deneme yaparken şöyle bir şey farkettim. Renkler satır atladığında
yani arada boş satırlar olup da daha aşağılarda renkli satırlar varsa tam onların karşısına yazmıyor. Hocam bu kısmı da düzeltebilirsek baya kullanışlı bir makro olacak gibime geliyor. Bir kez daha emeğinize sağlık çok teşekkürler.

 

[Ömer]

Aynı satırda birden fazla renk olayınıda ekledim..

Sub RenkBaşlık()
On Error Resume Next
Range("F2:F65536").ClearContents
For i = 2 To 10
    For j = 1 To 3
        If Cells(i, j).Interior.ColorIndex <> xlNone Then
            Cells(i, "F") = Cells(i, "F") & "," & Cells(1, j)
        End If
    Next j
Cells(i, "F") = Right(Cells(i, "F"), Len(Cells(i, "F")) - 1)
Next i
End Sub

.

 

[excellcan]

Hocam harika olmuş. Teşekkürler.