hücrenin renklendirilmesi hakkında.

[nongeyikm]

Merhaba arkadaşlar,

Örneğin tabloda herhangi bir sütunda aşağı doğru ilerlerken. bulunduğum satırın A sütunundaki hücresinin renklendirilmesi mümkün müdür? Kısaca ben hangi satırda isem A sütunundaki hücre renklenecek.

Saygılar,

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan uygulama istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın.

NOT: Kod'daki;
-- Kırmızı satırlar, aktif hücre, A sütunu hücresinin rengini (sizin istediğiniz)
-- Mavi satırlar ise atif hücre 1'inci satırı hücresini
renklendirir.
.

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
[COLOR="Red"]Range("A:A").Interior.Color = xlNone[/COLOR]
[COLOR="Blue"]Range("1:1").Interior.Color = xlNone[/COLOR]
[COLOR="red"]Cells(Target.Row, "A").Interior.Color = vbGreen[/COLOR]
[COLOR="blue"]Cells(1, Target.Column).Interior.Color = vbGreen[/COLOR]
[B]End Sub[/B]

 

[tahsinanarat]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    If Intersect(Target, [A1:Q50]) Is Nothing Then Exit Sub
    Range(Cells(Target.Row, 1), Cells(Target.Row, 1)).Interior.ColorIndex = 38
    Target.Interior.ColorIndex = 2
End Sub

 

[nongeyikm]

İlginize çok teşekkür ederim.


Sn. Ömer Bey, Sizin yaptığınız code diğer hücreye geçse bile tüm gezinen satırları renkli bırakıyor ve de renk kalıcı oluyor. sadece bulunduğum hücrenin satırı renkli kalmalı.

Sn Tahsinanarat üstad,

Sizin yaptığınız olmuş fakat renklenecek sütunun H sütunundaki hücre olmasını istiyorum. Nasıl değiştirebilirim. Ayrıca sayfada gezinirken tablo oldukça ağırlaştı hızlandırma şansımız varmıdır.

Saygılar

 

[Ömer BARAN]

Sanırım yanlış bir uygulama yaptınız.
Verdiğim kod'da bid sorun yok.

Ekteki belgede, belirttiğim kodlar uygulanmış durumda.
Ekteki belgeye buraya tıklayarak da erişebilirsiniz.

Belgeyi açarken makroları etkinleştirmeyi unutmayınız.
.

 

[nongeyikm]

Haklısınız ömer bey. Sizin kod çalışıyır. Fakat söyle bir sorun var. Code daki A tanımlarını ben H yaptım fakat H sütununda benim renklendirilmiş olan hücrelerimin renklerini sıfırlıyor. Varolan hücre dokularımın bozulmasını istemiyorum.

Saygılar,

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("H:H").FormatConditions.Delete
    With Cells(Target.Row, "H")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = 255
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

 

[nongeyikm]

Gününüz aydın olsun,

Sn. Ömer BARAN, Sn. tahsinanarat, ve de Sn. Korhan AYAN harikasınız. Allah razı olsun. Korhan Bey'in code tablomun cursor ilerleme hızını düşürmedi ve kullanıyorum. Elinize beyninize sağlık.

Saygılarımla,

 

[nongeyikm]

Sorun çözüldüğünü görüp yanıt vermekte aceleci davrandım. Şimdi de tablo içinde geri al (ctrl+z) işlemi yapılamıyor. Bunun çözümü varmıdır ?

 

[nongeyikm]

Sn Korhan,

Çözümü varmıdır?

 

[Korhan Ayhan]

Maalesef makroda Ctrl+Z işlevini yitirmektedir.