Tring to sort files to a different page

bourassa · Jan 28th 2004

ok i want to sort files to different pages, this is how it is set up

Logon cbourassa YORK tue date/time
Logoff cbourassa YORK tue date/time
Logon cbourassa YORK wed date/time
Logoff cbourassa YORK wed date/time
Logon eleighton BangKOK tue date/time
Logoff eleighton BangKOK tue date/time
Logon eleighton BangKOK wed date/time
Logoff eleighton BangKOK wed date/time

how would i sort them by user name (column b) to there own seprate page

yjoshi · May 31st 2004

I think your question was a bit vague .. thats why no replies.

I have tried to answer it .. see if this helps.

Code

Private Sub CommandButton1_Click()
Dim rng As Range
Dim cel As Range
Dim cp As Range
Dim sht As String
With Sheets("Raw_Data")
    Set rng = Intersect(.Range("F:F"), .UsedRange)
End With
For Each cel In rng
    If cel.Value = "" And cel.Offset(0, -5).Value <> "" Then
    sht = cel.Offset(0, -4).Value
    Set cp = Sheets(sht).Range("A65536").End(xlUp).Offset(1, 0)
    cp.Value = cel.Offset(0, -5).Value
    cp.Offset(0, 1).Value = cel.Offset(0, -3).Value
    cp.Offset(0, 2).Value = cel.Offset(0, -2).Value
    cp.Offset(0, 3).Value = cel.Offset(0, -1).Value
    cel.Value = "Yes"
    End If
Next


End Sub

Display More

Also see the live demo.. file attachedl

Tring to sort files to a different page

Participate now!

Share