Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: turkanet - 01 Kasım 2012, 17:28:32

Başlık: belirli verileri bulunca renklendirme makrosu
Gönderen: turkanet - 01 Kasım 2012, 17:28:32

Merhaba
ekteki dosyada data sayfasının e sütununda veriler var. aktif sayfanın c sütununda data nın e sütunundaki verilerden varsa ilgili satırın a:J aralığını açık mavi renklendirmesini istiyorum. yardımlarınız için şimdiden teşekkür ederim.

Başlık: Ynt: belirli verileri bulunca renklendirme makrosu
Gönderen: Orion1 - 02 Kasım 2012, 19:55:50

Buyurun.  :cooll

Kod: [Seç]

Sub mavi59()
Dim s1 As Worksheet, sat1 As Long, sat2 As Long, i As Long
Sheets("Sayfa1").Select
Range("A:J").Interior.ColorIndex = xlNone
Set s1 = Sheets("Data")
sat1 = Cells(Rows.Count, "C").End(xlUp).Row
sat2 = s1.Cells(Rows.Count, "E").End(xlUp).Row
For i = 1 To sat1
    If WorksheetFunction.CountIf(s1.Range("E1:E" & sat2), Cells(i, "C").Value) > 0 Then
        Range("A" & i & ":J" & i).Interior.Color = vbCyan
    End If
Next i
End Sub