renkli hücre ile gösterme

[ahmett46]

Slm arkadaşlar
10 satır ve 10 sütundan oluşan tabloda rakamlarımız var. Tablonun üst kısmında 5 adet hücreye yazacağım rakamları tabloda bulup o hücrelerin renklenmesini istiyorum.(Geçici) (Üstteki hücreye rakamlar yazdığımda her defasında tablodaki o rakamlara ait hücre renklenecek. Tabloda sıralama yok rastgele yerleştirilmiş. Mesela 5,7,15,28,59 gibi sayıları girdiğimde tabloda eşleşen değerleri renklenecek.) Teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümünde olacak.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:j10]) Is Nothing Then Exit Sub
[a1:j10].Interior.ColorIndex = xlNone
For Each bak1 In Range("a1:j1")
For Each bak2 In Range("a2:j10")
If bak1 = bak2 And bak1 <> "" Then
bak2.Interior.ColorIndex = 24
End If
Next
Next
End Sub

 

[veyselemre]

Koşullu biçimlendirmeyle bir örnek

 

[ahmett46]

teşekkürler

 

[ahmett46]

Peki Hocam a1:j10 aral&#305;&#287;&#305;ndaki renklendirmeyi ayn&#305; &#351;ekilde a11 ile j20 aras&#305;nda da farkl&#305; bir renk kullanmak istiyorum. burdaki rakamlar&#305; da k1:q1 aral&#305;&#287;&#305;nda girece&#287;im bu durumda nas&#305;l bir kod kullanmam gerekiyor. te&#351;ekk&#252;rler

 

[Orion1]

Merhaba.
Ekli dosyay&#305; inceleyiniz.
Say&#305;n veyselemre hocam&#305;n yazd&#305;&#287;&#305; form&#252;lde k&#252;&#231;&#252;k bir de&#287;i&#351;iklik yapt&#305;m.
Da&#287;a do&#287;rusu ekleme yapt&#305;m.
Da&#287;ada do&#287;rusu hem ekleme yapt&#305;m hem de&#287;i&#351;iklik yapt&#305;m.