Puantaj datasını doğrulama işlemi

[direnvip]

Üstatlarım iyi günler,

Şirketimizde manuel tutulan puantaj datası mevcut, burada "N" harfi normal günü temsil ediyor, personel mesai yaptıgında "N2" 2 saat mesai yaptıgı anlamına geliyor. Yapmak istedigim şey ay içerisinde "N" leri saydırıp yanındaki AH sutununa "N" harfinin yanındaki sayıları toplayıp AJ sutununa yazmak. Örnek vermem gerekirse "N2" hem normal bir gün olarak sayılıp hemde 2 saat mesai oldugu için N normal çalışmaya eklenecek 2 saatte AJ sutununa eklenecek. Hangi formülle ilerlemeliyim yardımcı olabilir misiniz? Şimdiden teşekkür ederim.

 

[dEdE]

Dener misiniz?

 

[direnvip]

Merhabalar,

Teşekkür ederim uğraşınız için çok faydalı oldu, aynısını haftasonu ve raporlu için nasıl ekleyebilirim yardımcı olursanız çok sevinirim.

 

[muygun]

Merhaba;
Alternatif olsun.
Deneyin.
İyi çalışmalar.

 

[dEdE]

Aşağıdaki kodu öncekinin yerine kopyalayıp dener misiniz?

Sub Ayır()
Range("AH4:AL" & Rows.Count).ClearContents
For j = 4 To Cells(Rows.Count, "B").End(3).Row
    NC = 0
    HIM = 0
    HSM = 0
    HSC = 0
    r = 0
    For i = 2 To 32
        If Left(Cells(j, i), 1) = "N" Then
            TOP1 = Val(Mid(Cells(j, i), 2, Len(Cells(j, i)) - 1))
            HIM = HIM + TOP1
            NC = NC + 1
        End If
       
        If Left(Cells(j, i), 1) = "H" Then
            TOP2 = Val(Mid(Cells(j, i), 2, Len(Cells(j, i)) - 1))
            HSM = HSM + TOP2
            HSC = HSC + 1
        End If
       
        If Left(Cells(j, i), 1) = "R" Then
            r = r + 1
        End If
    Next
    Cells(j, "AH") = NC
    Cells(j, "AJ") = HIM
    Cells(j, "AI") = HSC
    Cells(j, "AK") = HSM
    Cells(j, "AL") = r
Next j
End Sub

 

[direnvip]

Merhaba;
Alternatif olsun.
Deneyin.
İyi çalışmalar.

Çok teşekkür ederim.

 

[direnvip]

Aşağıdaki kodu öncekinin yerine kopyalayıp dener misiniz?

Sub Ayır()
Range("AH4:AL" & Rows.Count).ClearContents
For j = 4 To Cells(Rows.Count, "B").End(3).Row
    NC = 0
    HIM = 0
    HSM = 0
    HSC = 0
    r = 0
    For i = 2 To 32
        If Left(Cells(j, i), 1) = "N" Then
            TOP1 = Val(Mid(Cells(j, i), 2, Len(Cells(j, i)) - 1))
            HIM = HIM + TOP1
            NC = NC + 1
        End If
      
        If Left(Cells(j, i), 1) = "H" Then
            TOP2 = Val(Mid(Cells(j, i), 2, Len(Cells(j, i)) - 1))
            HSM = HSM + TOP2
            HSC = HSC + 1
        End If
      
        If Left(Cells(j, i), 1) = "R" Then
            r = r + 1
        End If
    Next
    Cells(j, "AH") = NC
    Cells(j, "AJ") = HIM
    Cells(j, "AI") = HSC
    Cells(j, "AK") = HSM
    Cells(j, "AL") = r
Next j
End Sub

Çok teşekkür ederim.