Veri doldurma

[dmyksl]

Arkadaşlar ekteki dosyadaki liste gibi yaklaşık 60 grupluk öğrenci listem var. bu listeyi sayfa 2 deki gibi nasıl gösteririm acaba tşk...

 

[dmyksl]

Arkadaşlar bi el atsanız...

 

[Murat OSMA]

Sayfa1'i resimdeki gibi düzenlerseniz bu kodları kullanabilirsiniz..

[FONT="Arial Narrow"][SIZE="2"]Sub Emre()
    Dim Evn As Range, i%, a, gun$
    For i = 2 To Sayfa2.Range("A65536").End(3).Row
        Set Evn = Sayfa1.Cells.Find(Sayfa2.Cells(i, 2).Value, , , 1)
        If Not Evn Is Nothing Then
            a = Evn.Address
            Do
                gun = Sayfa1.Cells(2, Evn.Column - 1).Value
                Set Evn = Sayfa1.Cells.FindNext(Evn)
                If gun = "SALI" Then
                    Sayfa2.Cells(i, 3).Value = Sayfa1.Cells(1, Evn.Column - 1).Value
                        Else
                     Sayfa2.Cells(i, 4).Value = Sayfa1.Cells(1, Evn.Column - 1).Value
                End If
            Loop While Not Evn Is Nothing And a <> Evn.Address
        End If
    Next i
    gun = "": i = Empty: Set Evn = Nothing
End Sub[/SIZE][/FONT]