Sadece Belli Verileri Seç

[baydeniro]

Merhaba arkadaşlar. Makro yardımı ile A sütunlarındaki verilerden sadece arananların zemin rengini turuncu yapmak mümkün mü ?

Örnek dosya ektedir.

 

[Orion1]

Dosyanız ekte.
Koşullu biçimlendirme yapıldı.

 

[baydeniro]

Sayın Evren Gizlen, yardımınız için çok teşekkürler. Ancak bu konuyu makro ile çözmemiz gerekiyor.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DEG1, DEG2 As Range
For Each DEG1 In Range("A2:D30")
For Each DEG2 In Range("G3:G5")
If DEG2 = DEG1 Then
DEG1.Interior.ColorIndex = 45
End If
Next
Next
End Sub

 

[baydeniro]

Teşekkürler

Sayın N.Ziya Hiçdurmaz, büyüksünüz vesselam. Çok çok teşekkür ederim. Harika bir olay oldu. Sizin kodunuzun butona bağlanabilen halini de başka kişiler ilgilenbilir diye ben ekliyorum. Sağlıcakla kalın.

Sub Deneme ()
Dim DEG1, DEG2 As Range
For Each DEG1 In Range("A2: D30")
For Each DEG2 In Range("G2:G5")
If DEG2 = DEG1 Then
DEG1.Interior.ColorIndex = 45
End If
Next
Next
End Sub

 

[baydeniro]

Not : Üstteki kodun A2: D30 gibi olan yeri A230 olmalıdır. Nedense : yerine resim geldiğinde araya boluk vermek durumunda kaldım.