Ekte sundugum makroda acil yardım...lütfen..

[smile80]

1.satırdaki farklı sütunlardaki verileri birleştiren ekteki dosyayı...acaba 100 ögrenci olarak düzenleyebilirmisiniz... düzenlenmiş halini de sayfa 2 ye aktarırsanız cok sevinirim...Teşekkürler...

 

[smile80]

Usubaykan hocam yardımcı oldu arkadaslar..tşkler..

 

[Orion1]

Dosyanız ektedir.

Sub deneme()
Dim u As Byte, hücre, i As Long, sat As Long
    Sheets("Sayfa2").Range("A1:A65536").Clear
    sat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
    hücre = ""
    For u = 1 To Range("IV" & i).End(1).Column
        If Cells(i, u) <> "" Then
            hücre = hücre & Cells(i, u).Value
        End If
    Next
    If hücre <> "" Then
        Sheets("Sayfa2").Range("A" & i) = hücre
    End If
Next i
Sheets("Sayfa2").Select
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub