Sayıları bulup hücre rengini degiştirme

[exsess]

Selam sayın arkadaşlar ekteki excel dosyasında mevcut olan rakamlar kısmına rakamlarımızı yazdığımızda altındaki rakam hücrelerinde yazılı rakamları bulup hücre rengini değiştirmesi gerekiyor ben beceremedim sizlerden yardım bekliyorum....
Dosyahttp://s3.dosya.tc/server18/WdixFt/Kitap1.xlsx.html

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

Sub Emre()
    Dim Rky As Range, i%
    Range("A4:AV20").Interior.ColorIndex = 0
    For Each Rky In Range("A4:AV20")
        For i = 22 To 27
            If Rky.Value = Cells(2, i) Then
                Rky.Interior.ColorIndex = 3
            End If
        Next i
    Next Rky
    Set Rky = Nothing: i = Empty
End Sub

 

[Ömer]

Merhaba,

Koşullu biçimlendirme ile alternatif olarak;
A4:AV20 aralığını fare işe seçin, alan seçili iken; Giriş sekmesi/Koşullu biçimlendirme menüsünden,"Yeni Kural" seçin açılan ekrandan "Biçimlendirilecek hücreleri belirlemek için formül kullan" seçeneğini seçin, gelen bölümdeki formül çubuğu kısmına aşağıdaki formülü yazın.

=EĞERSAY($V$2:$AA$2;A4)>0

Menüyü kapatmadan, "Biçimlendir" butonuna tıklayarak dolgu bölümünden kırmızı rengi seçip tamam butonları ile işlemi sonlandırın.

.

 

[exsess]

Bu kodları kullanabilirsiniz;

Sub Emre()
    Dim Rky As Range, i%
    Range("A4:AV20").Interior.ColorIndex = 0
    For Each Rky In Range("A4:AV20")
        For i = 22 To 27
            If Rky.Value = Cells(2, i) Then
                Rky.Interior.ColorIndex = 3
            End If
        Next i
    Next Rky
    Set Rky = Nothing: i = Empty
End Sub

cok teşekkürler elinize sağlık klavyeniz dert görmesin

 

[exsess]

Merhaba,

Koşullu biçimlendirme ile alternatif olarak;
A4:AV20 aralığını fare işe seçin, alan seçili iken; Giriş sekmesi/Koşullu biçimlendirme menüsünden,"Yeni Kural" seçin açılan ekrandan "Biçimlendirilecek hücreleri belirlemek için formül kullan" seçeneğini seçin, gelen bölümdeki formül çubuğu kısmına aşağıdaki formülü yazın.

=EĞERSAY($V$2:$AA$2;A4)>0

Menüyü kapatmadan, "Biçimlendir" butonuna tıklayarak dolgu bölümünden kırmızı rengi seçip tamam butonları ile işlemi sonlandırın.

.

sapol kardeşim ilgilendiğin için cok teşekkür ederim