Sayfa1 ve sayfa2 de eş zamanlı hücre işaretleme ?

[Gorarr]

Selamlar, yapmaya çalıştığım ama yapamadığım;

B sütunundaki bazı isileri çeşitli renk dolgu ile işaretlemem gerekiyor. (örnek dosyada ki gibi) Bu esnada sayfa2 de de B sütununda aynı isim aynı şekilde işaretlensin istiyorum.

Bunu VBA ile yapmak istiyorum.

Yardımlarınız için şimdiden çok çok teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Excelde renk değişimlerinde çalışan bir olay yoktur. Bu sebeple renk değişimi yaptıktan sonra ilgili hücreye çift tıklamak suretiyle diğer sayfadaki aynı bilgiyi içeren hücreyi renklendirebilirsiniz.

Aşağıdaki kodu Sayfa1'in kod bölümüne uygulayınız.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim BUL As Range
    If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    If Target <> "" Then
        Set BUL = Sheets("Sayfa2").Range("B:B").Find(Target, , , xlWhole)
        If Not BUL Is Nothing Then
            BUL.Interior.ColorIndex = Target.Interior.ColorIndex
        End If
    End If
    Set BUL = Nothing
End Sub

 

[Gorarr]

Teşekkür ederim kod çok güzel çalışıyor. Peki tıklama olayı olmadan diğer sayfada renk değişimini sağlayamazmıyız. çünkü çok veri olunca tıklamayı unutabilirim. saygılar..

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımda belirtmiştim. Sanırım gözünüzden kaçtı.

Excelde renk değişimlerinde tetiklenen olay yoktur. Bu sebeple bir alanın rengini değiştirdiğinizde çalışacak kod tasarlanamıyor. Çünkü kodu tetikleyecek olay gerçekleşmemiş oluyor.

 

[Gorarr]

Ben özellikle tıklamalı yaptınız sanmıştım. Sizin yazdığınız kod işimi görüyor ve çok başarılı.
Tekrardan teşekkür ederim elinize sağlık.