Çözüldü Ara-bul ve renklendir

[hilmivzr]

Butona basıldığında AA8 - AT8 de yazılan rakamları ayrı ayrı C4 - X118 arayıp bulan ve sarı olarak renklendiren ve Y sütununa kaç tane olduğunu yazan programı yazınız.
.......
Uğraştım ama bir sonuç alamadım.Yardım eden arkadaşlara şimdiden çok teşekkür ederim.

 

[Orion1]

Örnek dosya linki veriniz.

 

[hilmivzr]

https://drive.google.com/open?id=1eJKZVwaJqA6UuJZ6fBa1bpopBg8m5p4n

Dosya linktedir.

 

[Orion1]

Buyurun.

Private Sub CommandButton3_Click()
Dim i As Byte, j As Byte, say As Byte
Range("Y4:Y118").ClearContents
Range("C4:X118").Interior.ColorIndex = xlNone
Application.ScreenUpdating = False
For i = 4 To 118
    For j = 3 To 23
        If WorksheetFunction.CountIf(Range("AA8:AT8"), Cells(i, j).Value) Then
            Cells(i, j).Interior.Color = vbYellow
            say = say + 1
        End If
    Next j
    Cells(i, "Y").Value = say
    say = 0
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[hilmivzr]

Çok değerli hocam aradığım buydu çok teşekkür ederim.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[Orion1]

İlgili satırı aşağdaki satırla değiştiriniz.

If WorksheetFunction.CountIf(Range("AA8:AT8"), Cells(i, j).Value) > 0 Then

 

[hilmivzr]

Tamamdır hocam çok teşekkürler.