Raporlama yapma

[zehfeysal]

hayırlı Ramazanlar öncelikle
puantaj sayfasındaki verilerimi
Rapor sayfasında Örnekte olduğu gibi raporlamam gerekiyor
bu iş çok zamanımı alıyor makroyla bu işi çöze bilirmiyiz
üstadladan yardım bekliyorum tesekkurler

 

[Ömer]

Merhaba,

Kodlar çalışınca listedeki tüm personel aynı düzende alt alta raporlanacak mı yoksa sadece seçtiğiniz personel mi listelenecek.

 

[zehfeysal]

Kodlar çalışınca listedeki tüm personel aynı düzende alt alta raporlanacak

 

[Ömer]

Sonuçları detaylı kontrol etmedim, dener misiniz.

Sub Rapor_Al()

    Dim Sp As Worksheet, Sr As Worksheet
    Dim i As Long, s As Date, j As Integer, sat As Long
    
    Set Sp = Sheets("PUANTAJ")
    Set Sr = Sheets("RAPOR")
    
    Application.ScreenUpdating = False
    Sr.Range("A2:D" & Rows.Count).ClearContents
    Sr.Range("A2:D" & Rows.Count).Borders.LineStyle = 0
    
    sat = 2
    For i = 2 To Sp.Cells(Rows.Count, "D").End(xlUp).Row
        s = Sp.Range("F1")
        For j = 6 To Sp.Cells(1, Columns.Count).End(xlToLeft).Column
            If Sp.Cells(i, j) <> Sp.Cells(i, j + 1) Then
                Sr.Cells(sat, "A") = Sp.Cells(i, "D")
                Sr.Cells(sat, "B") = Sp.Cells(i, j)
                Sr.Cells(sat, "C") = s
                Sr.Cells(sat, "D") = Sp.Cells(1, j)
                s = Sp.Cells(1, j + 1)
                sat = sat + 1
            End If
        Next j
    
    Next i
    
    Sr.Range("A2:D" & sat - 1).Borders.LineStyle = 1
    MsgBox "Raporlama Bitti..", vbInformation
    
End Sub

 

[zehfeysal]

elinize sağlık olmuş test ediyorum Allah Razı olsun