Satır Belirleme

[Mehmet Sait]

Merhaba,


Bir tablo da hangi sutunda olursak olalım A sutununda denk gelen satırın belirlenmesi mümkün mü ?

Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Belirlemekten kastınız nedir?

 

[Mehmet Sait]

Merhaba,

Belirlemekten kastınız nedir?

A hücresinde liste var diğer hücrelerde değerler. Değerleri girerken A hücresinde bulunan listeye göre yapılmata.

Mesela K 13 te isem A 13 sarıya boyasın başka hücre ve satıra geçtiğimde eski haline dönsün ve geçtiğim hücrenin A sutunundaki ilgili satırı sarıya boyansın. Bu şekilde mümkün mü acaba.

 

[Korhan Ayhan]

Sayfanızda koşullu biçimlendirme ya da "A" sütununda renklendirme kullanıyor musunuz?

 

[Mehmet Sait]

Sayfanızda koşullu biçimlendirme ya da "A" sütununda renklendirme kullanıyor musunuz?

Koşullu biçimlendirme yok ancak A sütununda renk mevcut

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1:A1048576").FormatConditions.Delete
    With Cells(Target.Row, 1)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    End With
End Sub

 

[Mehmet Sait]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1:A1048576").FormatConditions.Delete
    With Cells(Target.Row, 1)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    End With
End Sub

Çok güzel olmuş, elinize sağlık. Teşekkür ederim.

 

[Mehmet Sait]

Çok güzel olmuş, elinize sağlık. Teşekkür ederim.

Hocam bi sorum daha olucaktı mümkünse. Birde üst satırı brlirlemek mümkün mü ?

Örnek Y 20 Satırında iken A20 ve Y1 Boyanması mümkün mü ?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(1).FormatConditions.Delete
    Rows(1).FormatConditions.Delete
    With Cells(Target.Row, 1)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    End With
    With Cells(1, Target.Column)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    End With
End Sub

 

[Mehmet Sait]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(1).FormatConditions.Delete
    Rows(1).FormatConditions.Delete
    With Cells(Target.Row, 1)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    End With
    With Cells(1, Target.Column)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    End With
End Sub

D sütununa uygulayamadım With Cells(Target.Row, 1) 4 yapıyorum ama rek sabit kalıyor.

 

[Korhan Ayhan]

Aşağıdaki satırları değiştirmeniz gerekiyor.

Columns([COLOR="Red"]1[/COLOR]).FormatConditions.Delete
With Cells(Target.Row, [COLOR="red"]1[/COLOR])

 

[Mehmet Sait]

Hocam

Range("D11048576").FormatConditions.Delete

ekledim düzeldi