Renge göre koşullu biçimlendirme.

[emrebenn]

Merhaba
A1 hücresinin dolgu rengini kırmızıya boyadığımda A2 den Y2 kadar olan hücrelerin hepsinin renginin kırmızıya dönemsini istiyorum yardımcı olabilecek arkadaşlar şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın.

Kod A1 hücresindeki boyama işlemini yapmanızın ardından başka herhangi bir hücre seçili hale geldiğinde çalışır.
.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A2:Y2").Interior.Color = xlNone
    If Cells(1, 1).Interior.ColorIndex = 3 Then
        Range("A2:Y2").Interior.ColorIndex = 3
    Else: Range("A2:Y2").Interior.Color = xlNone
    End If
End Sub

 

[Ömer BARAN]

Merhaba. Gönderdiğiniz özel mesaja cevabımdır.
Bir önceki cevabımdaki KOD'un yerine, aşağıdaki KOD'u uygularsanız;
A1 hücresine uygulanan renk neyse başka bir hücre seçildiğinde/aktif olduğunda
A2:Z2 arasına da uygulanır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("[B][COLOR="blue"]A2:Z2[/COLOR][/B]").Interior.Color = Range("[B][COLOR="Red"]A1[/COLOR][/B]").Interior.Color
End Sub

 

[emrebenn]

Yardımlarınız içim teşekkür ederim.
Bu yaptığımız işlemi excel deki bütün satırlara nasıl uygularız acaba.
O konuda da yardımcı olabilirmisiniz ?
Aynı işlemi bütün satılara ayrı ayrı çalışacak şekilde nasıl çoğalta bilirim acaba.

 

[Ömer BARAN]

Sayın emrebenn, isteğinizi tam olarak anlamış değilim.
Hangi hücre renklendirildiğinde, hangi alanın renkleneceğini net olarak ifade ediniz.

Örneğin isteğiniz A sütununda bir hücreye zemin rengi uygulandığında, zemin rengi uygulanan bu hücrenin satırında (mı yoksa bir alt satırda mı) B:Z sütun aralığı mı renklenecek?

Önceki sorunuzda A1 renklenince, 2'nci satırdaki hücrelerin renklenmesini istemiştiniz.
Soruyu netleştirmelisiniz.

 

[emrebenn]

Ömer bey öncelikle verdiğim zahmet için özür dilerim.
Benim yapmak istediğim makroda aşağıdaki kodta tek satır için doğru çalışıyor.
"Range("B2:Z2").Interior.Color = Range("A2").Interior.Color"
Yazmış olduğunuz makroyu diğer a hücrelerinde de kullanmak istiyorum örneğin
a50 hücresine renk verince B50-Y50 aralığında veya A1150 kırmızı olunca B1150-Y1150 hücrelerinin aynı renge girmesini istiyorum.
Bütün sayfada çalışan bir kod için yardımınızı rica ederim.

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/satir-renklendirme/



.

 

[emrebenn]

Ömer bey İdris bey ikinizede yardımlarınız için teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Örnek belgeniz olmadığına ve belgeyi nasıl kullandığınızı da bilemediğimize göre afaki cevaplar verilmek durumunda malesef.
Ayrıca yapılan renklendirmelerin kalıcı olmasını isteyip istemediğinize göre başka seçenekler de olabilir elbette.

Sayın İdris SERDAR ustanınki gibi profesyonelce olmasa da benim iki önerim olacak.
(her iki önerimde de elle yaptığınız renklendirmeler etkilenmez, yani korunur) .
-- Birinci önerim; sadece koşullu biçimlendirme uygulamanız yönünde.

A:Z sütunları seçiliyken;
koşullu biçimlendirme -> formül kullan seçeneğine =$AA1=1 yazıp renk ayarlayın
(bir'den fazla renk kullanacaksanız, diğer renkler için de 2, 3 gibi sayılar verin ve farklı renkleri ayarlayın)
renk uygulanacak satırda AA sütununa 1 yazdığınızda satırın A:Z hücreleri renklenecektir
(bir'den fazla sayı ve renk ayarlamışsanız yazdığınız sayıya göre renklenme olacaktır elbette), sildiğinizde de renk silinecektir.

-- İkinci önerim ise (AA sütunu yardımcı sütun olarak kullanılacak, bu sütunu gizleyebilirsiniz) ;
şayet sadece TEK RENK kullanacaksanız ve hücreye fareyle tıklayarak işlem yapmak isterseniz aşağıdaki gibi işlem yapabilirsiniz.
.... A:Z sütunlarını seçin, koşullu biçimlendirme->formül kullan seçeneğine =$AA1=1 yazın ve renk ayarlayın.
.... Sayfanın kod bölümüne aşağıdaki kod'u uygulayın.
Bu seçenekte; tek tıklama ile renklendirme, çift tıklama ile rengin iptal edilmesi gerçekleşmiş olur.

[B][SIZE="2"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/SIZE][/B]
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If ActiveCell.Column <> 1 Then Exit Sub
    Cells(Target.Row, 27) = ""
[B][SIZE="2"]End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/SIZE][/B]
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If ActiveCell.Column <> 1 Then Exit Sub
    Cells(Target.Row, 27) = 1
[B][SIZE="2"]End Sub[/SIZE][/B]

 

[emrebenn]

Merhaba

Ömer bey size örnek dosyamı linkte sunuyorum. İdris beyin yapmış olduğu
kodu sayfama aktardığımda çalıştığım excel de donmalar meydana geliyor. sayfa çalışılmaz hale geliyor.
Çevrili sayfa isminde çalıma yapıyorum.
http://dosyadepo.com/3kL

 

[Ömer BARAN]

Merhabalar.
Belgeyi kullanan siz olduğunuz için maksatınızı tam olarak anlayamadım.

Renklendirmeden maksatınız sadece, gözle satır takibini kolaylaştırmak mı yoksa başka bir şey mi?
Eğer sadece gözle satır takibini kolaylaştırmak ise ilgili sütunların tümünü seçip, koşullu biçimlendirmede =TEKMİ(SATIR()) formülüne bir renk, ikinci koşul olarak da =ÇİFTMİ(SATIR()) formülüne başka bir renk ayarlamak pratik olur, hatta EXCEL'in mevcut tablo şablonlarını kullanarak, göze hitap eden ve kullanımı kolaylaştıran tablo yapıları elde edilebilir, o kısım tercihe kalmış tabi.

Formüllerle ilgili bir eleşterim şu olabilir, İNDİS, DÜŞEYARA, TOPLA.ÇARPIM gibi tablo boyunca arama/sayma/veri çağırma işlevlerini kullanırken belgeyi çalışmaz hale getiren en önemli unsur, arama/sayma alanının TÜM SÜTUN olarak belirlenmesi bence. Bunun yerine arama alanını (satır bakımından) dolu son satıra göre daraltmanız belgenizi hızlandıracaktır. Ayrıca HATA veren formüllerinizi EĞERHATA işlevi parantezine alarak veya başka yöntemlerle HATASIZ sonuç verecek hale getirmek lazım bence.

Ayrıca FORMÜLLER menüsünde HESAPLAMA seçeneklerinden hesaplama yöntemi olarak ELLE seçilip, formüller sadece F9 düğmesine basarak hesaplatılabilir. Sanırım malumdur; excel sayfasında herhangi bir hücrede herhangi bir değişiklik yapıldığında ya da değişiklik yapılmayıp F2 -> ENTER yapıldığında sayfadaki tüm formüller yeniden hesaplanır. Bu nedenle hesaplama yöntemini ELLE haline getirerek belgeniz hızlandırılabilir.
Formüller makro kodlar vasıtasıyla uygulanabilir....vs.
Neticede duruma göre yöntemler bulunabilir, yapılabilir.
Kararı belge sahibi verecektir tabi.

 

[Merhum İdris SERDAR]

.

Dosyadaki kodu aşağıdaki ile değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[COLOR="Red"]Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual[/COLOR]

For s = 2 To [b65536].End(xlUp).Row
If renk(Range("a" & s)) = renk(Range("a" & s)) Then
Range("a" & s & ":y" & s).Interior.ColorIndex = renk(Range("a" & s))
End If
Next

[COLOR="red"]Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True[/COLOR]

End Sub

Ayrıca, formüllerde referans verilen alanları mümkün olduğu kadar kısa tutun.

Tüm bunlara rağmen, bir mucize beklemeyin. Çünkü renklendirme ve formüllerin yoğunluğu dosyanızı kasar.

.


i