Satır renklendirme.

[ilhanbatu]

Merhaba,

A asırına bir değer,örneğin Tarih girildiğinde tüm satır yeşil olarak renklendirmek istiyorum.Bunu nasıl yapabilirim acaba.
Yardımcı olabilirseniz sevinirim.Saygılarımla.

 

[Ömer]

Merhaba,

İstediğiniz satırları fare ile işaretledikten sonra Koşullu biçiölendirmeden formül bölümüne,

=$A1<>""

(buradaki 1 başlangıç satırıdır, fare ile işaretlemeye 3 satırda başlarsanız 1 değerini 3 yapmanız gerekir. )yazarak biçimden yeşil rengi seçin ve tamam butonuna basın.

Detaylı bilgi için,

Koşullu biçimlendirme (condıtıonal formattıng)

.

 

[ilhanbatu]

Verdiğiniz bilgi için Teşekkür ederim.
Ancak bu formülü uyguladığımda sadece tarih girilen satır renkleniyor benim amacaım tüm satırın renklenmesi,Yani a1 hücresine tarih girdiğimde 1 nolu satırın tamamen renkelnmesi şeklinde.Bunu nasıl yapabilirim acaba

 

[Ömer]

Renklenmesini istediğiniz tüm satırı fare ile seçtikten sonra koşullu biçimledirmeyi uygulamanız gerekir. Yukarıda da bu şekilde açıklamıştım.

 

[ilhanbatu]

Tamam şimdi oldu Çok Teşekkür ederim.
Bu arada Bayramınızıda en içten dileklerimle kutlarım
Saygılarımla.

 

[Ömer]

Rica ederim. Sizinde bayramınız kutlu olsun.

.

 

[Civan Jack]

Arkadaşlar benim de bir sorum olacak sizlere.
Sayfa1de, mouse ile ilk seçilen hücre kırmızı, ikinci seçilen hücre yeşil vs.
gibi yapılabilir mi acaba ?

 

[Korhan Ayhan]

Selamlar,

Sn. Civan Jack aşağıdaki kodu kullanabilirsiniz. Sayfanın kod bölümüne uygulayınız.

Option Explicit
 
Dim Say As Integer
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Say
        Case Is = 0
        Target.Interior.ColorIndex = 3
        Case Is = 1
        Target.Interior.ColorIndex = 4
        Case Is = 2
        Target.Interior.ColorIndex = 6
        Case Is = 3
        Target.Interior.ColorIndex = 7
        Case Is = 4
        Target.Interior.ColorIndex = 8
    End Select
    Say = Say + 1
End Sub

 

[Civan Jack]

teşekkürler korhan bey, çok işime yarayacak.
Satır içinde uygulayabilir miyiz bunu?

 

[Korhan Ayhan]

Selamlar,

Satır yada sütun seçerek deneyin. Kod çalışacaktır.

 

[aslan1453]

emeği geçen herkese teşekkür

 

[Civan Jack]

Teşekkürler

 

[caglarr65]

Option Explicit

Dim Say As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Say
Case Is = 0
Target.Interior.ColorIndex = 3
Case Is = 1
Target.Interior.ColorIndex = 4
Case Is = 2
Target.Interior.ColorIndex = 6
Case Is = 3
Target.Interior.ColorIndex = 7
Case Is = 4
Target.Interior.ColorIndex = 8
End Select
Say = Say + 1
End Sub
Sayın.Korhan Ayhan;Renklendirilen hücre rengini silmek için kodu nasıl düzenlemeliyiz? Teşekkürler , İyi bayramlar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Dim Say As Integer
Dim Eski_Hücre As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Say
    Case Is = 0
    Target.Interior.ColorIndex = 3
    Case Is = 1
    Eski_Hücre.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 4
    Case Is = 2
    Eski_Hücre.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 6
    Case Is = 3
    Eski_Hücre.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 7
    Case Is = 4
    Eski_Hücre.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 8
    Case Is = 5
    Eski_Hücre.Interior.ColorIndex = xlNone
    End Select
    Say = Say + 1
    Set Eski_Hücre = Target
End Sub

 

[caglarr65]

Sayın Korhan Ayhan;kod için teşekkürler
Birinci tıklama ile hücre renkleniyor aynı hücreyi tekrar tıkladığımda rengi siliniyor.Benimde istediğim buydu.Tekrar aynı hücreyi 2.nci kez tıkladığımda hücre renklenmiyor.