Çözüldü Ara-bul ve başka satıra yazdırma

[hilmivzr]

C2 - CD2 ye kadar olan hücrelere C4 - X118 de bulunan sayılardan kaç tane olduğunu bulan programı "TÜM" butonuna programlayınız.

Uğraştım ama bir sonuca varamadım. Yardımlarınız için şimdiden teşekkürler.

Dosya linktedir.
https://drive.google.com/file/d/1b5b_hq8EwsR7ORS3iBs51bLBRZMskKbo/view?usp=sharing

 

[Orion1]

Buyurun.

Private Sub CommandButton2_Click()
Dim hcr As Range
Range("C2:CD2").ClearContents
Application.ScreenUpdating = False
For Each hcr In Range("C1:CD1")
    hcr.Offset(1, 0).Value = WorksheetFunction.CountIf(Range("C4:X118"), hcr.Value)
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[hilmivzr]

Hocam mükemmelsiniz çok teşekkür ederim.

 

[Orion1]

Hocam mükemmelsiniz çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.