Aylık Hata Analiz Raporu

[o2l3m]

Veri sayfasından aylık hataları sayarak çekecek bir rapor için makro desteğinize ihtiyacım var.
Ekteki dosyada anlatmaya çalıştım.
Umarım yardımcı olabilirsiniz.

 

[muygun]

Merhaba;
Doğru anladıysam eki deneyin.
İyi çalışmalar.

 

[o2l3m]

Çok teşekkür ediyorum. Tam istediğim gibi olmuş. Elinize sağlık

 

[o2l3m]

Merhaba;
Doğru anladıysam eki deneyin.
İyi çalışmalar.

Sub hesapla()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Data")
For i = 2 To s1.Range("h65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, "h").Value)
s2.Range("c3:z65536").ClearContents
Next i
For i = 2 To s1.Range("h65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, "h").Value)
For z = 3 To s1.Range("b65536").End(xlUp).Row
If s1.Cells(i, "c") = s2.Cells(z, "b") Then
For k = 4 To s1.Cells(2, 256).End(xlToLeft).Column
If Year(s1.Cells(i, "a")) = Year(s2.Cells(2, k)) And Month(s1.Cells(i, "a")) = Month(s2.Cells(2, k)) And s1.Cells(i, "f") <> "" Then
s2.Cells(z, k) = s2.Cells(z, k) + 1
End If
Next k
End If
s2.Cells(z, "c") = WorksheetFunction.Average(s2.Range("d" & z & ":z" & z))
Next z
Next i
MsgBox ("İşlem bitti.")
Application.ScreenUpdating = True
End Sub

Yukarıdaki kod oluşturulan sayfalarda L stünuna kadar veri getiriyor.
Bunu farkettim z sütununa kadar gelecek şekilde nasıl uygulanabilir.

 

[muygun]

Merhaba;
şablon sayfasında 2. satırda (gri alanlara) tarih yazın.
İyi çalışmalar.

 

[o2l3m]

Tarihleri yazdım. Ekli resime bakabilir misiniz. 10-11-12 aylar gelmedi. Bir sorun olabilir mi acaba

 

[muygun]

Hatalı dosyayı ekleyin.

 

[o2l3m]

Dosyayı ekledim. Dediğim gibi 10-11-12 aylara dair verileri hesapla butonu ile getiremiyorum.

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[o2l3m]

Çok teşekkür ediyorum