Puantaj Tablosu - Listeleme

[iylis]

Merhaba,
Ekli dosyada da belirttiğim gibi bir sayfada tarihlerin ve isimlerin yer aldığı bir puantaj tablo var.
Başka bir sayfada sadece günü girerek o gün gelen bütün işçilerin isimlerini alt alta listelemek istiyorum.

Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub listele59()
Dim sh As Worksheet, sonsat As Long, sat As Long, i As Long
Dim sut As Byte
Set sh = Sheets("Sayfa2")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
sat = 2
Sheets("Sayfa1").Select
Range("B2:B" & Rows.Count).ClearContents
sut = Range("G1").Value + 2
Application.ScreenUpdating = False
For i = 2 To sonsat
     If sh.Cells(i, sut).Value = "X" Then
        Cells(sat, "B").Value = sh.Cells(i, "B").Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[iylis]

Sayın Orion1,
Hızlı Cevabınız için teşekkürler.
Bunu formülle yapmak mümkün müdür acaba?

 

[Orion1]

Sayın Orion1,
Hızlı Cevabınız için teşekkürler.
Bunu formülle yapmak mümkün müdür acaba?

Formülle yaptırmak için sorunuzu Fonksiyonlar bölümüne sorunuz.
Formül konusunda iyi olan arkadaşlar sorunuza yanıt verecektir sanırım.