Puantaj Hk.

[Mdemir63]

Selamlar

Arkadaşlar ekteki dosyada, Puantaj sayfasında Sarı renkli sütunu yanlış hesaplıyor.
Kodlarda nerede hata yaptığımı bulamadım. Kodlar bana ait değildir.

saygılar

 

[Mdemir63]

Üstatlarım Konu güncel

 

[Korhan Ayhan]

Alternatif kodu deneyiniz.

Option Explicit

Sub Puantaj_Hesapla()
    Application.ScreenUpdating = False

    Range("C3:M" & Rows.Count).ClearContents
   
    With Range("D3:M" & Cells(Rows.Count, 1).End(3).Row)
        .Formula = "=COUNTIF($N3:$AR3,D$2)"
        .Value = .Value
    End With
   
    With Range("C3:C" & Cells(Rows.Count, 1).End(3).Row)
        .Formula = "=SUM(D3:M3)"
        .Value = .Value
    End With
   
    Columns.AutoFit
   
    Application.ScreenUpdating = True

    MsgBox "Hesaplama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Erkan Akayay]

Dosyanızda şu kod satırını kaldırıp tekrar deneyin.

arr(i, q) = arr(i, q) + arr2(i, j)

 

[Mdemir63]

Dosyanızda şu kod satırını kaldırıp tekrar deneyin.

arr(i, q) = arr(i, q) + arr2(i, j)

Sayın @Erkan Akayay teşekkür ederim

 

[Mdemir63]

@Korhan Ayhan Hocam
Alternatif kod için teşekkür ederim.
Ancak sarı sütunu yine yanlış hesaplıyor.
8 yazan yerleri saydırması gerekiyordu.


Bende
bu kod yerine:
' .Formula = "=SUM(D3:M3)"

aşağıdaki gibi yaptım düzeldi
.Formula = "=COUNTIF($N3:$AR3,8)"

tekrar teşekkür ederim