Rapor Alan Personelin Rapor Gününü Hesaplama

[matematikcip]

Elimde 10000 kişilik bir liste var.Excelde alt alta rapor aldıkları gün ve tarihleri yazmakta.Ama aynı kayıttan kimi zaman 5 kimi zaman 3 gün rapor alınmış.Bu kişileri tek bir satır haline getirip yan yana yazablir miyim?
Zamanı olanlar ekteki dosyayı incelerlerse sevinirim.

 

[halit3]

Elimde 10000 kişilik bir liste var.Excelde alt alta rapor aldıkları gün ve tarihleri yazmakta.Ama aynı kayıttan kimi zaman 5 kimi zaman 3 gün rapor alınmış.Bu kişileri tek bir satır haline getirip yan yana yazablir miyim?
Zamanı olanlar ekteki dosyayı incelerlerse sevinirim.

aşağıdaki kodu bir dene

A hücresine benzersiz sicil numarası veya tc kimlik numaralarını yaz H hücresine toplayarak aktarım yapıyor

Sub hesapla()
For i = 2 To Worksheets(ActiveSheet.Name).Cells(65536, "A").End(xlUp).Row
deg1 = 0
If WorksheetFunction.CountIf(Range("A2:A" & i), Sheets(ActiveSheet.Name).Cells(i, 1).Value) = 1 Then
For j = 2 To Worksheets(ActiveSheet.Name).Cells(65536, "A").End(xlUp).Row
If Sheets(ActiveSheet.Name).Cells(i, 1).Value = Sheets(ActiveSheet.Name).Cells(j, 1).Value Then
deg1 = deg1 + CDbl(Sheets(ActiveSheet.Name).Cells(j, 6).Value)
End If
Next
Sheets(ActiveSheet.Name).Cells(i, 8).Value = deg1
End If
Next
MsgBox "işlem tamam  "
End Sub

 

[Ali]

Alternatif

Sub aktar()
Columns("J:Z").Delete Shift:=xlToLeft
Range("A1:E10000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "K1:O1"), Unique:=True
say = Sheets("Sayfa1").Range("A1").CurrentRegion.Rows.Count
say1 = Sheets("Sayfa1").Range("K2").CurrentRegion.Rows.Count
For i = 2 To say1
Sheets("Sayfa1").Range("P" & i).Value = Application.SumIf(Sheets("Sayfa1").Range("A2:A" & say), Sheets("Sayfa1").Range("K" & i), Sheets("Sayfa1").Range("F2:F" & say))
Next
End Sub

.

 

[matematikcip]

Halit3 ve Ali arkadaşlar teşekkür ederim kodları kullanıyorum.