Gün aktarmada hata

[sserhat]

Merhaba,

Bir makro kodunu sizin değerli yardımlarınızla başka bir dosyada uygulamaya çalıştım. Fakat günlerin aktarılması konusunda bir yanlışlık var bir türlü çözemedim. Yardımcı olabilir misiniz?

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.
'----------------------------------------------------
Sub hepsini_bull()
Application.ScreenUpdating = False
On Error Resume Next
For mm = 42 To 50
arakarakteri = " "
Set s1 = ThisWorkbook.Worksheets("Puantaj")
For zz = 3 To s1.Range("A65536").End(xlUp).Row
ÇÇ = ""
For i = 11 To 41
If s1.Cells(zz, i) = s1.Cells(1, mm) Then ÇÇ = ÇÇ & i - 10 & arakarakteri
Next i
s1.Cells(zz, mm) = ÇÇ
Next zz
Next mm
MsgBox "Bu kod daha kısa İşlem TAMAM.", vbInformation
End Sub
'----------------------------------------------------
Üçüncü bir For-Next kodu oldukça kısalttı
Ekteki kodları silip bunuda deneyebilirsiniz.

 

[sserhat]

Eyvallah hocam çok teşekkür ederim, elinize sağlık Harikasınız...