Bir ölçüte göre hücreleri renklendirme

[mrttrn]

Yapmak istediğm
( Örneğin J1 veya K1 hücresini
mouse ile tıkladığımda J1 deki AAAA ya göre o sayfada
A1:F1 aralığındaki AAAA ların renklenmesini istiyorum. )
Ve nasıl yaptığınızı açıklarsanız memnun olurum.
İlgili dosya ektedir.

MakroVBA da userform yaratarak yaptım.
Ama benim istediğim excel sayfasında iken renklenmesini
istiyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Kodlar çalışma sayfasının kod modülündedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim k As Range, adr As String, sat As Long, j As Byte
If Intersect(Target, Range("J1:K" & Cells(65536, "J").End(xlUp).Row)) Is Nothing Then Exit Sub
If Cells(Target.Row, "J").Value = "" Then Exit Sub
Range("A1:F65536").Interior.ColorIndex = xlNone
Range("A1:F65536").Font.Color = vbBlack
Range("A1:F65536").Font.Bold = False
Range("A1:F65536").Font.Italic = False
If Target.Value <> "KKKK" Then Exit Sub
For j = 1 To 5
    sat = Cells(65536, j).End(xlUp).Row
    Set k = Range(Cells(1, j), Cells(sat, j)).Find(Target.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            k.Interior.Color = vbRed
            k.Font.Color = vbYellow
            k.Font.Bold = True
            k.Font.Italic = True
            Set k = Range(Cells(1, j), Cells(sat, j)).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
        
    End If
Next
End Sub

 

[mrttrn]

Sn Evren; örneğin J11 deki KKKK tıkladığımda
A1:F12 aralığındaki tüm KKKK ların renklenmesini istiyorum.
J sutununda başka bir değeri tıkladığımda yeniden renklendirme yapmak istiyorum.

 

[mrttrn]

Arkadaşlar istediğimi elde ettim.
sat=12 yaptığımda sorun çözüldü.
Sn Evren çok teşekkür ederim.

 

[Orion1]

Sn Evren; örneğin J11 deki KKKK tıkladığımda
A1:F12 aralığındaki tüm KKKK ların renklenmesini istiyorum.
J sutununda başka bir değeri tıkladığımda yeniden renklendirme yapmak istiyorum.

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[Orion1]

Arkadaşlar istediğimi elde ettim.
sat=12 yaptığımda sorun çözüldü.
Sn Evren çok teşekkür ederim.

İstediğiniz şeyin Yaptığınız şeyle alakası yoktur.

 

[mrttrn]

Sn Evren; bir öğretmen olarak Sorumluluk sınav çizelgesi yapıyordum.
Bir tarafta sınav programı diger yanda J sutunu (öğretmen listesi) var.
Öğretmen listesinde öğretmen isimi tıklandığında Sınav çizelgesinde
o öğretmenin aldığı görevler renkleniyor.Böylece kaç görev aldığını
öğrenmiş oluyorum.

Sizin son verdiğiniz dosyada ki kod çok işime yaradı.
Size çok teşekkür ederim.

 

[Orion1]

Sn Evren; bir öğretmen olarak Sorumluluk sınav çizelgesi yapıyordum.
Bir tarafta sınav programı diger yanda J sutunu (öğretmen listesi) var.
Öğretmen listesinde öğretmen isimi tıklandığında Sınav çizelgesinde
o öğretmenin aldığı görevler renkleniyor.Böylece kaç görev aldığını
öğrenmiş oluyorum.

Sizin son verdiğiniz dosyada ki kod çok işime yaradı.
Size çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.