isimleri farklı bir sayfada sıralama

[mutand_vsd]

Merhabalar,
Ekte puantaj tablosu var. Örnek olsun diye 4 kişinin kaydı var fakat orjinal dosyada 250 kişi civarında bir kayıt var. Yapmaya çalıştığım olay bu tablolardaki isimleri farklı bir tabloda alt alta yazdırmak. İlgilenen arkadaşlar şimdiden teşekkür ederim.

 

[Ali]

En sona bir sayfa ekleyin ve sayfa içinde bir butona aşağıdaki kodları ekleyiniz.

Sub isimlerial()
Dim i As Integer
For i = 1 To Sheets.Count
Cells(i, 1) = Worksheets(i).Range("E13")
Next i
End Sub

 

[mutand_vsd]

Ali bey teşekkür ederim fakat benmi yapadım yada olmadı mı tam bilemiyorum. Göndermiş olduğum dosyaya ekleyip tekrar gönderirmisiniz lütfen.
İlginiz için teşekkür ederim.

 

[Ali]

Dosyanız ektedir.

 

[mutand_vsd]

İlginiz için teşşekür ederim.