hücre rengine göre satırı renklendirme

[nes432]

30.000 satırlık bi listem var. I sütunundaki hücre rengi yeşilse o yeşil rengin hizasındaki (A ile N arasındaki) tüm dolgu rengini yeşil yapmak istiyorum. formülle bunu yapmak mümkün müdür ya da makroyla.

ı sütunundaki soz konusu renkli hücrelerin hepsi "kelime" ibaresini içeriyor. belki bu da formülü oluştururken yardımcı olur

 

[nes432]

başka hücre rengine yada değerine göre hizasındaki hücreleri boyama

30.000 satırlık bi listem var. I sütunundaki hücre rengi yeşilse o yeşil rengin hizasındaki (A ile N arasındaki) tüm dolgu rengini yeşil yapmak istiyorum. formülle bunu yapmak mümkün müdür ya da makroyla.

ı sütunundaki soz konusu renkli hücrelerin hepsi "kelime" ibaresini içeriyor. belki bu da formülü oluştururken yardımcı olur

 

[zafer]

Merhaba

I sütunundaki satırlardaki hücreler hangi renk ise
A ile N arası aynı rengi alır.

Sub renklendir()

son = Cells(Rows.Count, 9).End(xlUp).Row

For i = 1 To son

renk = Cells(i, 9).Interior.ColorIndex

Range(Cells(i, 1), Cells(i, 14)).Interior.ColorIndex = renk

Next

End Sub

 

[nes432]

tşk ederim

çalıştıramadım makroyu hücreler hala aynı renkte

 

[YUSUF44]

Eğer I sütunundaki renk koşullu biçimlendirme ile elde edildiyse makro o rengi görmez.

 

[nes432]

evet koşullu biçimlendirmeyle elde ettim. bunu nasıl aşabiliriz peki

 

[YUSUF44]

"kelime"ye göre kod yazılabilir. Epey uğraştıktan sonra O sütununu geçici olarak kullanıp aşağıdaki kodu elde ettim. Eğer sizde O sütunu boş değilse kodda boş sütununuza göre güncelleme yapmak gerekir:

Sub renk()
For i = 1 To Cells(Rows.Count, "I").End(3).Row
    Cells(i, "O").FormulaR1C1 = "=SEARCH(""kelime"",RC[-6])"
    If IsNumeric(Cells(i, "O")) = True Then
            Range("A" & i & ":N" & i).Interior.Color = vbGreen
    End If
    Cells(i, "O") = ""
Next
End Sub

 

[Necdet]

Merhaba,

I sütunundaki hücrelerde içinde "kelime" geçen satırları renklenndirmek Koşullu Biçimlendirme ile olası.

A1:N (istediğiniz satıra kadar) seçin
Koşullu Biçimlendirme
Formül

=MBUL("kelime";$I1)>0

ve rengi belirleyin.

 

[YUSUF44]

Bu arada koşullu biçimlendirme uygulama yerini A:N sütunları olarak belirlemeyi denediniz mi? Yani şart tutuyorsa sadece I hücresini değil A:N hücrelerini boyaması şeklinde kural oluşturulabilir.

 

[nes432]

Bu arada koşullu biçimlendirme uygulama yerini A:N sütunları olarak belirlemeyi denediniz mi? Yani şart tutuyorsa sadece I hücresini değil A:N hücrelerini boyaması şeklinde kural oluşturulabilir.

a:n yi enedim olmadı o Yusuf bey birazdan makro kodunuzu denicem olur inş o

 

[YUSUF44]

Olur aslında, sadece orda kullanılan formülü yeni duruma göre güncellemeniz gerekiyor. Örnek dosya paylaşırsanız daha kolay çözüm buluruz.

 

[nes432]

makro çözdü tşk ederim ama makronun tek sıkıntısı var 3 satırdaki "kelime" ibaresi olmadığı halde boyama yapıyor

yeşil renk içinde vb green yazmışsınız ara renkleri de tanımlayabiliyor muyuz

 

[nes432]

makronun tek sıkıntısı var 3 satırdaki "kelime" ibaresi olmadığı halde boyama yapıyor

 

[YUSUF44]

Örnek dosya görmeden yorum yapamam maalesef.

 

[Necdet]

Merhaba,

Aynı konu için değişik başlıklar açmayınız.

http://www.excel.web.tr/f48/ba-ka-h...rine-gore-hizasyndaki-t159172.html#post866522

 

[nes432]

Merhaba,

I sütunundaki hücrelerde içinde "kelime" geçen satırları renklenndirmek Koşullu Biçimlendirme ile olası.

A1:N (istediğiniz satıra kadar) seçin
Koşullu Biçimlendirme
Formül

=MBUL("kelime";$I1)>0

ve rengi belirleyin.

tşk ederim bu kestirmeden oldu. yanlış yere açtığımı düşünerek yeni başlık açmıştım sonradan gordumki aynı satırda gösteriliyor

 

[27style]

koşullu biçimlendirme menüsü altından yeni özel kural ekleyerek te yapabilirsiniz.

 

[nes432]

peki bu boyalı satırlar f sütunundaki verilere göre küçükten büyüğe sıralanabilir mi makroyla